Re^2: match lines containing state abbreviation

Thanks for the response, Ken. That is helpful how you explained it. However, should I make the $content an array of lines to match? I have taken out the foreach operator right now..

Comment on Re^2: match lines containing state abbreviation

Replies are listed 'Best First'.
Re^3: match lines containing state abbreviation by kcott (Archbishop) on Apr 18, 2013 at 18:20 UTC
Splitting the lines to create an array is probably what I would have done. However, if you want to work directly with a multiline string, here's one way to do it: `$ perl -Mstrict -Mwarnings -E ' my $lines = "AZ\nSX\nAZ\nDC\nAB\nYZ\n"; say $lines; $lines =~ s/(?>[^A].\|.[^Z])\n//gm; say $lines; ' AZ SX AZ DC AB YZ AZ AZ` [download] In my opinion, the multiline solution is a lot more cryptic than the array solution. -- Ken	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: match lines containing state abbreviation
by kcott (Archbishop) on Apr 18, 2013 at 18:20 UTC

Splitting the lines to create an array is probably what I would have done. However, if you want to work directly with a multiline string, here's one way to do it:

$ perl -Mstrict -Mwarnings -E '
    my $lines = "AZ\nSX\nAZ\nDC\nAB\nYZ\n";
    say $lines;
    $lines =~ s/(?>[^A].|.[^Z])\n//gm;
    say $lines;
'
AZ
SX
AZ
DC
AB
YZ

AZ
AZ
[download]

In my opinion, the multiline solution is a lot more cryptic than the array solution.

-- Ken

[reply]
[d/l]