Perl

Perl で Gmail の SMTP からメールを送る、「安全性の低いアプリの許可」設定とFromヘッダの設定

Perl でメール送信プログラムを作る。 Gmail の SMTP を使います。 use Email::Simple; use Email::Sender::Simple qw/sendmail/; use Email::Sender::Transport::SMTP::TLS; use Encode; my $sender = Email::Sender::Transport::SMTP::TLS->new( host => '…

Perl で Access-Control-Allow-Origin ヘッダを設定

Ajaxで外部URLにPOSTしようとしたらChromeで以下のエラー No 'Access-Control-Allow-Origin' header is present on the requested resource. Origin 'https://domain' is therefore not allowed access. サーバ側で以下のようにヘッダを追加する必要がある $…

PDFJ - PerlでPDFを生成する(3)

前回に続き、PDFJについて。 今回は、PDFへの画像の挿入を行います。画像の挿入は、以下のように画像オブジェクトで行います。 $imgobj = $docobj->new_image($src, $pxwidth, $pxheight, $width, $height, $padding, $colorspace); なお、画像オブジェクト…

PDFJ - PerlでPDFを生成する(2)

前回に続き、PDFJについて。今回は、テキストの色指定と表示位置指定を行います。 色指定 テキストスタイルオブジェクトを作成するTStyleサブルーチンには、「color」のような文字色指定の引数が存在せず、数時間試行錯誤しました。。。「shapestyle」を使っ…

PDFJ - PerlでPDFを生成する(1)

サーバでPDFを生成するプログラムを作ることになったので、PDFJを使ってみました。 事前準備 PDFJをダウンロードしてインストールします。 http://hp1.jonex.ne.jp/~nakajima.yasushi/archives/PDFJ-0.90.zipそれから、TeX::HyphenとCompress::Zlibをインス…

Template::ToolkitでMySQLのdate型データを使う

Template::Toolkitで、MySQLのdate型カラムのデータから「年」だけを取得したかったのだが、 [% date.format(date, '%Y') %] とするとダメ。 [% date.format(date _ ' 00:00:00', '%Y') %] のようにして、「時分秒」をつけるとうまくいった。 datetime型だと…