Perlにはtrimはないので、正規表現を使うらしい。 ↓こんな感じ。 $str =~ s/^\s+(.*?)\s+$/$1/; ■追記 ↓こっちの方が正しいかも？ $str =~ s/^\s*(.*?)\s*$/$1/;

気象庁のwebサイトから予報の内容を取得しようとしてハマった。 天気予報のページからは取得できたので 週間予報のページからの取得もやってみようと思ったら 何故か上手くいかない…何でだ？(;´Д`) 書いてみたコードは↓これ。 #!/usr/local/bin/perl use URI…

Web::Scraperをインストールして、Scrapingに挑戦！ 気象庁のwebサイトから予報の内容を取得してみる。 環境：Windows Vista こんな感じかな… #!/usr/local/bin/perl use URI; use Web::Scraper; my $WeatherInfo = scraper { process "th.weather", day => …

コマンドプロンプトでCPANシェルを起動。 perl -MCPAN -e shell で、インストールコマンド。 cpan> install Web::Scraper（installの後ろは入れたいモジュール名称） 後は依存関係にあるものなどが洗い出されて 「依存してるモジュールで入ってないものがこ…

最近流行っているらしいので「世界のナベアツ問題」をやってみた。 （はてなの人力検索にも出てた） 元の"世界のナベアツ"ネタが分からなかったので*1 とりあえずYoutubeを見てネタを確認。 ……。 …なるほど。 では問題は↓ということですね。 3の倍数と3を含…

my $str = 'it was sunny!'; substr($str, 7, 5, 'rainy');上記のようにsubstrで置換することも可能だが s///で置換すれば、文字列の位置が分からなくても置換することが出来る。 my $str1 = 'it was sunny!'; $str1 =~ s/!/?/; print "\$str1 = $str1\n";と…

substr(元の文字列, 切り出す開始位置, 切り出す長さ, 切り出した所に入れる文字列);・開始位置は0から数える。 ・切り出す長さ以降は省略できる。 （切り出す長さを指定しない場合は、切り出す開始位置からその文字列の 最後の部分まで、という意味になる。…