0576. [Perl] (CPAN) <File::Basename> File::Basename

File::Basename 은 내장되어있는 perl 모듈이다.

 

#!/usr/bin/perl

use warnings;

use strict;

use File::Basename;

 

my $name = "/usr/local/bin/perl.pl";

my ($filename, $directories, $suffix) = fileparse($name, qr/\.[^.]*/);

print "filename = $filename\ndirectories = $directories\nsuffix = $suffix\n";