Re^2: Why this simple code doesn't work?

Och

If "?" is the delimiter, then a match-only-once rule applies
[download]

thank you!

Comment on Re^2: Why this simple code doesn't work? Download Code

Replies are listed 'Best First'.
Re^3: Why this simple code doesn't work? by Marshall (Canon) on Mar 02, 2012 at 13:02 UTC
`#!/usr/bin/perl -w use strict; use 5.10.0; while (<DATA>) { chomp; process_path($_); } sub process_path { my $path = shift; if ( $path =~ m{^./home/(.)/\.forward} ) # m[...] or # m\|...\| works also { say "i've got >$1<"; } else { say "ups >$path<"; } } =prints i've got >aaa< i've got >bbb< i've got >ccc< i've got >ddd< =cut __DATA__ /home/aaa/.forward /home/bbb/.forward /home/ccc/.forward /home/ddd/.forward` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Why this simple code doesn't work?
by Marshall (Canon) on Mar 02, 2012 at 13:02 UTC

#!/usr/bin/perl -w
use strict;
use 5.10.0;

while (<DATA>) {
    chomp;
    process_path($_);
}

sub process_path {
    my $path = shift;

    if ( $path =~ m{^.*/home/(.*)/\.forward} ) # m[...] or
                                               # m|...| works also
    {
        say "i've got >$1<";
    }
    else {
        say "ups >$path<";
    }
}

=prints
i've got >aaa<
i've got >bbb<
i've got >ccc<
i've got >ddd<
=cut

__DATA__
/home/aaa/.forward
/home/bbb/.forward
/home/ccc/.forward
/home/ddd/.forward
[download]

[reply]
[d/l]