#現在のディレクトリのファイル一覧を表示する #ディレクトリの内容を読み込み表示する #readdir.pl #現在のディレクトリ(.)をオープンする opendir(DIR, ".") || die ".をオープンできません：$!\n"; #配列に読み込む @files = readdir(DIR); #クローズする…

#指定したディレクトリを削除するスクリプト #rmdir.pl print "削除するディレクトリ名を指定してください>"; $directory = <STDIN>; chomp($directory); if(-d $directory){ #ディレクトリがすでにある #ディレクトリを削除 rmdir($directory) || die "$directory</stdin>…

#指定したディレクトリが存在するかどうか調べ、存在しない時は新しく作成する #指定したディレクトリを作成 #mkdir.pl print "作成するディレクトリ名を指定してください>"; $directory = <STDIN>; chomp($directory); if(!-d $directory){ #ディレクトリがまだな</stdin>…

#ファイル名を引数として受け取り、ファイルの有無を確認した後、 # 「＜ファイル名＞を削除しますか？(Y/N):」というメッセージを出して、Yが押された時のみファイルを削除するスクリプト #ファイルの削除時に確認する #remove_ask.pl $filename = $ARGV[0]…

#指定した引数をファイル名として扱い、そのファイルの所有者がユーザ自信であり、読み込み権限を持っていれば、既存の権限に加えて所有者とグループの書込権限を付けるスクリプト #既存のファイルに権限を追加する #append_mod.pl if(@ARGV > 0){ if(-o $AR…

#指定したファイルの詳細な情報を表示する #stat.pl print "ファイル名を指定してください>"; $file = <STDIN>; chomp($file); #statで情報を取得 ($device, $inode, $mode, $nlink, $userid, $groupid, $rdev, $size, $accesstime, $modifytime, $changetime, $blo</stdin>…

#chmod関数を使って指定したファイルの読み込み、書込、実行権限をそれぞれ変更する #ファイル権限の変更 #chmod.pl print "ファイル名を指定してください＞"; $file = <STDIN>; chomp($file); #初期状態を表示 print "初期状態:\n"; &fileinfo(); print "権限値を1</stdin>…

#引数をファイル名とみなして、各情報を調べる #ファイルのテスト #filetest.pl if(@ARGV > 0){ #最初の引数をファイル名とみなす print "$ARGV[0] は通常のファイルです\n" if(-e $ARGV[0]); print "$ARGV[0] はディレクトリです。\n" if(-d $ARGV[0]); pri…

#指定したファイルを削除する #unlink.pl $file = <STDIN>; chomp($file); unlink($file) || die "$fileを削除できません:$!\n"; #実行結果 # $ perl unlink.pl # testtesttesttxt 初めてのPerl 第6版作者: Randal L. Schwartz,brian d foy,Tom Phoenix,近藤嘉雪出</stdin>…

#指定したファイルを指定した名前に変更するスクリプト #ファイル名の変更 #rename.pl print "変更前のファイル名＞"; $from_file = <STDIN>; print "変更後のファイル名>"; $to_file = <STDIN>; chomp($from_file, $to_file); #名前の変更 rename($from_file, $to_file) |</stdin></stdin>…

#キーボードの入力を、キーワードENDを含んだ文字列が入るまで、そのまま標準エラー出力に表示するスクリプト while(1){ $string = <STDIN>; if($string =~ /END/){ exit; }else{ print STDERR $string; } } #実行結果 # abc # abc # def # def # ghi # ghi # END </stdin>…

#引数の数と内容を表示する。 #引数の数を表示 print "ARGVの数：".@ARGV."\n"; #各引数の内容を表示 for($number = 0; $number< @ARGV; $number++){ print "引数$number: $ARGV[$number]\n"; } #実行結果 # $ perl argv.pl # ARGVの数：0 # $ perl argv.pl …

#標準入力または引数に指定したファイルをそのまま表示する #標準入力とファイルの双方を受け取るスクリプト #which.pl #標準入力、ファイルのどちらかを取得 while(<>){ #内容を表示 print; } #perl which.plのように引数を指定しないで実行すると、標準入…

#出力先を標準出力と標準エラー出力に分ける #標準出力と標準エラー出力の違い #std.pl #標準出力 print STDOUT "標準出力に出力しています。\n"; #標準エラー出力 print STDERR "標準エラー出力に出力しています。\n"; #実行結果 # $ perl std.pl # 標準出…

#標準入力からの入力を受け、それをそのまま表示する。（エコーバック）実行後、文字列を入力してEnterキーを押すと画面にその文字列を表示した後、また入力を待つ。QUITを含む文字列を入力するとスクリプトを終了する。 #入力をそのままエコーする #echo.pl…

#コピー元のファイル名とコピー先のファイル名を入力するとファイルのコピーを行うスクリプト #ファイルの内容を別のファイル名のファイルにコピーする #copy2.pl print "コピー元のファイル名を指定してください>"; $from_file = <STDIN>; print "コピー先のファイ</stdin>…

#output.txtを追加書き出し用としてオープンし文字列を追加する #追加出力ファイルに文字列を書き出す # append.pl #追加出力ファイルとしてオープン open(F, ">>output.txt") || die "output.txtに追加できません。$!\n"; #文字列をファイルハンドルFに書き…

#output.txtを書き出し用としてオープンし、文字列を書き出す #出力ファイルに文字列を書き出す #write.pl #新規出力用としてオープン open(F, ">output.txt") || die "output.txtを作成できません:$!\n"; #文字列をファイルハンドルFに書き出し print F "こ…

オープンするためのファイルを作成しておく てすとてきすと テストテキスト test.txt ファイルをオープンして内容を表示するスクリプト #ファイルtest.txtを読み込み専用でオープンした後、その内容を画面に表示してからクローズする。 #ファイルをオープン…

#utf8モジュールを使って、UTF-8文字エンコーディングで日本語変数名を指定する。 #UTF-8の変数名を使う # utf8_consumption_duty.pl #モジュール呼び出し use utf8; $消費税率 = 0.08; print "subtotal: "; $小計金額 = <STDIN>; chomp($小計金額); $消費税額 = $</stdin>…