I am trying to extract /temp/bin/usr/ from a variable
$path = /temp/bin/usr/...
using perl. Can someone help me with that ?
3 Answers
Use File::Basename. It is a core module in Perl version 5. From the documentation:
use File::Basename;
($name,$path,$suffix) = fileparse($fullname, @suffixlist);
$name = fileparse($fullname, @suffixlist);
$basename = basename($fullname, @suffixlist);
$dirname = dirname($fullname);
It sounds like dirname($path) is what you are after.
You may also simply use a regex
$path =~ s/\.+$//;
Comments
If all you need is to remove those '..' in the end there're many ways.
For example:
1)
my $str="/temp/bin/usr/...";
($str) =~ s/\.+$//;
print $str;
2)
my $str="/temp/bin/usr/...";
$str = substr($str, 0, index($str, "."));
print $str;
3)
my $str="/temp/bin/usr/...";
$str = (split /\./, $str)[0];
print $str;
And there're many more!
To extract part of a path, for example, the first three directories, one way is to use the method splitdir of the module File::Spec, like:
printf "%s\n", join q|/|, (File::Spec->splitdir( $path ))[0..3];
If you want to remove those dots, use a regular expression that matches them after last slash, like:
$path =~ s|(/)\.+\s*$|$1|;
3 Comments
TLP
0 .. 2 for three elements. Good solution, though, I will reference it in my answer.TLP
My mistake, the OP meant something else.. I will not reference it. Still a good answer.
Birei
@TLP: I wasn't sure either, so I added two different ways to accomplish a task like that. I think that the OP won't have much problem to solve his issue due to the answers he got.
/temp/bin/usr/somedir/dir3/file.txt, or/temp/bin/usr/file.txt? There's a difference.