Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Regex To Remove File Extension

by johngg (Canon)
on Dec 11, 2008 at 00:14 UTC ( [id://729566]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $rxParsePath = qr
       {(?x)               # Use extended regular expression syntax to
    ...
                           # be a file name part
          $                # Anchor pattern to end of string
       };
    
  2. or download this
    use strict;
    use warnings;
    ...
       map { sprintf qq{%20s%15s%15s%10s%10s\n}, @$_ }
       map { [ $_, map { defined $_ ? $_ : q{} } m{$rxParsePath} ] }
       qw  { /etc/motd /var/adm/messages.1 .alias a.html ab.cd.txt /bin };
    
  3. or download this
                    Path      Directory      File Name File Stub Extension
               /etc/motd          /etc/           motd      motd
    ...
                  a.html                        a.html         a     .html
               ab.cd.txt                     ab.cd.txt     ab.cd      .txt
                    /bin              /            bin       bin
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://729566]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2024-03-29 01:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found