メールの件名や表示名は、MIME対応ライブラリに文字列として渡します。独自のエンコード処理を重ねず、ヘッダー用APIを使います。
use Email::MIME;
my $mail = Email::MIME->create(
header_str => [
From => 'sender@example.com',
To => 'recipient@example.com',
Subject => '日本語の件名',
],
attributes => { content_type => 'text/plain', charset => 'UTF-8' },
body_str => '本文です。',
);送信前に実在する宛先ではなくテスト用メールボックスで、件名・本文・添付の表示を確認します。
参考: 公式ドキュメント
PerlではDBIの同一ハンドルでINSERTを実行し、使用中のドライバーが提供するlast_insert_idを利用します。SQL文字列の連結は避けます。
my $sth = $dbh->prepare('INSERT INTO entries (title) VALUES (?)');
$sth->execute($title);
my $id = $dbh->last_insert_id(undef, undef, 'entries', 'id');last_insert_idの対応範囲はDBドライバーに依存します。対象DBでテストし、トランザクションの接続を途中で切り替えないでください。
参考: 公式ドキュメント
Perl では配列は、@array = ('aaa', 'bbb', 'ccc') のように書くが、「配列の配列」のデータ構造を表現するにはどうしたらいいのだうろう？
以下にサンプルコードを示す。$songs という配列の先頭は「$」となっている。その内側も配列なのに (...) ではなくて [...] になっていることに注目してほしい。これは配列の配列を参照で表現するためである。アクセス方法は foreach のところを参考にしてほしい。
Options Indexes FollowSymLinks MultiViews +ExecCGI # ここと
DirectoryIndex index.cgi # ここを追加。index.cgi はおまけ。
AddHandler cgi-script .cgi .pl # もし Perl （拡張子は .cgi か .pl）を有効にしたい場合はこの行を追加
AllowOverride None
Order allow,deny
allow from all
#!/usr/bin/perl
open(OUT, '>sample.txt');
for(my $i = 0; $i < 2^30; $i++) { print OUT 'a'; }
close(OUT);
1;
</code>Perl で、new しようとするクラスがなんでも OK の Factory クラスを考える。new しようとするクラスはパラメータ（なんと文字列）で与えられるという、かなり何でもアリの Factory クラスである。
最も原始的な例は以下のようになるだろう。今さらだけど、知っておいて損はないかもしれない。
HTTP プロトコルの場合、クライアントからサーバにデータを送る方法は POST メソッドか GET メソッドと仕様で定義されているから、POST の場合と GET の場合の2つのパターンを考えてデータを受け取ってあげればよい。