parsing a directory path using perl

bharatbsharma · 12-07-2007, 10:05 PM

If a dir path is given like location/system/data/file

how can i store every directory name in variable
dir1=location
dir2=system
dir3=data
dir4=file
length of directory path may not be fixed.

ghostdog74 · 12-07-2007, 10:28 PM

after 14 posts and a similar post like this, you should know you can use split

bharatbsharma · 12-07-2007, 11:03 PM

i have done using split but can you tell me how to create this directory structure using perl

Disillusionist · 12-08-2007, 05:02 AM

split is a perl command!

Code:

#!/usr/bin/perl

$l_dir="/My/Dir/is/much/longer/than/yours/but/who/cares";
@l_dir_path=split(/\//, $l_dir);

for ($i=1; $i<@l_dir_path; $i++) {
   print "dir$i=$l_dir_path[$i]\n";
}

An array starts at position 0, however in this case the first entry in the array would be blank.

This is due to the / at the beginning of the string, therefore I am starting $i with a value of 1.

chrism01 · 12-08-2007, 06:02 PM

I think if you told us what problem you are trying to solve, with example code, we'll be able to help you more. IOW, why would you need to do this?