1234567891011121314 #!perl -wmy @files = @ARGV;for my $file (@files){ print "<DOC>\n<DOCNO>$file</DOCNO>\n"; open FILE, "<$file" or die $!; while(<FILE>){ print; } close FILE; print "</DOC>\n";}exit;
#!perl -w
my
@files
=
@ARGV
;
for
$file
(
){
print
"<DOC>\n<DOCNO>$file</DOCNO>\n"
open
FILE,
"<$file"
or
die
$!;
while
(<FILE>){
}
close
FILE;
"</DOC>\n"
exit