2006-01-01から1年間の記事一覧
オブジェクト指向が、変過ぎないか?の件
4章の問題に引っかかる。
podwebserver を使ってみる1.インストール cpan install Pod::Webserver2.コマンドライン podwebserver3.Brawse http://localhost:8020以上の順番で、podwebserverを立ち上げると、 自身のPCに入っているPerlのモジュールのDocumentが ブラウザで読め…
16、17章は、週末にでもうpします。 ということで、ひとまず「初めてのPerl」終了です。 学習開始が、7月9日だったと思うから、約3ヶ月。 よくやったよ、自分。
あとでうpする。
あとでうpする。
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!"から2回目の…
練習問題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 コマンドラインからファイル名のリストを受け取って、その1つ1つについて、 読み出し可能か、書き込み可能か、実行可能か、存在しないかを表示するプログラムを 書く。 #! /usr/bin/perluse strict; use warnings;sub check_file{ foreach…
練習問題 11.7.1 ユーザから入力ファイル名、出力ファイル名、サブルーチン、置き換え文字列を 入力してもらうようなプログラマを書いてください。 (これらは、コマンドラインから取得するのではなく、対話式に入力してもらうこと) #! /usr/bin/perl -wuse…
練習問題 10.10 1から100までの間から選んだ秘密の数を、ユーザに当ててもらうプログラム。 数字が当たった時、exit、quit、空白の場合は、プログラムを終了させる。 入力した数字が大きければ、'To higt'と表示してやりなおし。 入力した数字が小さければ、…
なんか、浮かんだら書く。
まるごとPerl! Vol.1作者: 小飼弾,宮川達彦,伊藤直也,川合孝典,水野貴明出版社/メーカー: インプレス発売日: 2006/08/24メディア: 大型本購入: 7人 クリック: 123回この商品を含むブログ (115件) を見るWeb+DB press (Vol.31)作者: 稲田弘樹,佐藤正明,大酒桜…
10.8.1 last演算子 #! /usr/bin/perluse warnings; use strict;for(){ if(/__END__/){ last; }elsif(/fred/){ print; } } 10.8.2 next演算子 #! /usr/bin/perluse warnings;while(<>){ foreach(split){ # split /\s+/, $_ な意味 $total++; next if /\W/; $v…
練習問題 9.9.1 $whatに入っているものが3回連続して現れるものにマッチするようなパタンを書く。 #! /usr/bin/perluse warnings; use strict;my $what = "fred|barney";while(<>){ chomp; if(/($what){3}/){ print "matched : $& \n"; } } 練習問題 9.9.2 p…
なんか,多く書きすぎた。 解説は省いておく。9.1 m//を使ってマッチを行う 9.2 オプション修飾子 9.2.1 大文字と小文字を区別せずにマッチする /i : 大文字と小文字を区別しないで、パタンマッチを行う。 #! /usr/bin/perluse warnings; use strict;print "…
練習問題 8.6.1 7章で作成したテストプログラムを用いて、ワードfredまたはwilmaがあり、 次に何個かの空白文字があり、その後ろにワードflintstoneがあるような 行だけにマッチするパタンを作成する。 #! /usr/bin/perluse warnings; use strict;while(<>){…
8.1 文字クラス 文字クラス 一対のブラケット([])の間に文字を並べたもの。 サンプルプログラム#! /usr/bin/perluse warnings; use strict;$_ = "The HAL-9000 requires authorizaion to continue";if(/HAL-[0-9]+/){ print "The string mentions some mod…
夏休み10日間。 就職の面接とPerlとラノベの夏休み。
7.4.3 テストプログラムを使って、任意個の逆スラッシュの後ろに、 任意個のアスタリスクが続くような部分を持った、すべての 文字列にマッチするパタンを作成してテストしてください。 テスト文字列 \\** fred barney \\\*** *wilma\ テストプログラム #! /…
7.4 練習問題 7.4.1 テストプログラムを使って、fredを含むようなすべての文字列にマッチする パタンを作成してテストする。 テスト文字列 Match matchafter BeforeMatch beforematchafter #! /usr/bin/perluse warnings; use strict;while(<>){ chomp; if(/…
7.2.3 パタンをグループにまとめる*を直前の文字列に用いる、 #! /usr/bin/perl -wuse strict;my @text_list = qw/ hogehoge foofoofooo baabaabaabaa /;foreach (@text_list){ if(/(hoge)*/){ print "$_ matched. \n"; } } 7.2.4 選択肢 ( | ):|の右…
ソフトウェアな業界の末席にいるわけで、 夏休みがあるだけマシですか?
友人の就職が決まった。 正直にうれしく思ったね。
(.)を使ってみる。 #! /usr/bin/perl -wuse strict;my @list = qw/ybba dadda doo/;foreach (@list){ if(/a.d/){ print "$_ matched ! \n"; } } 三つの文字列「ybba」「dadda」「doo」のうち、「a.d」とマッチするのは?【マッチ条件】 一文字目がaで、次に…
7.2 単純なパタン #! /usr/bin/perl -wuse strict;$_ = "yabba dabba doo";if(/abba/){ print "It matched ! \n"; } 7.2.1 メタキャラクタについて . : 改行文字を除いた、あらゆる文字1個にマッチ。 * : 直前の文字に0個以上マッチ。 + : 直前の文字に1個…