On 12-06-16 07:36 AM, John W. Krahn wrote:
$ perl -le'
my @strings = (
q/phrase1 "phrase2" phrase3/,
q/"phrase2" phrase3/,
q/phrase1 phrase3 phrase4/,
);
for my $string ( @strings ) {
# change from here
my ( $phrase ) = $string =~ /"([^"]+)"/;
print $phrase if $phrase;
# to here with this:
if( my ( $phrase ) = $string =~ /"([^"]+)"/ ){
print "$phrase\n";
}
# it is considered BP to put the if on the match
}
'
--
Just my 0.00000002 million dollars worth,
Shawn
Programming is as much about organization and communication
as it is about coding.
_Perl links_
official site : http://www.perl.org/
beginners' help : http://learn.perl.org/faq/beginners.html
advance help : http://perlmonks.org/
documentation : http://perldoc.perl.org/
news : http://perlsphere.net/
repository : http://www.cpan.org/
blog : http://blogs.perl.org/
regional groups : http://www.pm.org/
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
