ファイルを読んだり書いたり。 1.入力ファイルの内容をを指定の正規表現で置換して、ファイルに出力するプログラム #!/usr/bin/env perl -w use strict; print "in-file: "; chomp(my $infile = <STDIN>); open INFILE, "< $infile" or die "No such file named $in</stdin>…

初めてのPerl、とりあえず最後まで読めました。あとは練習問題は解いて行こう。平行してCPAN遊びもしたいところ。 1. 数あてゲームを作る 10章は練習問題はこれだけです。Cで言うcontinueがnext、breakがlastね。 use strict; my $seacret = int (1 + rand 1…

GWだけどがんばります。 1. $whatという変数に入っている正規表現が三回現れるようなパターンを書く まずは、まんまと罠にひっかかりました。 /$what{3}/で、$what='test';などとしても、"testtesttest"にマッチしない。{3}がtに結合しちゃってるんだからそ…

「初めてのPerl」から始めているわけですが。だいぶ読み進めています。今、13章付近。このぶんだと明日かあさってあたりに読了できそうです。読み終わったあとに次にどうするかなのだけど、やはり、いろんなモジュールを使ってみたり、モジュールばりばりつ…

そろそろ8章にとどめを。 3, スカラー変数名を示すような文字列にマッチするような正規表現 まず、$(ドル記号)がきて、その後が、英数字の大文字小文字と数字、そして_(アンダーバー)だけで構成されているような文字列。ただし、$(ドル記号)の直後に数字はだ…

昨日の続き。もっかい問題を引用すると、 /"([^"]*)"/ #1 /^0?[0-3]?[0-7]{1,2}$/ #2 /^\b[\w.]{1,12}\b$/ #3 ですね。#1は昨日やったので、#2から。この正規表現にマッチする文字列を数値としてみて、一番大きいのは377。[0-7]あたりから8進数の匂いがぷん…