Re: more elegant way to parse this?


Perl Monk, Perl Meditation
	PerlMonks

Re: more elegant way to parse this?

by tybalt89 (Monsignor)

on Feb 24, 2017 at 06:39 UTC ( [id://1182715]=note: print w/replies, xml )

Need Help??

in reply to more elegant way to parse this?

#!/usr/bin/perl

use strict;
use warnings;

my $out = join '', <DATA>; # fake data :)

my @essids = map /SSID: (.*)/, split /^BSS/m, $out;

use Data::Dumper;
print Dumper \@essids;

__DATA__
BSS <blah blah>
   SSID: <ssid>
   <blah blah>
BSS <blah blah>
   SSID: <ssid2>
   <blah blah>
BSS <blah blah>
   SSID: <ssid3>
   <blah blah>
[download]

yes? no? maybe?