Perl

Perl で、画像のサムネイルを作成してブラウザから表示させる方法

以下のサンプルファイルを image.cgi と名前を付けて保存、アクセス権を chmod +x image.cgi とかしてブラウザから https://yourname.com/image.cgi とかにアクセスすればよい。注意点としては、このスクリプトは画像しか表示できないことである。これと一緒に HTML ファイルを表示しようと思っても、HTTP プロトコルの仕様上不可能である。なぜかというと HTTP プロトコルを通して画像を表示する場合は、すでにこのスクリプトが HTTP ヘッダとして Content-type: image/jpeg を最初に出力してブラウザが受け取っているからで、このスクリプトの中で同時に（画像を表示した後に） HTML 文書を表示させようとて Content-type: text/html を出力（print "Content-type: text/html\n\n）してもブラウザは受け付けてくれないのである。


#!/usr/bin/perl

use GD;

Perl で、ssh でリモートのサーバにアクセスしてファイルをアップロード（SCP）する方法 (Net::SSH2)

バックアップのためにリモートのサーバにファイルをコピー（アップロード）したい。

そんな欲求が私の中に生まれた。Linux ではファイルを ssh でコピーするのに scp というコマンドがあるので、早速試してみたのは Net::SCP という Perl のモジュールなのだが、なぜかこのモジュールのメソッドにはパスワードを指定するものがない。ホスト名とユーザー名しか指定しないのだ。ではパスワードはどこにいった？

Perl で、数字（数値）を3桁ごとにカンマ（,）で区切る方法

まぁ、こんな感じ？他にもっといい方法はありそう。


#!/usr/bin/perl

my $num = 123456789;
print comman($num);

sub comma {
  local($_) = @_;
  1 while s/(.*\d)(\d\d\d)/$1,$2/;
  $_;
}

1;

Perl で、古くなっているモジュールをすべて一括で更新する方法

以下のコマンドを実行。

Perl で、SpamAssassin を使って迷惑メールを処理する。

オープンソースで迷惑メールの処理するソフトといえば SpamAssassin （直訳するとスパム暗殺者）が有名だ。何しろ spamassassin.apache.org というサイト名からも分かるとおり、Apache Foundation 謹製なのだ。

その SpamAssassin、Perl で書かれている。なので当然 Perl のライブラリが用意されており、Perl 使いの人は簡単に自身のプログラム中から呼び出すことができる。SpamAssassin 自体はメールサーバのフロントエンドで、Procmail なんかと一緒に使うことが多いだろうから、あまり自身のプログラム中から呼び出すようなことはないとは思うのだが、何かのときに役に立つかもしれないから、とりあえず以下にサンプルを載せておこう（というかこのサイトのすべての内容自体、自分のためのメモなのでご了承を）。

Perl で、BASIC 認証（基本認証）付きのサイトにアクセスするには？

LWP::UserAgent を使うのだが、以下のコードで太字の行がポイント。

使用するモジュール


use LWP::UserAgent;

コード


#!/usr/bin/perl

use LWP::UserAgent;

our $HOME_URL = 'ユーザー名とパスワード付きの URL';
our $USERNAME = '上記 URL にアクセスするためのユーザー名';
our $PASSWORD = '上記 URL にアクセスするためのパスワード';

$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => $HOME_URL);
$req->authorization_basic($USERNAME, $PASSWORD);

print $ua->request($req)->as_string;

1;

ウェブサイト構築時のセキュリティのポイント

IPA（独立行政法人情報処理推進機構）の「安全なウェブサイトの作り方」というドキュメントは、なかなかまとまっていて、良い。すべてのウェブアプリ開発者は目を通しておくべきだ。ここではこのドキュメントから注意点をピックアップしてまとめてみた。

SQL インジェクション
OS コマンド・インジェクション
パス名パラメータの未チェック／ディレクトリ・トラバーサル
セッション・ハイジャック
クロスサイト・スクリプティング
クロスサイト・リクエスト・フォージェリ (CSRF)
HTTP ヘッダ・インジェクション
メールの第三者中継

Perl の参考書リスト

Perl での、文字列の扱い
Perl で、ライブラリのパスを指定する方法
<iframe src="https://xml-jp.amznxslt.com/onca/xml?Service=AWSECommerceService&ItemId=4873112028&AWSAccessKeyId=152ZP71KPB47XM09CS02&AssociateTag=twinklexxx-22&Operation=ItemLookup&IdType=ASIN&ContentType=text%2Fhtml&Version=2006-03-08&Page=1&ResponseGroup=ItemAttributes,Images,Offers&Style=https://perltips.twinkle.cc/amazon.xsl" scrolling="no" marginwidth="0" marginheight="0" frameborder="0" height="180"></iframe> <iframe src="https://xml-jp.amznxslt.com/onca/xml?Service=AWSECommerceService&ItemId=4873112036&AWSAccessKeyId=152ZP71KPB47XM09CS02&AssociateTag=twinklexxx-22&Operation=ItemLookup&IdType=ASIN&ContentType=text%2Fhtml&Version=2006-03-08&Page=1&ResponseGroup=ItemAttributes,Images,Offers&Style=https://perltips.twinkle.cc/amazon.xsl" scrolling="no" marginwidth="0" marginheight="0" frameborder="0" height="180"></iframe>
Perl で、サイトにアクセスして HTML を取得する方法
※ Web クライアントプログラミングの本は、タイトルには「Web プログラミング」とついているものの、中身は LWP の解説本です。
<iframe src="https://xml-jp.amznxslt.com/onca/xml?Service=AWSECommerceService&ItemId=4900900621&AWSAccessKeyId=152ZP71KPB47XM09CS02&AssociateTag=twinklexxx-22&Operation=ItemLookup&IdType=ASIN&ContentType=text%2Fhtml&Version=2006-03-08&Page=1&ResponseGroup=ItemAttributes,Images,Offers&Style=https://perltips.twinkle.cc/amazon.xsl" scrolling="no" marginwidth="0" marginheight="0" frameborder="0" height="180"></iframe>
Perl で、セッション管理をしたい。
※「WEB+DB PRESS」の創刊号からVol.36（2006年12月）までの6年分の記事を、PDF形式で1枚のCD-ROMにまとめた特別総集編。かなりお買い得な気がします。
<iframe src="https://xml-jp.amznxslt.com/onca/xml?Service=AWSECommerceService&ItemId=4774130729&AWSAccessKeyId=152ZP71KPB47XM09CS02&AssociateTag=twinklexxx-22&Operation=ItemLookup&IdType=ASIN&ContentType=text%2Fhtml&Version=2006-03-08&Page=1&ResponseGroup=ItemAttributes,Images,Offers&Style=https://perltips.twinkle.cc/amazon.xsl" scrolling="no" marginwidth="0" marginheight="0" frameborder="0" height="180"></iframe>

Updated:

2007/05/22
2006/09/22
2006/05/29
2005/02/01 00:30

Perl で、JavaScript と連動してサーバにアクセスログを残す方法

ウェブページへのアクセスログを記録する方法は、いろいろな方法があると思う。もっとも簡単なのは Apache などのウェブサーバが自動的に記録するログをチェックすることで、これには何の手間もいらない。しかし、レンタルサーバなどでログが自由に扱えない場合はどうしたらいいのだろう？

そのひとつが、画像としてリンクされている Perl などの CGI を呼び出す方法だ。利用者に知られずこっそりとアクセスログを取るには 1x1 ピクセルの画像をそのウェブページの背景と共に表示してしまえば、そのウェブページのソースをチェックされない限り、ほとんどの場合は気づかれずにすむだろう。

そんなわけで、以下のように JavaScript と対応する Perl スクリプトで、アクセスログを記録する仕組みを作ってみた。ログの形式は Apache に準拠する（たぶん）。

Perl で、ビット処理する方法

たとえばテキストファイルに「a」などと書かれており、これが4ビットのビット列「1010」を表す場合、4ビットの2進数で表される値は、以下のようになるだろう。

これら 0～f までの文字列を Perl で処理するには以下のようにする（以下のロジックでは、4ビットの場合、ビットの番号は、左から 4、3、2、1 としているので、各人の仕様で調整してください）。


#!/usr/bin/perl

our $data = 'a';
our $BIT_LENGTH = 4; # ビットの長さ

$data = hex($data);
$data = pack("C", $data);

my @data = unpack("C", $data);
my $mask = 0x00000001; # マスク

for(my $i = 1;  $i <= $BIT_LENGTH; $i++) {

#   if(~$data[0] & $mask) { # (注: on: 0 / off: 1 のとき、~$data[0] とする)
<pre>if( $data[0] & $mask) {

    # ここに（マスクにヒット）ビットが立っているときの処理を書く
print "bit $i: 1\n";

} else {

    # ここにビットが立っていないときの処理を書く
print "bit $i: 0\n";

}
$mask = $mask << 1;
}

Perl を購読