Lines Matching refs:filename
155 my ($filename, @arr) = @_;
158 if(!$filename) {
161 elsif(open(my $textfh, ">", $filename)) {
167 $error = "Error: cannot close file $filename";
171 $error = "Error: cannot write file $filename";
181 my $filename = $_[0];
182 print "=== Start of file $filename\n";
183 if(open(my $displayfh, "<", "$filename")) {
189 print "=== End of file $filename\n";
284 my $filename = $_[0];
288 return find_file($filename, @spath);
296 my $filename = $_[0];
300 return find_exe_file($filename, @hpath);
