Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

regular expression for workdir

by azaria (Beadle)
on Jan 01, 2006 at 13:59 UTC ( #520237=perlquestion: print w/replies, xml ) Need Help??
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";
      Thanks you all, this is exactly what i need !!!!
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, $/;


    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.

Re: regular expression for workdir
by turo (Friar) on Jan 01, 2006 at 15:12 UTC


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



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

    holli, /regexed monk/

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://520237]
Approved by wfsp
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2018-02-18 06:01 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (250 votes). Check out past polls.