split() on /

[iowaprogrammer]

I am trying to read a string and have it split into pieces using the split() function. I am using the "/" as the separator to split on, but not sure how to write the split to use the "/".

Input is going to be directory listings like below

/usr/home/<userid>/Trash
/usr/home/<userid>/Sent
/usr/home/<userid>/Trash
/usr/home/<userid>/mbox


I have been trying to do it using the following line...

($lvl1, $lvl2, $userid, $filename)= split(///);

Thank you for taking time to read this question

 

[feherke]

Hi

[teal]([/teal][highlight][navy]$lvl0[/navy][teal],[/teal][/highlight] [navy]$lvl1[/navy][teal],[/teal] [navy]$lvl2[/navy][teal],[/teal] [navy]$userid[/navy][teal],[/teal] [navy]$filename[/navy][teal])=[/teal] [b]split[/b][teal]([/teal][green][i]/[highlight]\[/highlight]//[/i][/green][teal]);[/teal]

Feherke.

http://free.rootshell.be/~feherke/

 

[iowaprogrammer]

Thank you Thank you thank you lol

 

[toolic]

You can also use different delimiters for regular expressions. Instead of "//", it is also common to use "{}" in order to avoid escaping the special "/" character. Parentheses are optional with split:

($lvl1, $lvl2, $userid, $filename)= split {/};

 

[feherke]

Hi

Interesting. Your code not works in my Perl 5.10.1 :

  [blue]DB<1>[/blue] $_='/usr/home/<userid>/Trash';

  [blue]DB<2>[/blue] ($lvl1, $lvl2, $userid, $filename)= split {/};
Search pattern not terminated at (eval 6)[/usr/lib/perl5/5.10.1/perl5db.pl:638] line 2.
 at (eval 6)[/usr/lib/perl5/5.10.1/perl5db.pl:638] line 2
        eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package main; $^D = $^D | $DB::db_stop;
($lvl1, $lvl2, $userid, $filename)= split {/};;

;' called at /usr/lib/perl5/5.10.1/perl5db.pl line 638
        DB::eval called at /usr/lib/perl5/5.10.1/perl5db.pl line 3444
        DB::DB called at -e line 1

I what kind of Perl can you use that code ?

Feherke.

http://free.rootshell.be/~feherke/

 

[toolic]

Oops! I forgot to add the "m".

($lvl1, $lvl2, $userid, $filename)= split m{/};

 

[feherke]

Hi

Ok, got it.

Feherke.

http://free.rootshell.be/~feherke/