Lines Matching refs:FILE
20 my $firstenum = 1; # Is this the first enumeration per file?
37 my $file = shift;
41 while (<$file>) {
45 defined ($new = <$file>) || die "Unmatched comment in $ARGV";
68 my $file= "../$1";
69 open NEWFILE, $file or die "Cannot open include file $file: $!\n";
141 print " --fhead <text> Output file header\n";
142 print " --fprod <text> Per input file production\n";
143 print " --ftail <text> Output file trailer\n";
149 print " --template file Template file\n";
162 print " \@filename\@ name of current input file\n";
167 my $fhead = ""; # output file header
168 my $fprod = ""; # per input file production
169 my $ftail = ""; # output file trailer
178 my ($file) = @_;
179 my %tmpl = ('file-header', $fhead,
180 'file-production', $fprod,
181 'file-tail', $ftail,
188 open (FILE, $file) || die "Can't open $file: $!\n";
189 while (<FILE>) {
199 die "Malformed template file $file\n";
206 close (FILE);
208 die "Malformed template file $file\n";
210 $fhead = $tmpl{'file-header'};
211 $fprod = $tmpl{'file-production'};
212 $ftail = $tmpl{'file-tail'};
