おれさま手帖 KYOTO-STYLE :作りかけのperlスクリプト


DiaryHome| 管理用:

見出し



日記過去ログ

1999: 6 7 8 9 10 11 12
2000: 1 2 3 4 5 6 7 8 9 10 11 12
2001: 1 2 3 4 5 6 7 8 9 10 11 12
2002: 1 2 3 4 5 6 7 8 9 10 11 12
2003: 1 2 3 4 5 6 7 8 9 10 11 12
2004: 1 2 3 4 5 6 7 8 9 10 11 12
2005: 1 2 3 4 5 6 7 8 9 10 11 12
2006: 1 2 3 4 5 6 7 8 9 10 11 12
2007: 1 2 3 4 5 6 7 8 9 10 11 12
2008: 1 2 3 4 5 6 7 8 9 10 11 12
2009: 1 2 3 4 5 6 7 8 9 10 11 12
2010: 1 2 3 4 5 6 7 8 9 10 11 12
2011: 1 2 3 4 5 6 7 8 9 10 11 12
2012: 1 2 3 4 5 6 7 8 9 10 11 12
2013: 1 2 3 4 5 6 7 8 9 10 11 12
2014: 1 2 3 4 5 6 7 8 9 10 11 12
2015: 1 2 3 4 5 6 7 8 9 10 11 12
2016: 1 2 3 4 5 6 7 8 9 10 11 12
2017: 1 2 3 4 5 6 7 8 9 10 11 12
2018: 1 2 3 4 5 6 7 8 9 10 11 12
2019: 1 2 3 4 5 6 7 8 9 10 11 12
2020: 1 2 3 4 5 6 7 8 9 10 11 12
2021: 1 2 3 4 5 6 7 8 9 10 11 12
2022: 1 2 3 4 5 6 7 8 9 10 11 12
2023: 1 2 3 4 5 6 7 8 9 10 11 12
2024: 1 2 3

最近のキーワード


+作りかけの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 作成


[Top] [Homepage] [Diary]