Why can't I use s///

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

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;
[download]

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),
[download]

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?

Comment on Why can't I use s/// Select or Download Code

Replies are listed 'Best First'.
Re: Why can't I use s/// by toolic (Bishop) on May 08, 2013 at 16:48 UTC
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` [download] Note that `..` in your regex means any character, not just dots.	[reply] [d/l] [select]
Re^2: Why can't I use s/// by njack (Novice) on May 08, 2013 at 16:54 UTC
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	[reply]
Re^3: Why can't I use s/// by toolic (Bishop) on May 08, 2013 at 16:55 UTC
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	[reply]
Re^4: Why can't I use s/// by njack (Novice) on May 08, 2013 at 17:02 UTC
Re^5: Why can't I use s/// by linuxer (Curate) on May 08, 2013 at 21:52 UTC
Re^5: Why can't I use s/// by Anonymous Monk on May 09, 2013 at 03:14 UTC
Re: Why can't I use s/// by Random_Walk (Prior) on May 08, 2013 at 17:00 UTC
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;` [download] Cheers, R. Pereant, qui ante nos nostra dixerunt!	[reply] [d/l]
Re^2: Why can't I use s/// by educated_foo (Vicar) on May 08, 2013 at 19:47 UTC
Even simpler: `s!.*/!!;` [download] Just another Perler interested in Algol Programming.	[reply] [d/l]