Lines Matching refs:directory
38 $statsdir = $opts->{directory};
39 $outputdir = $opts->{'output-directory'};
51 die "$statsdir: no such directory" unless (-d $statsdir);
52 die "$outputdir: no such directory" unless (-d $outputdir);
69 opendir SDIR, $statsdir or die "directory ${statsdir}: $!";
124 my ($directory, $fname, $out_file) = @_;
125 print "$directory/$fname\n";
126 open INPUT, "$directory/$fname" or warn "can't open $directory/$fname: $!";
184 warn "no valid lines in $directory/$fname";
193 my ($directory, $fname, $out_file) = @_;
194 print "$directory/$fname\n";
195 open INPUT, "$directory/$fname" or warn "can't open $directory/$fname: $!";
285 my ($directory, $fname, $out_file) = @_;
286 print "$directory/$fname\n";
287 open INPUT, "$directory/$fname";