Why can't I use s///

[njack]

Hi everyone, I've got a problem I just cant figure out... I want to remove the initial part of some strings. Example:

"../files/jack/2012/derpone.pdf"

should become "derpone.pdf"

So i have this:

my $text="../files/jack/2012/derpone.pdf";
$text=~ s/..\/\w*\/\w*\/\d\d\d\d\///g;

And it works like a charm on Padre. But when I load the .cgi file on the server of my university it doesn't work anymore.

my $text="../files/jack/2012/derpone.pdf";
$text=~ s/..\/\w*\/\w*\/\d\d\d\d\///g;
$cgi->h1($text),

It' a copy paste and yet on my webpage i get ../files/jack/2012/derpone.pdf

the regular expression should: ../letters/letters/4 numbers/

What is the problem?

[toolic]

If your sting is always a file path, you could try File::Basename:

use warnings;
use strict;
use File::Basename qw(basename);

my $text = "../files/jack/2012/derpone.pdf";
$text = basename($text);
print "$text\n";

__END__

derpone.pdf

Note that .. in your regex means any character, not just dots.

[njack]

Yeah about file::basename my hands are tied since I can't install libraries on the university server, so I can't use it.

And about the .. it's fine since all my strings begins witn ".." anyway

[toolic]

It should be installed already because it is a Core module. Give it a try.

If it doesn't work, use Tip #3 from the Basic debugging checklist

[Random_Walk]

Will it work if you just grab the last characters that are not a slash?

# something like
my $text="../files/jack/2012/derpone.pdf";
$text=~ s|.*/([^/]*$)|$1|g;

Cheers,
R.

[educated_foo]

Even simpler:

s!.*/!!;