Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

code problem : sub build_clean

Feb 20, 1999, 11:20 AM
ds
User (165 posts)
Feb 20, 1999, 11:20 AM
Post #1 of 2
Views: 2456
Shortcut
Quote Reply
code problem : sub build_clean
This code turns "Name1/Name2/Name3" into "Name1 : Name2 : Name3", but I would like that this code would turn in into "Name3" only!

So: Just the last word, if you read backwords! Who Can help me out ? Please...

Code:
sub build_clean {

my ($input) = shift;
$input =~ s,/, : ,g; # Change '/' to ' : '.
return $input;
}


[This message has been edited by ds (edited February 20, 1999).]
Feb 21, 1999, 9:43 PM
Alex
Administrator (9387 posts)
Feb 21, 1999, 9:43 PM
Post #2 of 2
Views: 2345
Shortcut
Quote Reply
Re: code problem : sub build_clean In reply to
Hi,

Try:

Code:
sub build_clean2 {
# ------------------------------------
my $input = shift;
my ($last) = $input =~ /[^/](.+)$/;
return $last;
}

Cheers,

Alex