Re: regular expression

in reply to regular expression

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

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

Cheers,
Darren

Comment on Re: regular expression Select or Download Code

Replies are listed 'Best First'.
Re^2: regular expression by AnomalousMonk (Archbishop) on Feb 28, 2010 at 05:57 UTC
`s/^.*\/\d+.//g` [download] I don't understand the purpose of the /g regex modifier in the above regex.	[reply] [d/l]
Re^3: regular expression by McDarren (Abbot) on Feb 28, 2010 at 06:04 UTC
heh.. it serves no purpose whatsoever. I'll remove it. Not quite sure what I was thinking about there :)	[reply]

In Section Seekers of Perl Wisdom