M.C.P.C.: PostScriptの8進数エンコーディングをデコードするワンライナー
PostScriptの8進数エンコーディングをデコードするワンライナー スポンサードリンク Tweet 昨日のエントリで使った PostScript エンコーディングをデコードするワンライナーについて説明します。 ワンライナー Unix や Mac OS X では、こんな感じで実行してください。 $ more hoge.ps | perl -pe 's/\\([0-7]{3})/pack("C",oct($1))/ego;' Windows+ActivePerl ではこんな感じで実行してください。シェルの関係で、ダブルクォーテーションとアポストロフィを入れ替えました。 >more hoge.ps | perl -pe "s/\\([0-7]{3})/pack('C',oct($1))/ego;" 使用例 昨日のエントリで出した、OPI コメントを解読してみます。 Windows+Activ
シェルエスケープ
シェルエスケープ 2003-01-29-6: [Perl][Code] sub shell_escape { $_ = shift; s/([\&\;\`\'\\\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\n\r ])/\\$1/g; return $_; }
オープンソースメルマガ配信/メールマガジン作成システム/CGI+Flash
予約配信機能にcronを使っていないため、ほぼすべてのレンタルサーバで使えます。また、記事ごとに予約設定ができるため、ストックをたくさん用意でき余裕をもってマガジンライフを送れるでしょう。 メールマガジンを毎度まっさらな状態から作成していくのは効率的でなく、また見栄えの出来不出来の波もあってあまり賢明ではありません。 そこで予め決められたフォーマットをテンプレート化することができます。文章を挿入したり換えたりするだけで、デザインはそのまま、新しいメールマガジンが発行できるでしょう。他にも共通ヘッダー、フッダー設定ができ毎度の記入負担を軽減してくれます。 必要がないのに送ってくるメールマガジンは迷惑メール以外の何ものでもありません。解除フォームが見当たらない又は不案内な状態を放置している発行者のイメージダウンは免れないでしょう。 メールマガジンを解除したくなった場合には、簡単に解除ができる空
[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合
Kawa.netxp [Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合 XML::FeedPP モジュールは、 RSS 2.0、RSS 1.0 (RDF)、Atom 0.3（および1.0）フィードの XML ファイルを解析・生成・変換・結合するための Perl モジュールです。 RSS ベースの1種類の共通 API で RSS・RDF・Atom の各フォーマットの処理に対応しているため、 手軽に扱えます。 フィードの読み出し・書き込みはもちろん、 RSSからRDFへ、RDFからAtomへといった各フォーマット間の相互変換も可能です。 他サイトからダウンロードした複数のファイルを結合して、 まとめて1つのファイルとして出力することもできます。 公開版アーカイブ： XML-FeedPP-0.43.tar.gz TARGZ CPAN ←通常パッケ
複数のRSSフィードを結合するCGI「Fumy RSS Feeds Merger」
Fumy RSS Feeds Merger : Update Log 2016年09月10日 Ver 2.0.0 公開： 一部のウェブサーバで動作しなかった問題を解決しました。文字コードをUTF-8に。 2007年03月07日 Ver 1.00 公開： 初公開。 複数のRSS(Atom)フィードをいくつでも合体できるCGI 「Fumy RSS Feeds Merger」は、複数のRSSフィードやAtomフィードを結合して、1つの大きなRSS(Atom)フィードを作成できるフリーCGIです。 複数箇所に分散しているフィードを結合して提供したい場合や、複数のフィードを結合してRSSリーダーなどで一括チェックしたい場合などに便利です。 結合するRSS(Atom)フィードの個数に制限はありません。いくつでも結合できます。 結合元のフィードは、RSS1.0(RDF)・RSS2.0・Atomの各種類が
Perlでアニメ顔を検出＆解析するImager::AnimeFace - デー
というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ
ustreamを見ながらflvにダンプする - KAYAC engineers' blog
kamaitachi開発者の村瀬です。 kamaitachiの開発のためにRTMP専用のスニファーを書いたのですが、そのアプリにほんの遊び心でflv保存機能をつけてみたところなかなかおもしろいのでここで紹介してみます。 ソースコードはこちら： Sniffer::RTMP この中の script/rtmp_flvdump.pl がRTMPストリームをflv形式でダンプするスクリプトです。（Net::Pcap を使用していますので実行にはスーパーユーザー権限が必要です。） 使い方は sudo perl ./script/rtmp_flvdump.pl en1 filename.flv のように、インタフェース名と保存するflvファイル名を与えると、RTMPのパケット中のビデオデータを filename.flv として書き出してくれるというものです。 たとえば、これを起動した状態でustream
Twimp - Mobile Twitter Gate
Twitterを携帯とかでスマートに使おうかなとか思ってでっちあげたPerlスクリプト。 [Download : twimp.txt] まぁ↑のtxtを保存してアカウント情報とか編集して、 拡張子をcgiに変更して適当なサーバにUPして実行権限与えればおｋとか、そんな。 モジュール足りなかったらインストールするなり.pmで置くなりでなんとか。 大したことしてないんで、適当にいじるなり、API使用のサンプルにでも使って下さいなー。 セキュリティホールとかあったら勘弁ね('x`) アカウント情報平文保存だし… 実際に使う時はBASIC認証とか掛けるのをオススメ。 $msgnumを0にしたりすると、余計な処理は入るけど簡単に投稿専用にできますよとか。 ＃ちなみにTwimpの名付け親はSOU1なんでご了承をというか何というか('x`) あと、制作にはtwmailを大いに参考にさせて頂きました。多謝
perl - 勝手に添削 - Perl入門#1@ITPro : 404 Blog Not Found
2008年06月03日06:00 カテゴリLightweight Languages perl - 勝手に添削 - Perl入門#1@ITPro さすがに出典が日経Linux 2003年7月号だけあって、少しトウがたってはいるけど、現在でもわずかな修正で使える記事。さすが川合さんといったところか。 第1回 Perlの文法の基本：ITpro というわけで、この記事の「現代化」Patchを。 全般 use strict;だけではなくuse warnings;も加えましょう。 さらに，調べても分からないことがあれば，メーリング・リストやユーザー・グループ＊2に質問してみてもよいでしょう。 blogに書くのもアリです。あと私は使っていないけどIRCとか。 ビルトイン関数は()でくくらない方が視認性が上がります。 before: chomp($sLine); after: chomp $sLine;
perl - Encode 中級 : 404 Blog Not Found
2008年05月08日04:00 カテゴリLightweight Languages perl - Encode 中級 以前書いた 404 Blog Not Found:perl - Encode 入門 は大好評でしたが、 ウェブで利用される文字コード、UnicodeがASCIIを上回る--グーグルが明らかに:マーケティング - CNET Japan UnicodeがASCIIを追い越し、World Wide Web上で最も多く利用されている文字コード体系になったとGoogleのシニアインターナショナルソフトウェアアーキテクトMark Davis氏がブログで述べている。 という時代に完全対応するには、入門以上の知識がちょっと必要になります。 例えば、本blogをホストしてくれているlivedoor blogの文字コードはEUC-JP。「時代はUnicode」だと言っても、こうした事情もまだ
404 Blog Not Found:perl - Encode 入門
2008年04月09日01:00 カテゴリLightweight Languages perl - Encode 入門 すでにOSCONでもYAPCでも、あちこちそちこちでこの基本方針に関しては話したのですが、ここ 404 Blog Not Found でも改めて。 Perl で utf8 化けしたときにどうしたらいいか - TokuLog 改め だまってコードを書けよハゲ 入り口で decode して、内部ではすべて flagged utf8 で扱い、出口で encode する。これがすべてです！とにかくこの基本方針をまもっていれば幸せになれます。ここでは、EUC-JPでエンコードされたファイル中の「小飼弾」「こがいだん」「コガイダン」「Kogai Dan」を正規表現で書き換えて標準出力にEUC-JPで出力するプログラムを例にとって説明します。 decode() then encode(
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
perl - Imager::QRCodeを使ってみた : 404 Blog Not Found
2007年11月12日15:00 カテゴリLightweight Languages perl - Imager::QRCodeを使ってみた 野暮用があったのでこんなのさくっと作ってみた。 http://api.dan.co.jp/qrcode.src 使い方は、こんな感じ。詳しくはソースを参照してちょんまげ。ご自由にお持ち帰りください。つーかそうしてもらった方がアクセス負荷的にありがたいか。 data: size: margin: version:0で自動 level: mode:漢字が入っている場合は、Kanjiに指定 lightcolor:#バックグラウンドの色 darkcolor:#フォアグラウンドの色 鯖側はあっという魔に出来た。5分かかったかどうか。蔵側(JS)も10分ほど。引っかかったのは、ちょっとKanjiの扱いで手直ししたぐらいか。 Imager::QRCode++;KU
対談「初心者とハッカーが共存できるPerl」
現在，Perlユーザーは2極化が進んでいます。初心者はいまだに「CGIが使えさえすればいい」という段階で満足しています。一方で，Perlハッカーは独自の世界を構築し，あまり初心者を省みません。そこでこの特集では，初心者層に絶大な影響力を持つ見上巖氏（ウェブクリエイト代表取締役，KENT-WEBを運営するKENT氏として有名）と，Perlのハッカー集団であるShibuya Perl Mongers（Shibuya.pm）の新リーダー，竹迫良範氏（サイボウズ・ラボ）に対談をお願いしました（編集部）。 まずは，Perlとの出会いから教えていただけるでしょうか。 見上 私がPerlに出会ったのはちょうど10年ほど前，1996～97年くらいですね。そのころはコンピュータ・メーカーの営業で，まだプログラミングはできませんでした。自分のWebページにフリーのCGIの掲示板を設置しようとしたのですが，うま
Part1 正しいPerl/CGIの書き方：ITpro
Shibuya Perl Mongers 2代目リーダーにして，ppencodeの作者。広島市立大学卒業後，大企業向けmod_perl製品の開発に従事。2005年よりサイボウズ・ラボ株式会社に入社。LL Ringに参戦。Namazu for Win32，Plagger，Ajajaのコミッターでもある。 CGIといえばPerl。そんな風にいわれていた時期もありました。レンタル・サーバーのCGIで手軽にPerlが使えたこともあり，ちょっとした掲示板のスクリプトやアクセス・カウンタなど，CGIプログラムの多くがPerlで書かれていました。このためPerlが爆発的に普及したのです。Perlは日本のインターネット黎明期を支えたプログラミング言語として，広くその名が知られています。 その半面，Perlで書かれたプログラムの保守性に悩む声も聞かれるようになりました。事実，Perlのプログラミング経験が少
DSAS開発者の部屋:携帯ゲートウェイのIPアドレス帯更新を効率的に確認する方法
携帯電話各キャリアは、そのゲートウェイのIPアドレス帯域を公開しています。 DoCoMo au SoftBank WILLCOM 携帯ブラウザからのアクセスの場合、このIPアドレスがソースアドレスとなるので、アクセス制御や判別のために使っている方は多いのではないかと思います。 今回は、このIPアドレス帯の更新を効率的に確認する方法についてのお話です。 更新されたかどうかの確認だけならアンテナ系のWebサービスを使えばよいのですが、それだけだと、 どのIPアドレス帯が追加・削除されたのかわかりづらい。 IPアドレス帯のコピペが面倒くさい。 といった不満点があります。 そこでNet::CIDR::MobileJPというPerlのモジュールの出番です。(作者はモバイルファクトリという会社の方のようです) このモジュールには与えたIPアドレスが携帯かどうかを判別する機能があるのですが、次のようにす
Perlオブジェクト指向プログラミング
-> 趣旨と注意書き -> 身近なpackage -> なんのためのpackage ? -> What's `new' ? -> bless ( reference => package ) -> Hello, Module World! -> オブジェクト？ -> main パッケージと関連付けてみる -> クラスとメソッド -> オブジェクト指向 -> オブジェクトがリファレンスなら… -> -> を連続する -> 継承 -> 多重継承 -> 多重継承をやめる -> 多重継承をやめる(もう少し簡単に) -> 情報源(書籍等) <- モドル 趣旨と注意書き これを読んでも、あんまりきちっとした知識は、身に付きません（^^; オブジェクト指向の概念はほんの少ししか説明しません。ここで述べるのは、Perlでどうやるかってのが主です（それも不十分＆嘘まじりかも）。 とりあえず、モジュールを作り
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
初心者にもお勧めのスクリプト言語“Perl”向け統合開発環境「Padre」NOT SUPPORTED
ジャストシステム、「ATOK」のプラグインを作成できるAPI公開
正規表現の問題集1（基本編）
