Perl で PDF生成（PDF::API2）｜カタテマ｜ウェブマーケティングの株式会社オーク
最近、案件でPDFをPerlのプログラムから動的に作成する機会があったので、ポイントやノウハウなど書いてみたいと思います。 どのライブラリを使うか PerlでPDFを扱うライブラリとしては、以下が代表的なようです。 PDFlib PDF::API2 PDFJ PDFlibは、古くからある有償のPDFのライブラリで、Perlだけでなく、様々な言語から利用が可能です。おそらくこの中では、一番多機能だと思います。ただやはり有償なのと、APIが古そう（完全な偏見）なため、今回は見送りました。 残るPDF::API2と、PDFJですが、PDF::API2のほうが、cpanに登録されていて、比較的メンテナンスもされているように見えること、WEBでの情報量が多いことなどから、PDF::API2を使うことにしました。 cpan - PDF::API2 http://search.cpan.org/dist
Perlクックブックソースコードリンク集
Perlクックブックソースコードリンク集 このページは「Perlクックブック―Perlの鉄人が贈るレシピ集(第１版)」に記述されているソースコードを簡単に参照できるようにするために作成したリンク集です。ネットワーク上に存在するPerl Cookbook(英語)のリソースに対してリンクを設定しています。 Perlクックブックの解説やソースコードの引用は私のウェブページ上には用意していません。必要であればPerlクックブックを購入するか、あるいはリンク先の英文の解説を読んでください。 １章 文字列 1.0 概要 レシピ1.1 部分文字列を取り出す レシピ1.2 デフォルト値を設定する レシピ1.3 一時変数を使わずに値を交換する レシピ1.4 ASCII文字をコード値に（コード値をASCII文字に）変換する レシピ1.5 文字列を1文字ずつ処理する レシピ1.6 文字列を単語または文字単位で逆
ローカルタイム（localtime）を日時表記にするPerlコード
localtime を様々な文字列表記にするコードをご紹介します。 YYYY-MM-DD HH:MM:SS @time = localtime; $datetime= sprintf("%04d-%02d-%02d %02d:%02d:%02d", $time[5]+1900, $time[4]+1, $time[3], $time[2], $time[1], $time[0]);
Mojolicious Web Framework
11,907 commits closer to perfection! Mojolicious is a fresh take on Perl web development, based on years of experience developing the Catalyst framework, and utilizing the latest web standards and technologies. You can get started with your project quickly, with a framework that grows with your needs. The Mojo stack provides a consistent set of components that can be used in any project. The guide
Catalyst - Web Framework
Pemeliharaan Terjadwal: Playtech pada 2023-11-30 dari 11.00 PM sampai 2024-05-30 12.29 AM (GMT + 7). Selama waktu ini, Playtech permainan tidak akan tersedia. Kami memohon maaf atas ketidaknyamanan yang mungkin ditimbulkan. Pemeliharaan Terjadwal: PP Virtual Sports pada 2023-10-13 dari 5.00 PM sampai 2024-06-13 6.30 PM (GMT + 7). Selama waktu ini, PP Virtual Sports permainan tidak akan tersedia. K
多次元配列でのソート - kuangueの日記
多次元配列でソートってのを最近perlいじってないので，perlでやってみることにしました． 元はといえば，perlに構造体が無いことをはじめて今日知ったわけですね．まぁ，私がperlを使う場面といったら，なんとなくテキスト処理．しかも，sed&awkで処理できない場合に限っているので，しょうがない． でだ，構造体のソートがしたかったわけです． struct hoge { int id; char* moge; char* koge; }; をidでソートみたいにね．で，構造体無いので，みなさんhash使っているようでしたが，別に, use constant XXX;ってので定数が宣言できるようなので多次元配列でべつにいいじゃんということになりました． use constant ID=0; use constant MOGE=1; use constant KOGE=2; $hoge[0]
Image::Imlib2
NAME Image::Imlib2 - Interface to the Imlib2 image library SYNOPSIS use Image::Imlib2; # create a new image my $image = Image::Imlib2->new(200, 200); # or load an image $image = Image::Imlib2->load("foo.png"); # Enable the alpha channel support $image->has_alpha(1); # set a colour (rgba, so this is transparent orange) $image->set_color(255, 127, 0, 127); # draw a rectangle $image->draw_rectangle(5
画像 Script Source Sample for Perl
複数の画像をまとめてアップロードしたかったので、画像をアップロードするスクリプトを for ループなどで繰り返すようにしてみた。がしかし、どうしても最初の一枚目しかアップロードされず、残りの画像が正常にアップロードされない結果となった。で、あれこれと試行錯誤した結果、スクリプト内の変数名を、アップロード処理が繰り返されるたびに変えるようにしたら、期待する結果が得られるようになった。とりあえず解決したが、もっとスマートにできないだろうか。例は、5枚いっぺんにアップロードする場合。 for($i=1;$i<=5;$i++){ ${'ext'.$i} = substr(param("img$i"), rindex(param("img$i"),'.')+1); ${'query'.$i} = new CGI; ${'filename'.$i} = ${'query'.$i}->param("im
ImageMagickで画像の解像度を変える
なんとなくできるに違いないと思いながらちょっと見つけるのに苦労したのでメモ。 基本的には以下のログだけで終了なんだけど、 Twitter / wtnabe: ImageMagick の convert に -d …Twitter / wtnabe: -density と -units を同時に指定しな … 07:30:53 >wtnabe< ImageMagick の convert に -density を与えると解像度 を変更できることが分かった。でも例えば Xdpi で Ycm みたいな指定はでき ないよな。計算して出すしかないのか。 07:42:11 >wtnabe< -density と -units を同時に指定しないとダメなのか。 ちょっと面倒だな。ということは -scale -density -units の同時指定がよさ げか。
Perl モジュール Image::Magick で画像を切り抜く方法
Perl の Image::Magick モジュールを使用してGIF画像を切り抜く方法を紹介します。 サンプルコード use Image::Magick; my ($image, %info); $image = Image::Magick->new; # イメージの読み込み $image->Read('myimage.gif'); # 背景色しかない部分を切り落とす $image->Trim(); # この他の切り抜き関数としては、座標を数値で指定するCropがあります。 # 下の2つの指定はどちらも同じ結果になります。 # $image->Crop(width=>26, height=>26, x=>287, y=>251); # $image->Crop(geometry=>"26×26+287+251"); # この下の2行がミソ # Image::Magick 内では切り抜き後の
ImageMagick – PerlMagick, Perl API
Installation • Overview • Example Script • Read or Write an Image • Manipulate an Image • Set an Image Attribute • Get an Image Attribute • Compare an Image to its Reconstruction • Create an Image Montage • Working with Blobs • Direct-access to Image Pixels • Miscellaneous Methods • Handling Exceptions• Constant PerlMagick is an objected-oriented Perl interface to ImageMagick. Use the module to re
Image::Magick を使って大量画像のサムネイル画像を一括自動生成
お仕事で素材集 CD-ROM 内の画像ファイル全２万点を全てリサイズして欲しいという依頼が来た。自社のコンテンツに使うためのリサイズ作業です。初めは OPTPiX webDesigner のバッチ処理で何も考えず 50 x 40 px にリサイズ。縦横比が違う画像が一杯なので何とも無惨な画像が数時間後にできあがった・・・orz 仕方がないので、PhotoShop のバッチ機能でトリミング〜リサイズ処理をやってみた。どうやら素材集の jpeg の圧縮パラメータが違うようでリサイズ後の保存時にダイアログが開いて圧縮パラメータをどうするかいちいち聞いてくる。OK ボタンを押すだけなのだが、全然バッチになってない・・・orz 仕方がないのでリターンキーを押下状態にしてセロハンテープを貼り付けて帰宅時に放置。今日の朝に完成しているはずだったけど、しっかりと PC がフリーズしてました・・・orz し
ImagerとImage::Magickのよく使うメソッドをまとめてみた - 80nikki
簡単に違いを書くと Imagerはインターフェースがかっけえ Image::Magickはなんか枯れてる 速度はあんまかわんない ファイル読み込み、書き出し、エラー出力 Imager my $img = Imager->new; $img->read(file => $filename) or warn $img->errstr; $img->write(file => $filename) or warn $img->errstr; Image::Magick my $img = Image::Magick->new; $err = $img->Read($filename); $err = $img->Write($filename); $err = $img->Read('-'); # 標準入力から読み込み $err = $img->Write('png:-'); # 標準出力へ書き
【CGI・Perl】画像サイズを変更する [その1] (サムネイル・拡大縮小)
CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー＆ペーストで使える便利集！ カテゴリー：ImageMagick 画像サイズを変更する [その1] (サムネイル・拡大縮小) サムネイルを作成するなど、画像を縮小・拡大したい。 縮小率(拡大率)などが決まっている場合、例えば一律50%に縮小するといったことは、非常にかんたんに行える。 次の例では、読み込んだ画像の縦、横のピクセル数を取得し、50%のサイズにリサイズを行い、保存するというプログラムである。 ;# ;#半分のサイズにする ;# use Image::Magick; #-- オブジェクト作成 --# my $image = Image::Magick->new; #-- 画像を読込む --# $image->Read('./image.jpg'); #-- 現在の縦・横を取得 --# my ($n
Perl-正規表現 - Wikibooks
Perlは強力な 正規表現 をサポートしています。正規表現とは、大まかにいうと、検索の機能を高度化しやすくしたものです。Perl以外のJavaやJavaSciptやPHPなども正規表現をサポートしていますが、Perlは古くから正規表現を本格的にサポートしています。 また、Perlの拡張正規表現は、Perl Compatible Regular Expressions( PCRE ) としてPerlの外でも使うことができるため、正規表現のディファクトスタンダードの１つとなっています。 パターンマッチング[編集] =~[編集] 二項演算子 =~ は、左辺のスカラー式を右辺のパターンマッチに拘束します。 正規表現に関する操作では、デフォルトで $_ という文字列を検索したり変更したりします。 この演算子は、そのような操作を他の文字列に対して行うようにします。 右辺は、検索パターン (//)、置換
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
remora.cx
bayashi.net
Paper.li
Perl講座 - [SMART]![Perl講座 - [SMART]](https://cdn-ak-scissors.b.st-hatena.com/image/square/efeb6493234f33406d242c048873a805fca99c63/height=288;version=1;width=512/https%3A%2F%2Frfs.jp%2Fwp-content%2Fthemes%2Fsmart%2Fogpimage.png)
perl で utf8 の日本語の文字数をカウントする。 - 雑想空間