Without a module:

use strict;
use warnings;

my @files = ('blah.config', 'boo.config', 'big.config');

for my $file (@files) {
  print ((split /\./, $file)[-1] . "\n") ;
}

[download]

Explanation: The for loop iterates over the @files array, placing each element in the $file variable. Inside the loop, the $file is passed through a split which divides the string into chunks based on the regular expression inside the slanted lines, in this case a period escaped with a backslash. Without the backslash, period would not be a literal period and could be any character. Read up on "regular expressions" if you aren't familiar. The split function returns an array of all the chunks (in your case, two chunks) for each file name. Since we are interested in the last element of the array (everything following the last period), we can access it with the [-1] there outside of the parentheses. Read up on arrays if you aren't familiar with array syntax. All this gets passed to a print function which we add a new line to with the second period you see there (this is called string concatenation).

See File::Basename for doing it with a module.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

In reply to Re: How to remove the words before the dot using perl? by nysus
in thread How to remove the words before the dot using perl? by finddata

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.