azaria has asked for the wisdom of the Perl Monks concerning the following question:

Hello, I would like to find 2 sequence directory names appears in a given pathname after a given magic word. is there any sophisticate regular expression for that (no spilt method) e.g: $magic_word = "azaria"; $path = "/net/moon/slice1/azaria/bin/files/perl"; then I want to get "bin/files" since those 2 directories follow the magic word "azaria" Please advice, azaria

Replies are listed 'Best First'.
Re: regular expression for workdir
by wfsp (Abbot) on Jan 01, 2006 at 14:27 UTC
    One way: 

    $path =~ m|$magic_word/([^/]+/[^/]+)/|;
print "$1\n";

    [download]
[reply]
[d/l]
      Thanks you all, this is exactly what i need !!!!
[reply]
Re: regular expression for workdir
by Dietz (Curate) on Jan 01, 2006 at 15:37 UTC

    This would be more straightforward than the other suggestions:

    my ($subpath) = $path =~ m|$magic_word/(.*)/.*|;
print $subpath, $/;

    [download]

    Update:

    Rereading the question, I misinterpreted it, since my solution will gather all directories after the magic word.
    Go with wfsp's solution which fits in perfectly.

[reply]
[d/l]
Re: regular expression for workdir
by turo (Friar) on Jan 01, 2006 at 15:12 UTC

    TIMTOWTDI :-)

    print ((split q|/|,$path)[-1]);

    [download]

    regards

    turo

    perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'
[reply]
[d/l]
[select]
Re: regular expression for workdir
by holli (Abbot) on Jan 01, 2006 at 14:41 UTC
    Another way: 
    print substr($path, index($path, $magic_word)+length($magic_word)+1);

    [download]


    holli, /regexed monk/
[reply]
[d/l]

Back to Seekers of Perl Wisdom