Lines Matching defs:basename
7 basename - extract just the filename from a path
17 $basename = basename($fullname,@suffixlist);
22 $basename = basename("lib/File/Basename.pm",".pm");
39 fileparse(), basename(), and dirname(). If it contains none of
101 =item C<basename>
103 The basename() routine returns the first element of the list produced
106 programmer compatibility with the Unix shell command basename(1).
144 @EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
175 my($dirpath,$tail,$suffix,$basename);
181 ($dirpath,$basename) = ($fullname =~ /^(.*[:>\]])?(.*)/s);
186 ($dirpath,$basename) = ($fullname =~ /^((?:.*[:\\\/])?)(.*)/s);
190 ($dirpath,$basename) = ($fullname =~ m#^((?:.*[:\\/])?)(.*)#s);
195 ($dirpath,$basename) = ($fullname =~ /^(.*:)?(.*)/s);
199 ($dirpath,$basename) = ($fullname =~ /(.*[:\/])?(.*)/s);
203 ($dirpath,$basename) = ($fullname =~ m#^(.*/)?(.*)#s);
209 ($dirpath,$basename) = ($remainder =~ m#^(.*/)?(.*)#s);
220 if ($basename =~ s/$pat//s) {
228 wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
229 : ($basename .= $taint);
233 # basename() - returns first element of list returned by fileparse()
235 sub basename {
249 my($basename,$dirname) = fileparse($_[0]);
257 if( !length($basename) && $dirname !~ /^[^:]+:\z/) {
259 ($basename,$dirname) = fileparse $dirname;
265 unless( length($basename) ) {
266 ($basename,$dirname) = fileparse $dirname;
273 $dirname =~ s#[^:/]+\z## unless length($basename);
277 unless( length($basename) ) {
279 ($basename,$dirname) = fileparse $dirname;