[Perl-beginners] quick regex question

Hi.
Could maybe a simple split(/\s+/ $Line, 7); work?

cheers
paolino

Almost, but we're not *quite* there yet... It will do though, I think
(Really just need to get $interface name and $signal)...

foreach my $Line (@Output) {
my ($tmp, $number, $interface, $radio, $mac, $ap, $signal, $txrate,
$uptime) = split(/\s+/, $Line, 9);
print "Number: " . $number . "\n";
print "Interface: " . $interface . "\n";
print "Radio: " . $radio . "\n";
print "MAC: " . $mac . "\n";
print "AP: " . $ap . "\n";
print "Signal: " . $signal . "\n";
print "TX Rate: " . $txrate . "\n";
print "Uptime: " . $uptime . "\n";

}

Number: 0
Interface: interface_name
Radio: radio
MAC: 00:0C:42:1F:2C:8D
AP: yes
Signal: -63dBm...
TX Rate: 24Mbps
Uptime:

I'm not sure why I am required to have 9 fields in the split to get the
values now...

I am not sure about what's not working for you... It seems to work fine
for me:

my ($number, $interface, $radio, $mac, $ap, $signal, $txrate, $uptime) =
split(/\s+/, $Line, 8);
print "Number: " . $number . "\n";
print "Interface: " . $interface . "\n";
print "Radio: " . $radio . "\n";
print "MAC: " . $mac . "\n";
print "AP: " . $ap . "\n";
print "Signal: " . $signal . "\n";
print "TX Rate: " . $txrate . "\n";
print "Uptime: " . $uptime . "\n";

and 8 should be right, 'cause it's 8 fields you have there..

Could you clarify what you find not working?

Cheers
paolino

It appears from your initial post as if there is a leading space before
the zero value. If that's the case, your question is answered at the
very first line of "perldoc -f split". If you exchange /\s+/ for ' ' you
can skip that $tmp variable.

No need to use the LIMIT parameter, btw.

Then you may prefer a list slice.

my ($interface, $signal) = (split ' ', $Line)[1,5];

If you are dealing with fixed length fields then you probably want to
use unpack:

perldoc -f unpack
perldoc -f pack
perldoc perlpacktut



John