perl copyモジュール
#File::Copyを使ってファイルをコピー #copy.pl #モジュール呼び出し #File::Copyモジュールを呼び出す use File::Copy; #引数が二つ以上の時はusageサブルーチンを呼び出してコピー命令の使い方を表示する。 if(@ARGV != 2){ #引数が2つ以上の時には使い方を表示 &usage(); } #モジュールのルーチン実行 #引数をたd如く2つ指定した場合はcopyサブルーチンを実行する。 #エラーの判定には$!にエラー原因が入る(特殊な変数) copy($ARGV[0], $ARGV[1]); print "コピー中にエラーが発生しました($!)。\n" if($!); #使い方を表示 #使い方を表示した後exit関数によってスクリプトを終了する。 sub usage{ print <<EOT copy.pl:ファイルのコピー copy.pl コピー元ファイル名 コピー先ファイル名 EOT ; exit(1); } #コマンドラインにperl copy.pl test.txt xxx.txt # と入力してスクリプトを実行すると現在のディレクトリにあるファイルtet.txtがxxx.txtにコピーされる。
- 作者: Randal L. Schwartz,brian d foy,Tom Phoenix,近藤嘉雪
- 出版社/メーカー: オライリージャパン
- 発売日: 2012/07/25
- メディア: 大型本
- 購入: 7人 クリック: 22回
- この商品を含むブログ (17件) を見る