Your current issue is that \w only matches letters, numbers and the underscore, but not dashes. You can say “match everything \w matches as well as these other characters” by putting it inside a character class: [\w-].

Your next issue will be that you forgot to escape your periods, so your regex as it stands will match be_a_hippy/smoke_pot. You want to write (\.txt|\.doc|\.pdf|\.vsd|\.xls|\.xlt|\.dot|\.pot|\.ppt|\.mpp).

Well, actually, you don’t want to write that, you want to write \.(txt|doc|pdf|vsd|xls|xlt|dot|pot|ppt|mpp).

And (outside the fact that this also constitutes a microoptimisation) I’d want to group someone of those, using character classes, because they belong to the same application: \.(txt|do[ct]|pdf|vsd|xl[st]|p[op]t|mpp).

Which brings us to

$abspath =~ m{ / [\w-]+ \.(txt|do[ct]|pdf|vsd|xl[st]|.p[op]t|mpp) \z }
+msx;
[download]

I used \z, because that means end-of-string, whereas $ means end-of-string plus a variety of subtly different things. I also took the liberty of using the m// syntax instead of an unadorned // so that I could use delimiters other than the / – that way the / inside the regex needn’t be escaped. I took the additional liberty of adding /x so that whitespace inside the regex becomes insignificant – then you can use spacing, linebreaks and the like to structure the regex. Lastly, on TheDamnian’s suggestion from Perl Best Practices, I always also add /m and /s to my patterns out of habit.

Makeshifts last the longest.

Hi ramthen, Try this,

use strict;
use File::Basename;

my @f_path=qw(Framework/Templates_Doc.Conventions/CSSP_TPL_Excel_Meta-
+Template.xlt Engineering/SBI/PD_PRC/Overall_SWReleaseFlow_v0.1.vsd); 

for (@f_path){
my ($dir) =dirname($_);
my ($fname) =basename($_);
print "\n\nOriginal  : $_";
print "\nDirectory : $dir";
print "\nFielname  : $fname\n";
}
__END__

Original  : Framework/Templates_Doc.Conventions/CSSP_TPL_Excel_Meta-Te
+mplate.xlt
Directory : Framework/Templates_Doc.Conventions
Fielname  : CSSP_TPL_Excel_Meta-Template.xlt


Original  : Engineering/SBI/PD_PRC/Overall_SWReleaseFlow_v0.1.vsd
Directory : Engineering/SBI/PD_PRC
Fielname  : Overall_SWReleaseFlow_v0.1.vsd
[download]

Updated : Using Regular Expression, Change the above for loop by the following:

for (@f_path){
my ($dir, $fname)= $_ =~ /^(.*?)[\\\/]([^\\\/]+)$/;
print "\n\nOriginal  : $_";
print "\nDirectory : $dir";
print "\nFielname  : $fname\n";
}
[download]

Hello Perl-ers,

Am back. I was looking at CPAN for modules to do recursive copying and hit upon one module.

Is there a way to do this recursive copying using nay of the standard modules ?

Happy X-mas wishes to all of you,

thanks in advance Mp> Mars

/\/[-.\w]+(.txt|.doc|.pdf|.vsd|.xls|.xlt|.dot|.pot|.ppt|.mpp)$/
[download]

This assumes that the general logic is correct. Here, we only got the strings to match, in the spirit of the original regex.

use strict;
use warnings;

my ($base, $file);

while (<DATA>) {
    chomp;
    ($base, $file) = m/(.*\/)([^\/]*)/;
    print "Orig : $_\n" .
          "Base : $base\n" .
          "File : $file\n\n";    
}

__DATA__
Framework/Templates_Doc.Conventions/CSSP_TPL_Process_Procedure_Descrip
+tion.xls
Framework/Templates_Doc.Conventions, , /CSSP_TPL_Training_Material.pot
Framework/Templates_Doc.Conventions/CSSP_TPL_Excel_Meta-Template.xlt
Engineering/SBI/PD_PRC/Overall_SWReleaseFlow_v0.1.vsd
[download]