Re^3: How to remove the words before the dot using perl?

c:\@Work\Perl\monks>perl -wMstrict -le
"my @files = qw(blah.config boo.config big.config);
 ;;
 for (@files) {
   my $scalar_variable = $_;
   printf qq{'$scalar_variable' -> };
   $scalar_variable =~ s{ \A [^.]* }{}xms;
   print qq{'$scalar_variable'};
   }
"
'blah.config' -> '.config'
'boo.config' -> '.config'
'big.config' -> '.config'
[download]

Give a man a fish: <%-{-{-{-<

Comment on Re^3: How to remove the words before the dot using perl? Select or Download Code

Replies are listed 'Best First'.
Re^4: How to remove the words before the dot using perl? by finddata (Sexton) on Mar 16, 2017 at 06:37 UTC
its working fine	[reply]