Quick perl question. Character strip

[Steven E. Protter]

print ("$refer");

Shows: /certified.shtml

Whats the code to end up with this value in the variable:

certified.shtml

or

certified

Bunny for code that works.

SEP

[A. Clay Stephenson · Accepted solution]

my $refer = "/certified.shmtl";
print "Before: ",$refer,"\n";
$refer =~ tr ?/??d;
print "After : :,$refer,"\n";

[Paul F. Carlson]

Try:

$refer = "/certified.shtml";

$st = substr($refer,1);
print "$st\n";

or:

$pos = index($refer,".");
$st = substr($refer,1,$pos-1);
print "$st\n";

[Rodney Hills]

($file,$ext)=$refer=~/\/?([^.]*)\.(.*)/;

HTH

-- Rod Hills

[A. Clay Stephenson]

Ooops,

print "After : :,$refer,"\n";

should be:
print "After : ",$refer,"\n";

[Steven E. Protter]

All answers worked so maximum pointage.

I actually fixed A. Clay's oops when I typed his code. I used cut and paste on the rest. I did hunt through caljd.pl for the answer but did not find it. Not enough time find it in the perl cookbook.

This project will yeild a few more questions I think.

Another ITRC success.

SEP