> > > > # INTERFACE > > RADIO-NAME MAC-ADDRESS AP SIGNAL-STRENGTH TX-RATE UPTIME > > 0 interface_name radio > > 00:0C:42:1F:2C:8D yes -63...@18mbps 9Mbps 2h2m38s > > > > I'm looking for a > > foreach my $Line (@Output) { > > my ($interface, $radio, $mac, $ap, $signal, $txrate, uptime) = > > split(/whatidontknow/, $Line, 7); > > } > > > > Can anyone perhaps help out with the what I don't know bit?? FYI - The > > columns should be fixed lengths, if that helps perhaps... > > > > Hi. > Could maybe a simple split(/\s+/ $Line, 7); work?
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... -- Chris. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/