removing the last word

s_gaurav1091 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: removing the last word by prasadbabu (Prior) on Sep 21, 2005 at 07:31 UTC
You can make use of File::Basename to accomplish your job. `use File::Basename; $dirname= dirname($filepath);` [download] Prasad	[reply] [d/l]
Re: removing the last word by sh1tn (Priest) on Sep 21, 2005 at 08:57 UTC
Yes, you can use regexs like: `my $full = '/usr/local/jboss'; my ($dir, $file) = $full =~ m\|(.+)/(.+)\|;` [download] But it is better to use core module if such one exists - `File::Basename` in this case. Thus you will not make mistake while reinventing the wheel.	[reply] [d/l] [select]
Re: removing the last word by gargle (Chaplain) on Sep 21, 2005 at 07:37 UTC
Hi, Depending on your certainty of always having /usr/local you can do: `bash-3.00$ perl -e '$p = "/usr/local/whatever"; if ( $p =~ /^\/usr\/lo +cal\/(.+)$/ ) { print $1."\n"; }'` [download] Output: `whatever` [download] -- if ( 1 ) { $postman->ring() for (1..2); }	[reply] [d/l] [select]
Re: removing the last word by GrandFather (Saint) on Sep 21, 2005 at 07:53 UTC
If you just want to remove the last "word" then: `my $full = '/usr/local/jboss'; my ($path, $tail) = $full =~ m\|^(./)(.?)$\|; print "Path: $path\n"; print "Tail : $tail";` [download] Perl is Huffman encoded by design.	[reply] [d/l]
Re: removing the last word by ambrus (Abbot) on Sep 21, 2005 at 10:31 UTC
Can't you just append `"/.."`?	[reply] [d/l]