Chris Knipe wrote:
Lo all,

Hello,

I tried to do this with split(), but it's not working good at all....

The string:
interface=something very long with spaces and all mac-address=00:02:6F:36:2D:31 ap=no wds=no rx-rate=11Mbps tx-rate=11Mbps packets=12623,18377 bytes=10829240,2009327 frames=12623,18377
(the above is one line, wrapped for email).



I need to grab the values for all the options....

$ perl -le'
use Data::Dumper;
my $string = q/interface=something very long with spaces and all mac-address=00:02:6F:36:2D:31 ap=no wds=no rx-rate=11Mbps tx-rate=11Mbps packets=12623,18377 bytes=10829240,2009327 frames=12623,18377/;
my %hash = $string =~ /(\S+)=([^=]+)(?:\s+|$)/g;


print Dumper \%hash;
'
$VAR1 = {
          'bytes' => '10829240,2009327',
          'mac-address' => '00:02:6F:36:2D:31',
          'packets' => '12623,18377',
          'frames' => '12623,18377',
          'wds' => 'no',
          'interface' => 'something very long with spaces and all',
          'rx-rate' => '11Mbps',
          'ap' => 'no',
          'tx-rate' => '11Mbps'
        };



John
--
use Perl;
program
fulfillment

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




Reply via email to