| <![CDATA[
#!/usr/local/bin/perl
#######################################################################
# timeset0.pl : Active Perl
# Copyright(C)2002 Sannomiya , All Rights Reserved.
# 日付変更できるツール
#######################################################################
#
# 履歴
# 2002.09.12 Ver 1.00 新規作成
#######################################################################
$jisa = 6;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year=$year+1900;
$mon=$mon+1;
printf ("this date : %04d-%02d-%02d time : %02d:%02d:%02d\n",
$year,$mon,$mday,$hour,$min,$sec);
# date 保存
$back1 = sprintf("date %04d-%02d-%02d",$year,$mon,$mday);
# time 保存
$back2 = sprintf("time %02d:%02d:%02d.00",$hour,$min,$sec+$jisa);
$cmd = @ARGV[0];
$ret = system("date $cmd"); # 日付変更
if ( $ret == 127 ) {
print STDERR "Execution error occur on date\n";
exit 1;
}
$cmd = @ARGV[1];
$ret = system("time $cmd"); # 時刻変更
if ( $ret == 127 ) {
print STDERR "Execution error occur on time\n";
exit 1;
}
printf ("change date : %s time : %s\n",@ARGV[0],@ARGV[1]);
sleep $jisa;
$ret = system($back2); # 時間を戻す
if ( $ret == 127 ) {
print STDERR "Execution error occur on time_back\n";
exit 1;
}
$ret = system($back1); # 日付を戻す
if ( $ret == 127 ) {
print STDERR "Execution error occur on date_back\n";
exit 1;
}
exit 0;
##########End_Of_Script
]]> |