15.1 indexを使って部分文字列を探す。 #!/usr/bin/perluse warnings; use strict;# 文字列"Howdy world!"からwが初めて出てくる位置を検索 my $shuff="Howdy world!"; my $where1=index($shuff,"w"); print "$where1\n";# 文字列"Howdy world!"から２回目の…

練習問題13.9.1 rmコマンドと同じ働きをするプログラムを書け。 このプログラムは、コマンドラインに指定したファイルを削除する #!/usr/bin/perluse warnings; use strict;foreach (@ARGV){ unlink $_ or warn "Can't delete $_ \n"; } 練習問題13.9.2 mvコ…

13.1 ファイルを削除する unlink を用いて指定ファイルを削除する #!/usr/bin/perluse warnings; use strict;foreach(){ unlink $_ or warn "Can't delete $_ : $!\n"; } 13.2 ファイルの名前を変更する rename を用いてファイルの名前を変更する #! /usr/bi…

練習問題1.6.1 まずユーザからディレクトリ名を入力してもらい、そのディレクトリに移動する。 もし、ユーザが入力した行に空白文字だけしか含まれていなければ、デフォルトに 移動します。デフォルトの動作として、そのユーザのホームディレクトリに移動し…

練習問題 11.7.3 コマンドラインからファイル名のリストを受け取って、 そのうち最も古いファイルの名前とその古さを日数単位で表示する プログラムを書く #! /usr/bin/perluse warnings; use strict;sub cmp_file{ die "There is not a file\n" unless @_; …

また、テスターに逆戻りかよ!!

練習問題 11.7.2 コマンドラインからファイル名のリストを受け取って、その１つ１つについて、 読み出し可能か、書き込み可能か、実行可能か、存在しないかを表示するプログラムを 書く。 #! /usr/bin/perluse strict; use warnings;sub check_file{ foreach…

練習問題 11.7.1 ユーザから入力ファイル名、出力ファイル名、サブルーチン、置き換え文字列を 入力してもらうようなプログラマを書いてください。 （これらは、コマンドラインから取得するのではなく、対話式に入力してもらうこと） #! /usr/bin/perl -wuse…