練習問題 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 メタキャラクタについて . : 改行文字を除いた、あらゆる文字１個にマッチ。 * : 直前の文字に0個以上マッチ。 + : 直前の文字に1個…