Lines Matching refs:directory
37 $statsdir = $opts->{directory};
38 $outputdir = $opts->{'output-directory'};
50 die "$statsdir: no such directory" unless (-d $statsdir);
51 die "$outputdir: no such directory" unless (-d $outputdir);
68 opendir SDIR, $statsdir or die "directory ${statsdir}: $!";
123 my ($directory, $fname, $out_file) = @_;
124 print "$directory/$fname\n";
125 open INPUT, "$directory/$fname" or warn "can't open $directory/$fname: $!";
183 warn "no valid lines in $directory/$fname";
192 my ($directory, $fname, $out_file) = @_;
193 print "$directory/$fname\n";
194 open INPUT, "$directory/$fname" or warn "can't open $directory/$fname: $!";
284 my ($directory, $fname, $out_file) = @_;
285 print "$directory/$fname\n";
286 open INPUT, "$directory/$fname";