Try:
use File::Basename;
my $direx = 'E:/Perl/bin/extra/nodir/hi.txt';
my ($name, $path, $suffix, @stuff);
while (1) {
($name, $path, $suffix) = fileparse($direx);
last if $name eq '.';
print "Name is $name\n";
push @stuff, $name;
chop($path);
$direx = $path;
}
foreach (@stuff) {
print"\t$_\n";
}
HTH
David
"Javeed Sar" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> hi All,
>
>
> I have string as given below:
>
> M:\sun1\train\test\Soarian_Context_Sensitive_Coordination_File
>
> From this string i need to split indivually and get
>
> Soarian_Context_Sensitive_Coordination_File ---> in one variable.
> test
> ---> in one variable
> train
> ---> in one variable
> sun1
> ---> in one variable
> M:
> ---> in one variable
>
>
>
> Regards
> Javeed
>
> Regards
> Javeed
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
