タグ

perlに関するinit5のブックマーク (233)

  • subtech - Bulknews::Subtech - Fix dodgy utf-8 bytes

    はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

    subtech - Bulknews::Subtech - Fix dodgy utf-8 bytes
  • いやなブログ - スクリプト言語用のデバッガの使い方 - Ruby, Python, Perl

    スクリプト言語用のデバッガの使い方 - Ruby, Python, Perl スクリプト言語用の CUIのデバッガの使い方を簡単にまとめました。対象言語は Ruby, Python, Perl です。 私は C, C++ でプログラムを書いているときはデバッガ (主に GNU/Linux 上の gdb) を頻繁に利用します。しかし、スクリプト言語ではそれほどでもありません。これはおそらく次のような理由によります。 ビルドが不要なので printf デバッグが容易 (ある程度大きい C++ のプログラムではビルド時間が長いので printf の挿入はしんどい) 異常終了時にスタックトレースが表示される (Ruby, Python なら自動、Perl の場合は use Carp; $SIG{__DIE__} = \&Carp::confess; など) オブジェクトのインスペクトが簡単 (Ru

  • chalow - CHAngeLog On the Web

    since 2007-02-05, last update 2007-10-19 たつを chalow は ChangeLog ファイルを HTML ファイルに変換してブログ化するツールです。 chalow は CHAngeLog On the Web の略です。 Perl で書かれています。 もちろん開発者のブログは chalow を使っています。 ソースは「無償・無保証・著作権放棄」で公開しています。 要するに好き勝手に使ってくださいということです。 情報 chalow の ChangeLog: chalow の ChangeLog を chalow で HTML に変換したもの。 README: 使い方など。 ChangeLog の各部の名称: chalow では各部を以下 (クリックで拡大) のように呼ぶことにし ます。 設定ファイル、CSS、プログラムソースを見るときにご参照下さ

  • Net-Amazon-0.38 を使って ISBN-13 から ASIN を取得する Perl プログラム - Tociyuki::Diary

    野暮を承知の上で、hyuki さんの「結城浩のはてな日記」のコードは、それ CPAN モジュールの Christopher Boumenot / Net-Amazon-0.38 で簡単に書けるよ! でも、たぶん、hyuki さんのコードは API の説明用にあえて URL を自力で組み立ているのだと思います。 #!/usr/bin/perl use Net::Amazon; use Jcode; my $ua = Net::Amazon->new(token => 'あなたのAccessKeyId', locale => 'jp'); my $res = $ua->search(isbn => '9784798111117'); unless ($res->is_success) { print "Error: ", $res->message, "\n"; exit 1; } print

    Net-Amazon-0.38 を使って ISBN-13 から ASIN を取得する Perl プログラム - Tociyuki::Diary
  • ウェブリブログ:サービスは終了しました。

    「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧

    ウェブリブログ:サービスは終了しました。
  • 小飼弾のアルファギークに逢いたい:#0 Perlの父 Larry Wall|gihyo.jp

    というわけで、Larry Wallの来日とともに、いきなり連載スタートです。3月29~30日に開催されたYAPC::Asia::2006に合わせて5年ぶりに来日したLarryは、実は我が家の賓客でもありました。またとない機会なのでインタビューしてみた次第。なお、Larryが日語で話した部分は《~》でくくっています。 撮影:武田康宏 弾(筆者⁠)⁠:日語はどれだけ話せるのですか? ラ(Larry⁠)⁠:《簡単に会話を遅くします。でもペラペラじゃない。5年かけて少しずつ勉強しました。でも、練習することがあまりできません。だけで簡単に…》 弾:ひょっとしてまだ1977年版Honda Accordに乗っているんですか? ラ:はい。もう29歳です。廃車にすると、環境条例でカリフォルニア州が500ドルくれるのですが、まだ乗ってます。 弾:最近お気に入りのアニメは? ラ:《あずまんが大王! ちよち

    小飼弾のアルファギークに逢いたい:#0 Perlの父 Larry Wall|gihyo.jp
  • perl - Yet Another 10のUNIX小技 : 404 Blog Not Found

    2007年01月14日05:30 カテゴリLightweight Languages一日一行野郎 perl - Yet Another 10のUNIX小技 Geekなぺーじ:10のUNIX小技にperlを加えるとさらに幸せになれるというお話。 1.ディレクトリの作成 今時-pをサポートしていないmkdir(1)はないと思いますが、ない場合は perl -MFile::Path -e 'mkpath $_ for @ARGV' path/to/dir more/path/to/dir ... で代用が出来ます。 alias mkpath perl -MFile::Path -e \'mkpath \$_ for @ARGV\' と.bashrcや.cshrcとしておけば、 mkpath path/to/dir more/path/to/dir ... と出来ます。 2. tarの解凍先を指定

    perl - Yet Another 10のUNIX小技 : 404 Blog Not Found
  • Perl正規表現雑技

    このページは Perl5.6 を対象としています. perl スクリプトは EUC-JP で書かれることを想定しています. このページは 正規表現メーリングリスト を参考に,私が独自にメモとしてまとめたものです. このページの正規表現やスクリプトについての詳しい説明, わかりやすい説明はおそらくできません. このページに書かれているスクリプトは, 個人の責任において実行してください. このページに書かれているスクリプトの 利用・改造は自由 です. その際はどこかにこのページの URI( http://www.din.or.jp/~ohzaki/regex.htm )を参考として記述していただければ幸いです(任意). ご意見・ご感想・ご要望などは にお願いします.こう書いた方がいい, 動かん,わからん,バグってる,これ書け,などなどお待ちしています. このページへの リンクは自由 に張ってく

  • Elementary, ... 最近のコネタ

    この前の仕事からTipsをダンプ... Catalyst x Lighttod の時、Catalyst は 5.7004 以上必須 Shibuya.pm の typester さんの話で感化されたのもあって採用した Lighty、イイ。シンプルに言われたことだけをこなしてくれる感じ。 で、Catalyst を Lighty で動かすときは Catalyst 5.7004 以上が必須なんすね。でないと、SCRIPT_NAME などの環境変数のバグから、http://example.com/foo/ と http://example.com/foo のように最後にスラッシュが付く付かないで実行されるアクションが変わってしまう。なので今後はアプリケーションクラスにすぐ use Catalyst::Runtime '5.7004'; と書くことにした。 Lighty、UploadProgressは

  • perl - 継承を使いたいワケ : 404 Blog Not Found

    2006年12月05日09:30 カテゴリLightweight Languages perl - 継承を使いたいワケ おっとっと。というわけで元記事は直したのだけど、あえて継承を使いたかったのにはワケがある。 subtech - Bulknews::Subtech - MobileAgent おしゃれでもないし、そもそもこのコードでは動かない。 無理やりかけばこうなるか。 package MyMobileAgent; my $i; sub new { my $class = shift; my $self = HTTP::MobileAgent->new(@_); my $pkg = __PACKAGE__ . "::". $i++; no strict 'refs'; @{$pkg."::ISA"} = (ref $self, __PACKAGE__); bless $self, $p

    perl - 継承を使いたいワケ : 404 Blog Not Found
  • perl - 勝手に添削 - 条件分岐 : 404 Blog Not Found

    2006年12月05日05:30 カテゴリLightweight Languages perl - 勝手に添削 - 条件分岐 というわけで、ひさかたぶりの勝手に添削のコーナーは、こちら。 CodeZine:Perlで作るモバイルサイトのコツ:第5回 (モバイル, XHTML, Perl) 多少長い判別となってしまいましたので用途に合わせて関数化してもよいでしょう。 さらにすっきりとロジックを書き出す方法がいくつもあります。 use HTTP::MobileAgent; my $agent = HTTP::MobileAgent->new; if ($agent->is_docomo){ if ($agent->is_foma){ # XHTML対応 } } elsif ($agent->is_ezweb){ if ($agent->is_win){ # XHTML対応 } } elsif

    perl - 勝手に添削 - 条件分岐 : 404 Blog Not Found
  • Plagger + Catalyst = Plalyst or PlaCata ? メソッド (Yusukebe::Tech)

    サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ

    Plagger + Catalyst = Plalyst or PlaCata ? メソッド (Yusukebe::Tech)
  • ゆーすけべー日記

    サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ

    ゆーすけべー日記
  • Geo::Coder::Ja に郵便番号からの変換機能を追加した - spiritlooseのはてなダイアリー

    Geo::Coder::Ja に郵便番号からの変換機能を追加してみた。 http://search.cpan.org/~jiro/Geo-Coder-Ja-0.03/ 一応デモの方も対応した。 http://spiritloose.net/misc/geocoder/?q=1500002 こんな感じで。

    Geo::Coder::Ja に郵便番号からの変換機能を追加した - spiritlooseのはてなダイアリー
  • Catalyst+Template-Toolkit(Catalyst::View::TT)で国際化 - ヒルズで働く@robarioの技ログ

    はてぶコメントより、typesterさん曰くCatalyst::Plugin::I18N - I18N for Catalyst - metacpan.orgでできるよとのこと。お〜。名前は昔見たことがあったのですが中身まで見てませんでした。今回の話(と次に書こうと思っていた話)のほとんどがCatalyst::Plugin::I18Nに含まれていますね。Template周りをちょこっといじるだけで良さそうです。コメント当にありがとうございました。助かります。 このエントリは「Locale::Maketextの使い方」ということでお願いします。 はじめに 同じ内容のページを、ユーザの環境に応じて英語版と日語版を切り替えたい。という話です。 よくある「使用するテンプレートを言語毎に用意する」という方法では、英語版テンプレートと日語版テンプレートの同期を取るのが非常に面倒になります。そこで

    Catalyst+Template-Toolkit(Catalyst::View::TT)で国際化 - ヒルズで働く@robarioの技ログ
  • Catalyst::Helper::View::TTSite と TT の AutoWrapper

    Catalyst::Helper::View::TTSite を使ってみたら、雛形のテンプレートで TT の WRAPPER がみたことがない使われ方をしていたので、調べてみたら TT の Automatic Wrapper という仕組みだった、という話。 今までの自分の TT の使い方。 普段自分が Web アプリなんかで TT を使う時の使い方は、header.tt と footer.tt とか作って、tt_process で指定するテンプレがそいつらを含めてるという、↓のような感じ。 header.tt。 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html> <head> <meta

  • オープンソースの GeoCoder 「geocoder.ja」がすごい - spiritlooseのはてなダイアリー

    http://www.postlbs.org/postlbs-cms/ja/geocoder オープンソースの GeoCoder。「ジオコーダーじゃ」と読むらしい。 これはすごいな。 早速使ってみた。 まずデータを揃えるのが結構大変。 ゆうびんホームページの郵便番号データと国土交通省から街区レベル位置参照情報のデータを取ってきて、Windows専用のデータ変換ツールでデータを構築する必要がある。 国土交通省のデータのダウンロードがすさまじくだるい・・・ 普通にクリックしていくと多分全部集めるのに200回ぐらいクリックしなきゃいけない。 FireBugで多少楽はしたけど大変だった。 このありえないインターフェースはなんとかならんのかなぁ。 で使ってみた感じは、検索は非常に速い。 精度はGoogleMapsのGeoCoderとかにはかなわないけど、それなりにいい感じ。 一番詳細なレベルではてな

    オープンソースの GeoCoder 「geocoder.ja」がすごい - spiritlooseのはてなダイアリー
  • Plagger は妄想を煽る - 傀儡師の館.Python:楽天ブログ

    2006.11.19 Plagger は妄想を煽る カテゴリ:その他 Plagger の例などを見る。Plagger は Perl で書かれた RSS/Atom feed aggregator ということで、RSS/Atom を取得して、そこから何かを取り出して適当に処理して、その結果を使ってまた何かするようなことが簡単にできる。Googleで「はらへった」と検索するとピザが届くようにするまでや、Plaggerでエロサイト作ってみた なんていうのはデモンストレーションとしておもしろい。Plaggerとは? からメジャーな情報をたどれる。 Plagger は、2006年2月に plagger.org が公開されていることを考えると、かなり早い普及かな。日人の方(Tatsuhiko Miyagawa さん等)が開発の中心にいるということも、日で普及する一つのメリットにもなっているのかな。そ

  • Perl 5.8 で似非継続 - Tociyuki::Diary

    torus solutions! さんの「なんでも継続、Perl で。」のコード例は Scheme なら確かに継続になっているのですが、Perl 5.8 までは末尾関数呼び出しを goto にしてくれないので、クロージャをスタックに積み上げる再帰呼び出しのまんまです。 (11月18日追記)この問題を小飼弾さんが「継続は力なり」で解決しようと試みていますが、この解は残念ながら leaf_count_cps_g の呼び出しがループ(もしくは goto)になっていません。そもそも scheme で 再帰版 leaf_count を継続を使って書き改める動機は「継続と関数のすべてを末尾呼び出しに書き換えることでループ化する」ことですから、Perl でもそうしてみたいのです。 それならばと goto &subroutine名 を使えないかとやってみたのですけど、思ったように動いてくれませんでした。

    Perl 5.8 で似非継続 - Tociyuki::Diary
    init5
    init5 2006/11/17
  • 404 Blog Not Found:perl javascript - はてブと短縮URLのMashup

    2006年11月17日06:00 カテゴリLightweight Languages perl+javascript - はてブと短縮URLのMashup *LOVE IS DESIGN* - 無駄に長いURLって困りませんか?無駄に長くてわかりにくーい検索結果などの URL を、mixi の日記やブログのコメント欄に貼っているのをたまに見かけますが、ブラウザによっては画面から突き出したりレイアウトが崩れる原因になってしまいます。 FETISH STATION - 短縮URLを使ってはならない理由「短縮URL」 を生成するウェブ・サービスを紹介している記事ですが、コメント欄で指摘されているとおり、リンク先がどのサイトにジャンプするかわからないというリスク、およびセキュリティ上の欠陥があります。(記事の一部がこれを受けて修正されています。) それなら、SBMを短縮URLの元データにしてしまえ