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";


Replies are listed 'Best First'.
Re^2: regular expression
by AnomalousMonk (Bishop) on Feb 28, 2010 at 05:57 UTC

    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 :)