How to replace the cut command from cshell in Perl

[juo]

I have a variable called : $path = c:/path1/path2/file1 Now I want to create a variable for example : $file = file1 Does anybody know how to do this in Perl. (file1 is not a fixed name but is different everytime) Pieter

[kschwab]

Have a look at File::Basename.

[davorg]

File::Basename is the best way to go, but sometimes if I'm feeling particularly obtuse, I might use something like:</>

my $file = (split(/\//, $path))[-1];

I don't recommend it tho :)

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me

[a]

or:

@parts = split(/\//);
$file1 = pop @parts;

in case the parts might be useful later, but YMMV (may want to chomp if there's a \n on there) - not wildly recommended either.

a