← Index
NYTProf Performance Profile   « line view »
For split.pl
  Run on Thu Apr 20 02:05:47 2023
Reported on Thu Apr 20 18:31:09 2023

Filename/usr/lib/x86_64-linux-gnu/perl-base/File/Basename.pm
StatementsExecuted 102 statements in 934µs
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
32229µs35µsFile::Basename::::fileparseFile::Basename::fileparse
11120µs40µsFile::Basename::::fileparse_set_fstypeFile::Basename::fileparse_set_fstype
101118µs18µsFile::Basename::::CORE:regcompFile::Basename::CORE:regcomp (opcode)
21113µs13µsFile::Basename::::CORE:substFile::Basename::CORE:subst (opcode)
21113µs52µsFile::Basename::::dirnameFile::Basename::dirname
13217µs7µsFile::Basename::::CORE:matchFile::Basename::CORE:match (opcode)
1117µs7µsFile::Basename::::BEGIN@13File::Basename::BEGIN@13
1116µs6µsFile::Basename::::BEGIN@5File::Basename::BEGIN@5
2116µs19µsFile::Basename::::_strip_trailing_sepFile::Basename::_strip_trailing_sep
1114µs4µsFile::Basename::::BEGIN@184File::Basename::BEGIN@184
1114µs6µsFile::Basename::::BEGIN@12File::Basename::BEGIN@12
1114µs22µsFile::Basename::::BEGIN@14File::Basename::BEGIN@14
0000s0sFile::Basename::::basenameFile::Basename::basename
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package File::Basename;
2
3# File::Basename is used during the Perl build, when the re extension may
4# not be available, but we only actually need it if running under tainting.
5
# spent 6µs within File::Basename::BEGIN@5 which was called: # once (6µs+0s) by main::BEGIN@15 at line 10
BEGIN {
612µs if (${^TAINT}) {
7 require re;
8 re->import('taint');
9 }
10114µs16µs}
# spent 6µs making 1 call to File::Basename::BEGIN@5
11
12216µs28µs
# spent 6µs (4+2) within File::Basename::BEGIN@12 which was called: # once (4µs+2µs) by main::BEGIN@15 at line 12
use strict;
# spent 6µs making 1 call to File::Basename::BEGIN@12 # spent 2µs making 1 call to strict::import
13224µs17µs
# spent 7µs within File::Basename::BEGIN@13 which was called: # once (7µs+0s) by main::BEGIN@15 at line 13
use 5.006;
# spent 7µs making 1 call to File::Basename::BEGIN@13
142729µs241µs
# spent 22µs (4+18) within File::Basename::BEGIN@14 which was called: # once (4µs+18µs) by main::BEGIN@15 at line 14
use warnings;
# spent 22µs making 1 call to File::Basename::BEGIN@14 # spent 18µs making 1 call to warnings::import
15our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase);
161500nsrequire Exporter;
1716µs@ISA = qw(Exporter);
181500ns@EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
191200ns$VERSION = "2.85";
20
2111µs140µsfileparse_set_fstype($^O);
# spent 40µs making 1 call to File::Basename::fileparse_set_fstype
22
23
# spent 35µs (29+6) within File::Basename::fileparse which was called 3 times, avg 12µs/call: # 2 times (17µs+3µs) by File::Basename::dirname at line 134, avg 10µs/call # once (12µs+2µs) by Data::Printer::Config::_project_home at line 68 of Data/Printer/Config.pm
sub fileparse {
2431µs my($fullname,@suffices) = @_;
25
263600ns unless (defined $fullname) {
27 require Carp;
28 Carp::croak("fileparse(): need a valid pathname");
29 }
30
313800ns my $orig_type = '';
3231µs my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
33
3432µs my($taint) = substr($fullname,0,0); # Is $fullname tainted?
35
3631µs if ($type eq "VMS" and $fullname =~ m{/} ) {
37 # We're doing Unix emulation
38 $orig_type = $type;
39 $type = 'Unix';
40 }
41
423600ns my($dirpath, $basename);
43
4436µs if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
45 ($dirpath,$basename) = ($fullname =~ /^((?:.*[:\\\/])?)(.*)/s);
46 $dirpath .= '.\\' unless $dirpath =~ /[\\\/]\z/;
47 }
48 elsif ($type eq "OS2") {
49 ($dirpath,$basename) = ($fullname =~ m#^((?:.*[:\\/])?)(.*)#s);
50 $dirpath = './' unless $dirpath; # Can't be 0
51 $dirpath .= '/' unless $dirpath =~ m#[\\/]\z#;
52 }
53 elsif ($type eq "MacOS") {
54 ($dirpath,$basename) = ($fullname =~ /^(.*:)?(.*)/s);
55 $dirpath = ':' unless $dirpath;
56 }
57 elsif ($type eq "AmigaOS") {
58 ($dirpath,$basename) = ($fullname =~ /(.*[:\/])?(.*)/s);
59 $dirpath = './' unless $dirpath;
60 }
61 elsif ($type eq 'VMS' ) {
62 ($dirpath,$basename) = ($fullname =~ /^(.*[:>\]])?(.*)/s);
63 $dirpath ||= ''; # should always be defined
64 }
65 else { # Default to Unix semantics.
66311µs36µs ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
# spent 6µs making 3 calls to File::Basename::CORE:match, avg 2µs/call
673700ns if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
68 # dev:[000000] is top of VMS tree, similar to Unix '/'
69 # so strip it off and treat the rest as "normal"
70 my $devspec = $1;
71 my $remainder = $3;
72 ($dirpath,$basename) = ($remainder =~ m{^(.*/)?(.*)}s);
73 $dirpath ||= ''; # should always be defined
74 $dirpath = $devspec.$dirpath;
75 }
763700ns $dirpath = './' unless $dirpath;
77 }
78
79
8031µs my $tail = '';
813800ns my $suffix = '';
823400ns if (@suffices) {
83 foreach $suffix (@suffices) {
84 my $pat = ($igncase ? '(?i)' : '') . "($suffix)\$";
85 if ($basename =~ s/$pat//s) {
86 $taint .= substr($suffix,0,0);
87 $tail = $1 . $tail;
88 }
89 }
90 }
91
92 # Ensure taint is propagated from the path to its pieces.
933900ns $tail .= $taint;
9437µs wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
95 : ($basename .= $taint);
96}
97
98sub basename {
99 my($path) = shift;
100
101 # From BSD basename(1)
102 # The basename utility deletes any prefix ending with the last slash '/'
103 # character present in string (after first stripping trailing slashes)
104 _strip_trailing_sep($path);
105
106 my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
107
108 # From BSD basename(1)
109 # The suffix is not stripped if it is identical to the remaining
110 # characters in string.
111 if( length $suffix and !length $basename ) {
112 $basename = $suffix;
113 }
114
115 # Ensure that basename '/' == '/'
116 if( !length $basename ) {
117 $basename = $dirname;
118 }
119
120 return $basename;
121}
122
123
# spent 52µs (13+39) within File::Basename::dirname which was called 2 times, avg 26µs/call: # 2 times (13µs+39µs) by main::BEGIN@35 at line 36 of /home/hejohns/documentsNoSync/22f/490/gradescope-utils/bin/split.pl, avg 26µs/call
sub dirname {
1242500ns my $path = shift;
125
1262900ns my($type) = $Fileparse_fstype;
127
1282700ns if( $type eq 'VMS' and $path =~ m{/} ) {
129 # Parse as Unix
130 local($File::Basename::Fileparse_fstype) = '';
131 return dirname($path);
132 }
133
13423µs220µs my($basename, $dirname) = fileparse($path);
# spent 20µs making 2 calls to File::Basename::fileparse, avg 10µs/call
135
13622µs if ($type eq 'VMS') {
137 $dirname ||= $ENV{DEFAULT};
138 }
139 elsif ($type eq 'MacOS') {
140 if( !length($basename) && $dirname !~ /^[^:]+:\z/) {
141 _strip_trailing_sep($dirname);
142 ($basename,$dirname) = fileparse $dirname;
143 }
144 $dirname .= ":" unless $dirname =~ /:\z/;
145 }
146 elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) {
147 _strip_trailing_sep($dirname);
148 unless( length($basename) ) {
149 ($basename,$dirname) = fileparse $dirname;
150 _strip_trailing_sep($dirname);
151 }
152 }
153 elsif ($type eq 'AmigaOS') {
154 if ( $dirname =~ /:\z/) { return $dirname }
155 chop $dirname;
156 $dirname =~ s{[^:/]+\z}{} unless length($basename);
157 }
158 else {
15922µs219µs _strip_trailing_sep($dirname);
# spent 19µs making 2 calls to File::Basename::_strip_trailing_sep, avg 9µs/call
1602400ns unless( length($basename) ) {
161 ($basename,$dirname) = fileparse $dirname;
162 _strip_trailing_sep($dirname);
163 }
164 }
165
16623µs $dirname;
167}
168
169# Strip the trailing path separator.
170
# spent 19µs (6+13) within File::Basename::_strip_trailing_sep which was called 2 times, avg 9µs/call: # 2 times (6µs+13µs) by File::Basename::dirname at line 159, avg 9µs/call
sub _strip_trailing_sep {
1712300ns my $type = $Fileparse_fstype;
172
17323µs if ($type eq 'MacOS') {
174 $_[0] =~ s/([^:]):\z/$1/s;
175 }
176 elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) {
177 $_[0] =~ s/([^:])[\\\/]*\z/$1/;
178 }
179 else {
180216µs213µs $_[0] =~ s{(.)/*\z}{$1}s;
# spent 13µs making 2 calls to File::Basename::CORE:subst, avg 7µs/call
181 }
182}
183
184
# spent 4µs within File::Basename::BEGIN@184 which was called: # once (4µs+0s) by main::BEGIN@15 at line 207
BEGIN {
185
18611µsmy @Ignore_Case = qw(MacOS VMS AmigaOS OS2 RISCOS MSWin32 MSDOS DOS Epoc);
18714µsmy @Types = (@Ignore_Case, qw(Unix));
188
189
# spent 40µs (20+20) within File::Basename::fileparse_set_fstype which was called: # once (20µs+20µs) by main::BEGIN@15 at line 21
sub fileparse_set_fstype {
1901200ns my $old = $Fileparse_fstype;
191
1921300ns if (@_) {
1931800ns my $new_type = shift;
194
1951200ns $Fileparse_fstype = 'Unix'; # default
1961400ns foreach my $type (@Types) {
1971036µs2020µs $Fileparse_fstype = $type if $new_type =~ /^$type/i;
# spent 18µs making 10 calls to File::Basename::CORE:regcomp, avg 2µs/call # spent 2µs making 10 calls to File::Basename::CORE:match, avg 190ns/call
198 }
199
200 $Fileparse_igncase =
20111µs (grep $Fileparse_fstype eq $_, @Ignore_Case) ? 1 : 0;
202 }
203
20411µs return $old;
205}
206
207123µs14µs}
# spent 4µs making 1 call to File::Basename::BEGIN@184
208
20914µs1;
210
 
# spent 7µs within File::Basename::CORE:match which was called 13 times, avg 577ns/call: # 10 times (2µs+0s) by File::Basename::fileparse_set_fstype at line 197, avg 190ns/call # 3 times (6µs+0s) by File::Basename::fileparse at line 66, avg 2µs/call
sub File::Basename::CORE:match; # opcode
# spent 18µs within File::Basename::CORE:regcomp which was called 10 times, avg 2µs/call: # 10 times (18µs+0s) by File::Basename::fileparse_set_fstype at line 197, avg 2µs/call
sub File::Basename::CORE:regcomp; # opcode
# spent 13µs within File::Basename::CORE:subst which was called 2 times, avg 7µs/call: # 2 times (13µs+0s) by File::Basename::_strip_trailing_sep at line 180, avg 7µs/call
sub File::Basename::CORE:subst; # opcode
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.