Strawberry Perl for Windows Strawberry Perl is a perl environment for MS Windows containing all you need to run and develop perl applications. It is designed to be as close as possible to perl environment on UNIX systems. It includes perl binaries, compiler (gcc) + related tools, all the external libraries (crypto, graphics, xml ...), all the bundled database clients and all you expect from Strawb

結城は、まぐまぐさんで「コミュニケーションの心がけ」というメルマガを発行しています。 当然ながら「いま何人の方が読んでいらっしゃるのかなあ？」と気になります。 Webのマイページに行けば「メルマガ読者数の確認」でわかるのですが、ちょっとめんどうなので、コマンドラインから簡単に読めるようにしました。 # subcount.pl use strict; use warnings; use WWW::Mechanize; my $magazine_id = '9999999'; # メルマガID my $loginId = 'magmagidx'; # まぐまぐID my $password = 'passpasspass'; # パスワード my $url = 'https://mypage.mag2.com/Welcome.do?ref=%2Fmypage%2Fpublisher%2Fmng

Perl で短縮 URL を戻すサンプルスクリプト 2010-03-29-1 [Programming] tinyurl や bitly などの短縮URLを元のURLに戻すサンプルスクリプトを Perl で書いてみました。 HEADリクエストなげて返ってくるデータを見るだけ。 コード（getlongurl.pl）： #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; my $url = shift @ARGV; my $ua = LWP::UserAgent->new(timeout => 5); my $res = $ua->head($url); my $lurl = $res->request->uri || ""; print "$lurl\n"; 実行例： % ./getlongurl.pl http://b

サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ

2009年09月13日13:00 カテゴリLightweight Languages #perl - utf8::decode()ではなくEncode::decode_utf8()を使うべき理由 駄目です。 [を] Perl の utf8 まわりのおまじない 最近良く使うおまじない、というかイディオム。 utf8::decode($text) unless utf8::is_utf8($text); こういう場合は、Encode::decode_utf8()でないと。 以下をごらんください。 #!/usr/bin/perl use strict; use warnings; use Encode; use Devel::Peek; for my $bytes ( "\x2F", "\xC0\xAF", "\xE0\x80\xAF", "\xF0\x80\x80\xAF" ) { my $u

2009年09月11日15:00 カテゴリYAPC::AsiaLightweight Languages #yapcasia2009 - Perl? Which Perl? 〆切と体調不良で数え役満状態ではありましたが、なんとか自分の分のtalkを終えました。 以下からご覧下さい。 YAPC::Asia::2009 - Perl? Which Perl 実際にllevalで動作させながらプレゼンしました。あわせて以下もご覧下さい。 http://colabv6.dan.co.jp/lleval.html http://blog.livedoor.jp/dankogai/archives/51190474.html (Japanese) Enjoy! Dan the Perl Monger, Whichever Perl It May Be 「YAPC::Asia」カテゴリの最新記事