Perl, combine two pattern matches to one match?

combine two pattern matches to one match?

Author	Message
Michael Wa #1 / 4	combine two pattern matches to one match? Can someone combine the following two pattern matches to one match? perl -ne "next if /-- \s* INFILE/ix; if (/INFILE \s+ ' \s* (\S+) \s* '/ix) { print \$1; last; }" That is, change above to: perl -ne "if (/ you pattern match /) { print \$1; last; }" Thanks. PS: You can post, but an email copy to me is appreciated.
Sat, 24 Jul 2004 02:27:13 GMT

John W. Krah #2 / 4	combine two pattern matches to one match? Quote: > Can someone combine the following two pattern matches to one match? > perl -ne "next if /-- \s* INFILE/ix; > if (/INFILE \s+ ' \s* (\S+) \s* '/ix) { print \$1; last; }" > That is, change above to: > perl -ne "if (/ you pattern match /) { print \$1; last; }" perl -ne"print $1 and last if /(?<!--\sINFILE)INFILE \s+ ' \s (\S+) \s* '/ix" John -- use Perl; program fulfillment
Sat, 24 Jul 2004 04:39:45 GMT

Jeff 'japhy' Pinya #3 / 4	combine two pattern matches to one match? On Feb 5, John W. Krahn said: Quote: >> Can someone combine the following two pattern matches to one match? >> perl -ne "next if /-- \s* INFILE/ix; >> if (/INFILE \s+ ' \s* (\S+) \s* '/ix) { print \$1; last; }" >perl -ne"print $1 and last if /(?<!--\sINFILE)INFILE \s+ ' \s (\S+) >\s* '/ix" Nope. That look-behind isn't constant width. It SUCKS (IMHO) that Perl can't do this. I'm going to fix it some day. -- RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ Look for "Regular Expressions in Perl" published by Manning, in 2002 <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
Sat, 24 Jul 2004 05:27:50 GMT

Michael Wa #4 / 4	combine two pattern matches to one match? Quote: >> Can someone combine the following two pattern matches to one match? >> perl -ne "next if /-- \s* INFILE/ix; >> if (/INFILE \s+ ' \s* (\S+) \s* '/ix) { print \$1; last; }" >> That is, change above to: >> perl -ne "if (/ you pattern match /) { print \$1; last; }" >perl -ne"print $1 and last if /(?<!--\sINFILE)INFILE \s+ ' \s (\S+) >\s* '/ix" Is Variable length lookbehind implemented in your Perl? Not here in v5.6.1. Thanks.
Sat, 24 Jul 2004 09:23:40 GMT

Page 1 of 1

[ 4 post ]