+ ■ 作りかけのperlスクリプト
@rem = ' ;
@echo off
perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofbat
@rem ' ;
### Beginning of Perl Script
while ( $ARGV[ 0 ] ne '' ) {
$rfname = $ARGV[ 0 ];
@body = &ReadFile( $rfname );
WriteFile( "con", @body );
shift @ARGV;
}
exit(0);
sub ReadFile {
my @file;
my( $filename ) = @_;
open( FILE , "$filename" );
@file = ;
close FILE;
return @file;
}
sub WriteFile {
my( $filename , @body ) = @_;
open( OUT , ">$filename" );
print OUT @body;
close OUT;
}
### End of Perl Script
__END__
:endofbat
(2005/05/20 13:50:00)
2005/05/20 作成