サブルーチン 「あ！これ進研ゼミPerl入学式でやったところだ！」 ってことで、あまり苦労せずに進むことが出来たでござる。 練習問題10-3 use strict; use warnings; my @data = ( 'How', 'I', 'wonder', 'what', 'you', 'are.', '' ); print join( ', ', &…

コンテキスト 何となく、文脈の流れで動きをかえるもの、くらいの認識だった printは後ろにリストコンテキストをとる だから、文字列連結のときには.よりも,の方が好ましいのか。 文字列から数字だけ抜き出す my $line = '12:34 , 56 and 78 , 90'; foreach …

正規表現の奥深さよ やればやるほど分からなくなり中 やり切ればわかるもんなんかなぁ 問題8-2 結城先生の答えを参照してわかる範囲で作ったもの。 whileは何回も無限ループでアプリ・PCを強制終了させたトラウマがあるので、出来ればforを使いたかった が、…

正月からPerl やっぱ、気軽に開発環境を持ち歩けるって素敵すぎる。 つまり、MacBook Air様様 いや、Macbook Airと最後まで検討してたLenovoのX1でも良かったんだろうけどさ。 実家には超低速3Gしかないので、iPhone5(au)のテザリング使っております。 2013…

結城先生は面白い問題作るよなぁ 以下のスクリプトで$&,$1,$2,$3に該当するのは？ use strict; use warnings; my $str = 'The price is 300yen. The distance is 120km.'; if ( $str =~ /((\d+)([A-Za-z]+))/ ) { print $&, "\n"; print $1, "\n"; print $2,…