Re^4: YAREGEX for all

I think he meant /abc|def/ versus /abc/ || /def/

Unless I state otherwise, my code all runs with strict and warnings

Comment on Re^4: YAREGEX for all Select or Download Code

Replies are listed 'Best First'.
Re^5: YAREGEX for all by mikejones (Scribe) on Apr 24, 2008 at 20:49 UTC
correct I meant `/abc\|def/ versus /abc/ \|\| /def/` I think I will use this code. Goal is to match whats under __DATA__ and it seems to work. Comments? thank you! `use warnings; use strict; while (my $fs = <DATA>) { if ($fs =~ m{(?i)^/(?:oracle\|db\|db2\|informix\|data)(?:\s+\z\|\|\s+\w+ +\z)} ) { print "match: $fs"; } } __DATA__ junk /oracle /db /db2 /informix /data again/debo junk2 /oracle/foo /db/foo /db2/foo /informix/debo/` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: YAREGEX for all
by mikejones (Scribe) on Apr 24, 2008 at 20:49 UTC

/abc|def/ versus /abc/ || /def/

I think I will use this code. Goal is to match whats under __DATA__ and it seems to work.

Comments? thank you!


use warnings;
use strict;

while (my $fs = <DATA>) {
    if ($fs =~ m{(?i)^/(?:oracle|db|db2|informix|data)(?:\s+\z||\s+\w+
+\z)} ) {
        print "match: $fs";
    }
}

__DATA__
junk
/oracle
/db
/db2
/informix
/data again/debo
junk2
/oracle/foo
/db/foo
/db2/foo
/informix/debo/
[download]

[reply]
[d/l]
[select]