AIファイルからPerlでサムネールを取り出す
AIファイルからPerlでサムネールを取り出す スポンサードリンク Tweet AIファイルからサムネールを取り出す試み【成功】 - なにする？DTP+WEB [d.hatena.ne.jp] を、Perlでやってみた。 1.そのまま移植した。 Filename: thumbnail.pl use strict; use warnings; use File::Basename; use MIME::Base64; if (-e $ARGV[0] ) { my ( $fname, $dir, $ext ) = fileparse( $ARGV[0], qw(¥..*) ); open my $fh, '<', $ARGV[0] or die $!; my $xmpmeta; while ( <$fh> ) { $xmpmeta .= $_; last if m|</x:xmpmeta>|;
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:-'); # 標準出力へ書き
Shibuya.pm テクニカルトーク #10 に参加してきました - 肉とビールとパンケーキ by @sotarok
くそ忙しい感じの現状ですが、連日の勉強会。まあShibuya.pmは見に行きたいなーとずっと思っていたので。で、LL温泉で tokuhirom さんにちょっとPerlの話きいて、面白いなーと思っていたところなのでちょうどよく。 Shibuya Perl Mongers : Shibuya Perl Mongersテクニカルトーク#10 そんなわけでいつもどおりレポートという名のメモ。 JPAについて Japan Perl Association 一般法人としてPerlを啓蒙していく団体つくる PHP業界でも結構話題になっているこのあたりの話。LOCALとかにも通ずる話かも。 どのコミュニティでも問題になるんだなあ。 法人化、うまく動いていける人がいるならいいのかな。うまく動ける人がいないと、結局その法人を動かす人も善意で動く人の活動に支えられる形になちゃって、これまでと同じになってしまうん
HTMLから本文を抜き出せるモジュールHTML::ExtractContent - perl-mongers.org
This domain may be for sale!
ATOKダイレクト API for Perl / Ruby | さらに使いこなす | ATOK.com
株式会社ジャストシステム（以下「弊社」）は、以下に定めるドキュメント、サンプルプログラム［ソース／インストールツール］、開発用ツール（以下総称して「本技術情報」）を受領するお客様（以下「受領者」）が下記にご同意されることを条件として、本技術情報の使用を許諾いたします。受領者が本技術情報のご使用を開始された場合は、下記条件に同意いただいたものとみなします。 ドキュメント： 【Win】 atok_direct_script_api.pdf 【Mac】 atok_direct_script_api_mac.pdf サンプルプログラム： atok_direct_script_perl_sample.pl/atok_direct_script_perl_sample.xml atok_direct_script_ruby_sample.rb/atok_direct_script_ruby_sampl
Kamaitachi - 髱｢逋ｽ繝ｩ繝� KAYAC BM11
KAYAC 10th An... 縺翫°縺偵＆縺ｾ縺ｧ縲√き繝､繝�繧ｯ縺ｯ莉雁ｹｴ縺ｧ10蜻ｨ蟷ｴ繧定ｿ弱∴縺ｾ縺励◆縲ゅ◎縺薙〒2008蟷ｴ縺ｮ777縺ｯ10蜻ｨ蟷ｴ繧定ｨ伜ｿｵ縺吮�ｦ 隧ｳ邏ｰ »
MobileCat
MobileCat とは さいきんすっかり放置です、すみません。このページとソース逆引きのページだけ静的に残してあります。参考程度にお願いします。2009/8 冨田 Perl で、CPAN モジュールをさまざま組み合わせてモバイルサイトを作る方法を紹介してみるプロジェクトです。（紹介記事） このサイト http://mobilecat.koneta.org/ 自体がサンプルとなっています。UA を変えたり携帯からアクセスしてみてください。 Links ソース一式 // thanks coderepos ソース逆引き - 簡単な解説のページ TODO founder: Naoki Tomita (モバイル系ブログ) 携帯開発系チャンネル: #mobilejp @ irc.freenode.net おことわり スケールのサンプルになる必要もないだろうと、個人サーバーで軽く動かしているため、修正
Perlモジュール/Walrus::Session::Lite - Walrus, Digit.
以下のURLから取得して下さい。 http://digit.que.ne.jp/work/product/module/Walrus/Session/Lite/Lite_0.3.tar.gz このファイルはWalrus::Session::Liteモジュールと、それからDigest::Perl::MD5.pmを含んでいます。 従って、このファイルを展開すると、WalrusとDigestというディレクトリが作られますので、この2つをモジュールの検索対象になるディレクトリに置くだけで使用できます。 あらかじめ、セッションデータを保存するためのディレクトリを作っておいて下さい。 以下では、"./session/"がセッションデータ保存用だとします。 スクリプト中では、はじめにWalrus::Session::Liteをロードしておきます。 また、セッションデータに結び付けるためのハッシュを作成し
CGI::Sessionの使用例 - :: Cepheid ::
説明 ▲CGI::Sessionの使用例(Zipファイル) CGI::Sessionのバージョン4.02の使用例です。データベースは使わずに、テキストファイルにセッション情報を記録する一番単純なパターンです。 サンプルは以下のファイル・ディレクトリで構成されています。 login.cgi auth.cgi other.cgi logout.cgi sessionディレクトリ 尚、セッションファイルを記録するsessionディレクトリのパーミッションは書込可能な権限にしないとエラーになります。また一部で3.xx環境とは互換性がない関数を使用しています。（logout.cgiで4.xx環境で導入された新しい関数を使用） 画面遷移は、login.cgi → auth.cgi → other.cgi → logout.cgi を想定しています。
livedoor Techブログ : YAPC::Asia 2008 で発表してきました
こんにちは。nabokov7 です。YAPC::Asia 2008で発表してきましたので、その資料を公開します。 ライブドアでは、各サービスで共通に使える内部サービスをいくつか独自開発しています。そのうちのひとつが、今回紹介した共通スパムフィルタ「スパムちゃんぷるー」です。ライブドアブログやライブドアwiki、したらば掲示板などのスパム書き込みのフィルタリングを共通化するために開発したものです。 これにより、スパム判定のロジックが一元化され、統計情報、ブラックリスト、ホワイトリストなどが共有できるようになります。また、過去の判定結果から学習する機能もあります。 スパム判定の基準は各サービス、あるいはユーザ毎の設定によっても変わってくるので、判定ロジックはプラグイン形式になっており、判定時にはこれらのプラグインが並列で動作する仕組みになっています。リクエスト時に必要なプラグインを指定し、任意
Perlで作るモバイルサイトのコツ：第4回：CodeZine
はじめに 携帯用のサイトを作成する際に避けて通れないのが文字コードです。入出力とWebアプリケーション内部での文字コードを統一すべきか、絵文字はどう扱えばよいのか。文字コード1つ取ってもさまざまな問題があります。 今回はこれらの問題に対して、筆者がいつも行なっている方法を紹介したいと思います。 対象読者 PerlでCGIアプリケーションを作成したことがあり、携帯用のサイトを作成したい方。 必要な環境 Perl 5.8以上が動作する環境。 文字コード変換 最近のWebアプリケーションの開発では、多言語対応という観点から「UTF-8」という文字コードを使用した開発が主流となってきています。PC用サイトのみの開発であれば、すべての処理においてUTF-8を使用するため、特別な文字コード変換処理を実装する必要はありません。 しかし日本国内の携帯電話は、主に「Shift_JIS」で記
メルマ！
メルマ！サービス終了のお知らせ いつもメルマ！をご利用いただき誠にありがとうございます。 サービス開始以来、たくさんの皆様にご利用いただきましたメルマ！ですが、 誠に勝手ながら、2020年1月末を持って一部を除きサービスを終了させていただく事となりました。 今までのご愛顧、誠にありがとうございました。 1月末以降のスケジュールは以下となります。 （スケジュールは変更となる可能性があります） 2020年2月14日 マイメルマでの記事ダウンロード機能の停止（マイメルマの停止） 2020年3月2日 全てのデータを削除 記事データのダウンロード機能に関しては、マイメルマよりご利用ください。 今までご利用いただきまして、本当にありがとうございました。 サービス終了に伴うQ&A Q. 読者のメールアドレスは公開されますか？ A. メールアドレスはすべてメルマ！でお預かりしているものとなります。 大変申
CPANの漁りかた
Perlの学習コスト高いよね、て感じのエントリが目立つのでふと思い返してみると、ぼくは1年前は 救命病棟でいうところのレベル4くらいでした。変数に our をつけると何がどう違うのかわかなかったりしたのを覚えてます。 その後1年、今はレベル8弱ってとこでしょうか。バグレポートはなるべく出すようにしていますが、車輪になりそうで、モジュールはまだ上げてません。 この1年どうやってレベルを上げてきたかなといえば、CPANあさり、これに尽きます。で、これから Perlやるぞって人にもしかして参考になるかもしれないので、ぼくがやってきた自己流の漁りかたを書いておきます。 1. まずはPerlStyleを読み直す miyagawa さんが以前 WEB+DB PRESS で連載していた Perl Style というのを、総集編マガジンで今も入手可能です。これはロギングとか OR マッピングなどの基本的題
YAPC::Asia 2008 行ってきた、しゃべってきた。
YAPC::Asia 2008 行ってきました。 そして今年はしゃべってきました。スライドはこちらです。 スピーカーとしてこういった会に参加するのは初めてでしたが、無難にこなせたと思います。はい。 今回は、いろんな偶然がつながりつながってこういう機会にめぐまれて、なんかいろいろなものに感謝しないとなぁと、ひとりしんみり感じている祭りのあとです。 最初に就職したのが偶然 Mobile な部署、その後今の Six Apart に転職。しばらくすると Mobile な開発にひと盛り上がりやってきて、miyagawa さんがつくった TypeCast をその後いじるようになり、そのまま今回のオープンソース化プロジェクトをまかされ、YAPC でスピーカーにもなり。。 なんかいろいろめぐりめぐって機会に、人に恵まれたなぁと。 TypeCast を作った miyagawa さんに感謝。 僕自身にこれを1
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
第4回 Catalyst（前編）---Perl向けWebアプリ・フレームワーク
この記事は，日経ソフトウエア2006年9月号，連載「簡単実装で学ぶWeb技術2006」の第3回「Catalyst――Perl向けWebアプリ・フレームワーク」の再録です。記事は執筆時の情報に基づいており，現在では異なる場合があります。 こんにちは，結城浩です。今回はPerlのWebアプリケーション・フレームワーク「Catalyst」を解説し，簡単なメモ帳プログラムを作ります。 Catalyst（カタリスト）は，Perlで作られたWebアプリケーション・フレームワークです。Catalystを使うと，Webアプリを簡単に作成・テスト・配布することができます。catalystという単語のそもそもの意味は，「触媒」あるいは「促進させるもの」です。Perlのモジュール同士を触媒のようにうまく結びつけて，Webアプリ作成を促進させるという意味の名前なのでしょう。 Catalystのオフィシャルページは
ウェブリブログ：サービスは終了しました。
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
Perl Authen::Captchaを人が見やすくする修正｜でびぞー徒然日記
Perl Authen::Captchaを人が見やすくする修正 >>Perl PerlのAuthen::Captchaを人が見やすくするために、修正をかける。 oO0Iilb6といった文字列はCaptchaでぐちゃぐちゃにされると人が判別することが難しくなる。 SPAM対策のためだけれども、入力した人はげんなりすることが多い。 ということで個人的にCaptchaを使うのはやめているけれど、「わかんねーよー」という声が上がってきてしまうので、ちょっと対応しておこうかなと。 Authen::Captchaにおいて、任意の文字列を生成しているのはfunctionである generate_random_stringになります。 一応、改変したpmをテキスト化したものを置いておきます。ダウンロードはこちら どうでもいいけど、このコードだと、ランダム値が偏りそうにも見えるけど、ランダムはどうせランダム
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.hidekik.com/cookbook/p2h.cgi?id=captcha
Perlメモ/Authen::Captchaモジュール - Walrus, Digit.