http://www.perlmonks.org?node_id=522580


in reply to How to get only files ending with a ,<word>

You'll have to be a bit more specific on what is not working. It seems to work just fine here:
[~/tmp]$ touch foo,bar [~/tmp]$ touch baz [~/tmp]$ touch foo,baz [~/tmp]$ touch a b c [~/tmp]$ perl test.pl . foo,bar foo,baz

Replies are listed 'Best First'.
Re^2: How to get only files ending with a ,<word>
by perlNinny (Beadle) on Jan 11, 2006 at 22:32 UTC
    Yes, you are right. What I want is this: I want the list to contain only the portion after the ,. So, using your example, I want to see bar bas and each a separate element in the list. THANKS for the help!
      Then something like:
      my @comma_extensions = map { /,(\w+)$/ ? $1 : () } @files;
      will produce what you want.

      Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
      How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart