strip substring from long string

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

Replies are listed 'Best First'.
Re: strip substring from long string by prasadbabu (Prior) on Mar 03, 2005 at 11:40 UTC
As holli suggested you can make use of the above methods. The string you have mentioned seems to be a path name, if it is so, you can make use of File::Basename. `use File::Basename; $str='/usr/local/prj/code/prog/prog1'; $name = basename("$str"); print "$name";` [download] output:prog1 Prasad update: added, use File::Basename;	[reply] [d/l]
Re: strip substring from long string by gopalr (Priest) on Mar 03, 2005 at 12:03 UTC
`$a='/usr/local/prj/code/prog/prog1'; ($path)=$a=~m#.+/(.+?)$#; print $path;` [download]	[reply] [d/l]
Re^2: strip substring from long string by Roy Johnson (Monsignor) on Mar 03, 2005 at 12:15 UTC
The leading dot-plus is unnecessary. In fact, you can just get all the non-slash characters leading up to the end of string: `($basename) = $a =~ m#([^/]+)$#;` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re: strip substring from long string by mlh2003 (Scribe) on Mar 03, 2005 at 12:00 UTC
Another way would be to split based on '/' and get the last element of the array. This is one of the methods that holli suggested (using split). Depending on your OS, the path separator may change - in which case the split character needs to reflect that: `my $full_file = '/usr/local/prj/code/prog/prog1'; print "Filename is: " . (split '/', $full_file)[-1];` [download] -------------------- mlh2003	[reply] [d/l]
Re: strip substring from long string by holli (Abbot) on Mar 03, 2005 at 11:18 UTC
You can use `substr()`, `split()`, or a regex. Did you try any of these? And your string is really not very long. holli, /regexed monk/	[reply] [d/l] [select]
Re: strip substring from long string by mkirank (Chaplain) on Mar 03, 2005 at 12:18 UTC
Getting the filename from full path name ?	[reply]