Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: regular expression

by McDarren (Abbot)
on Feb 28, 2010 at 05:51 UTC ( #825734=note: print w/ replies, xml ) Need Help??


in reply to regular expression

my $string = '~/tmp/hfj/abc/bhd/5009.xmlreal.xml'; $string =~ s/^.*\/\d+//; print "$string\n";

Another way is to use File::Basename to extract the file name, and then remove the bits you don't want.

use File::Basename; $string = '~/tmp/hfj/abc/bhd/5009.xmlreal.xml'; my ($filename, $directories, $suffix) = fileparse($string); $filename =~ s/^\d+//; print "$filename\n";

Cheers,
Darren


Comment on Re: regular expression
Select or Download Code
Re^2: regular expression
by AnomalousMonk (Monsignor) on Feb 28, 2010 at 05:57 UTC
    s/^.*\/\d+.//g

    I don't understand the purpose of the /g regex modifier in the above regex.

      heh.. it serves no purpose whatsoever.
      I'll remove it. Not quite sure what I was thinking about there :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://825734]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (12)
As of 2014-07-25 07:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (169 votes), past polls