http://www.perlmonks.org?node_id=533872


in reply to remove directory path

You need to take a look at File::Basename

or simply with regex

$file = "/opt/local/bin/zap.exe";
$file =~ s|.*/||s;
print $file;

output:

zap.exe

[download]

updated: As per frodo72 suggestion. Thanks frodo72

Prasad

Replies are listed 'Best First'.
Re^2: remove directory path
by polettix (Vicar) on Mar 02, 2006 at 15:33 UTC
    The File::Basename approach is better IMHO - more readable, portable and tested.

    In the regex, you're bound to be in some Unix flavour; moreover, it misses files in the root directory, because of the "+". I'd reword it as:

    $file =~ s{.*/}{}s;

    [download]
    but the better choice remains File::Basename.

    Flavio
    perl -ple'$_=reverse' <<<ti.xittelop@oivalf

    Don't fool yourself.
[reply]
[d/l]
Re^2: remove directory path
by sen (Hermit) on Mar 02, 2006 at 13:48 UTC

    try this.. 

    $file = "/opt/local/bin/zap.exe"; 
print $file = (split(/\//, $file))[-1];

    [download]
[reply]
[d/l]
Re^2: remove directory path
by sen (Hermit) on Mar 02, 2006 at 13:47 UTC

    try this..

    $file = "/opt/local/bin/zap.exe";
$file = (split(/\//, $file))[-1];
print $file;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom