移転しました。 https://mas3lab.net/perl/waza/strftime.html

先週公開した、じゃらんWebサービスを使ったサンプルサイト「シンプル宿検索」にて、perlのソースコードも一緒に公開してみたのですが、さっそく興味を持ってくれた方から問い合わせを頂きました。 cgiを実行させようとしたら以下のエラーが出てしまいました: Can't locate Template.pm in @INC (中略) at search.cgi line 5 ... Template.pm モジュールがインストールされてないよ！って怒られています。あー、コード公開する際は必要なCPANモジュールも一緒に添付しといてあげたほうが親切なのかな？いやでもそれ面倒くさいし無理あるなあ・・・。 Webでキーワード "CPAN" を検索すると出てくるCPANの使い方系ページの多くは、そのサーバの root 権限を持っている前提で、サーバの共通ライブラリ下にCPANモジュールを追加する方法を紹

■なにかつぶやいてみる ※このソースは簡略化してますので、自分のソースに合った改変は必須かと思います。 ※statuses/updateを使用して、結果をXMLで受け取る例です。 use LWP::UserAgent; use Encode; use Net::OAuth; $Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A; # 前回取得したアクセストークンとシークレット my $access_token = ‘アクセストークン’; my $access_secret = ‘トークンシークレット’; # 各APIメソッド毎にURLとリクエストメソッドが異なるので注意 my $API_Method_url = ‘https://twitter.com/statuses/update.xml’;

このページが見えていれば、MENTA のインストールに成功しています MENTA ってなに? MENTA は CGI で気軽につかえる Web アプリケーションフレームワークです CGI でも高速に動作 レンタルサーバーでもつかえます(ロリポとか XREA とか) Object 指向がわからなくてもつかえます 正しいプログラミングスタイルが自然と身につきます 便利なモジュールがたくさん標準添付されています 現在利用できる項目 マニュアル MENTA デモ NoPaste デモ

perltidyというのは、Perlベストプラクティスに載っている、ソースコードを綺麗に整形してくれるソフト。 最初は実行形式のプログラムだと思っていたら、Perlスクリプトだった。 考えてみれば、PerlをWindowsでやっていることがどちらかといえばイレギュラーなので、Windowsの実行形式でないのは当然か。 インストールの方法がよくわからなかったのだが、モジュールならcpanからインストールできるんじゃないかと思ってモジュール名を指定したところ、ズバリ、ありました。 そのままインストールを開始。 cpanがちゃんと使えるようになっていれば、インストールは簡単。 cpan> install Perl::Tidy インストールが完了すると、Perl.exeと同じフォルダに「perltidy.bat」というファイルができた。 あとは簡単に手順を。 oreilly.com -- O

半手動かな。 seq は本文。 require "kconv" require 'base64' require 'net/smtp' def mime_encodings(x) a = Base64.encode64(x.tojis) s = a.split ' ' ss = [] s.each {|a| ss[ss.length] = '=?iso-2022-jp?B?' + a + '?=' } a = ss.join ' ' a end def sendmail(from,to,subject,seq) if from != nil && to != nil && subject != nil && seq != nil && from =~ /\@/ && to =~ /\@/ xsubject = mime_encodings(subject) xseq = seq.tojis

久しぶりにPerlを触ってみた。ずっと、PHPだったため、切り替えに時間がかかった で、今回はモジュールにHTML::Templateをテンプレートを利用したのだけれど、 HTML::Template->output() : fatal error in loop output : HTML::Template : Attempt to set nonexistent parameter と、エラーが出てかなり苦しんだ。 調べていくとHTML::Templateではデフォルトの状態だと プログラム側で渡したパラメータはテンプレート側では必ず利用しないといけないらしい。 で、どう回避すればいいのかというと、 $template = HTML::Template->new('filename' => 'foo.tpl','die_on_bad_params' => 0); die_on_bad

上記に JPEG が ○ と書いてあっても、古い機種では JPEG 画像を表示できない場合があります。 必ず $phone->{image_jpeg} で判別するようにしてください。 上記には入れていませんが、{ezweb_mono} が真であれば、 au・TU-KA のごく古い HDML 白黒液晶機種と判別できます。 この場合、画像は BMP 形式のみとなります。 しかし、今では利用者シェアが0.1％を割って、また新規契約も停止されています。 キャッシュ容量も 1.4KB 制限と厳しいので、動作対象外したいですねぇ。。。 その他、phone.pl の不具合情報や、ご意見・ご要望をお待ちしております。 SoftBank 3G携帯対応について バージョン1.52以前のphone.plは、 2004年以降発売の SoftBank の 3G 携帯に対応していません。 古い phone.pl をご

初代新幹線「0系」最後のラストランの日に、新幹線N700系のぞみでイーモバイルしながらこの記事を書いているid:TAKESAKOです。 Perlのヒアドキュメントを使うと複数行にわたる文字列を一気に代入したりするときに楽なので、使っている人も多いと思います。 my $foo = "bar"; my $tmp = time(); # ←関数の実行結果 print<<EOF; <div class="${foo}1"> <h1>TIME: $tmp</h1> </div> EOF しかし、ヒアドキュメントの途中でサブルーチンの実行結果も一緒に埋め込みたいときがでてくるときがあります。 @{[ Perlの式 ]} そのようなときは、@{[ リスト ]} というイディオムを使うと非常に便利です。 print<<EOF; <div class="${foo}1"> <h1>TIME: @{[ tim

Image::Magick ImageMagickグラフィックインタフェース。PerlMagickとも呼ばれる。 詳細は、http://www.imagemagick.org/script/perl-magick.php 参照 色々なメソッドがあるにはあるが、引数リストが提示されているだけで、引数の説明がほとんどないので、意味不明なところが多数ある。 use Image::Magick; パッケージをロードする。 my $image = new Image::Magick(%attr); インスタンスを生成する。%attrを指定すると、指定した属性を持つ画像も生成される。 $image->set(%attr); 画像の属性を設定する。 my @value = $image->get(@attr); 属性名を指定して、属性値を得る。 my $newimg = $img->Clone(); オ

パスワード設定をコードに書かないようにするには Config::Pit をつかいます。 なぜ必要なの？ アカウント情報が必要なWebサービスを利用するスクリプトを作るとき、アカウントやパスワードをスクリプトのコードに直接書き込むと（ハードコーディング）、そのスクリプトがほかの人に見られてしまうことによりパスワードが漏洩してしまいます。 Config::Pitは、外部ファイルにWebサービスのアカウント情報を格納しておき、スクリプト側で必要なときに、読み出しできるようにします。これにより、スクリプト内にアカウント情報をハードコードすることがなくなり、スクリプト単体でのパスワード漏洩が防げます。 例：コードを配布しようとして、 #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use WWW::Mechanize;