2009年05月10日20:15 カテゴリLightweight Languages perl - URI::Amazon::APA released! そんなわけで、作りました。 /lang/perl/URI-Amazon-APA/trunk - CodeRepos::Share - Trac dankogai's p5-uri-amazon-apa at master - GitHub @CPAN (coming soon) Amazon アソシエイト・プログラム（アフィリエイト） 公式ブログ: Amazon アソシエイト Web サービスの名称変更および署名認証についてのお知らせ名称変更にともない、Product Advertising API にリクエストを送信いただく都度、認証のための電子署名を含めていただくことが必要になります。この変更は、2009年5月11日より3ヶ月の間の移

こんにちは！近頃咳と痰と鼻水と鼻づまりがすごく多い、金曜日の天使ことhasegawayosukeです。 ActivePerlで任意のx86バイナリを実行しているようなときには、バイナリ部分のデバッグに結構手間取るときがあります。あまり準備に手間をかけずに気合いだけでad-hokに修正したいときは my $x86 = "\x8b\x44\x24\x08......"; print unpack( 'H2' x length( $x86 ), $x86 ); のように、実行するバイナリコードを目視で確認すればよいのですが、jmp命令が入るとアドレスの計算などがけっこう面倒になります。そんなときはやはりデバッガを使ってデバッグしたくなるのが人情なので、ActivePerlとデバッガをうまく連携させる方法を考えました。 Visual Studioがインストールされた環境では、「C:\Windows

Perl › 環境構築 (この記事の内容は古くなっています、現在はcpanmを使ってモジュールをローカルにインストールするのが簡単でしょう。cpanmによるローカル環境構築を見てください。) otsuneさんのところでさくらインターネットのレンタルサーバでCPANを使用する方法が紹介されているのですが、一部手作業が発生するので、すべてコピペで実行できるように手順化してみました。 さくらインターネットサーバcpan導入手順 # ライブラリのためのディレクトリの作成 mkdir -p ~/local # CPANの設定ファイルを作成 echo no | cpan # cpanコマンドの設定ファイルMyConfig.pmの書き換え # ( __END__の行まで一気にコピーして実行してください。とまった場合はEnter ) perl - ~/.cpan/CPAN/MyConfig.pm > ~/

前回なんとか１章を読みましたが、やっぱりよく理解出来てなかったのと２章に至っては「？？？」だったので、読めそうなところから読んで行って、一通り読み終わりました。 んで、僕のような初心者向けの読む順番として経験から一考察を。 一応目次には ========== 初心者 ９章 １章、２章 ========== ========== Web系の方 ４章 ５章 ６章 ３章 ========== ========== システム管理を行っているかた １章 ５章 ８章 ========== というような振り分けがなされています。 僕の感想としては、 (９章） ⇒ （「１章の6ページまで」） ⇒ （６章） ⇒ （３章→４章） ⇒ （７章→５章→８章） ⇒ （１章→２章） かなと思います。 ９章 ９章はホントに「Perlとは」っていうところについて。「perl≒CPAN」と取れなくもない図式のCPANについ

2009年02月10日01:00 カテゴリLightweight Languages perl - open my $fh, "comand |"; # はモダンじゃない モダンPerl入門 牧大輔 「モダンPerl入門」発売記念ということで、同書を補足するentryを。 同書でちょっと残念だったのが、[5.2 外部コマンドの実行]。あまりモダンではないのだ。 P. 141 system("/sbin/wget", "http://example.com"); これはいいのだが、以下がちょっとまずい。 my $output = `/bin/ls tmp`; open(my $fh, '| cat -v'); これ、何がまずいか、というと、コマンド実行の際に/bin/shを使ってしまうのだ。そのおかげでcommand < from > to 2&>1のようなリダイレクトも使えるなどの利点もあ

2008年12月10日12:30 カテゴリ書評/画評/品評Lightweight Languages Perl - "Higher Order Perl" が無料ダウンロード可能に はてぶ経由で知ったのだけど、すごい。 Higher Order Perl Mark Jason Dominus Higher-Order Perl これ、Perl Mongesだけではなく Rubyists にも Pythonistas にも JavaScripters にも、いわゆる高階関数が使えるプログラミング言語のユーザーすべてにお勧めです。高階関数が単に面白いだけではなく、非常に役に立つこともわかります。 PDF版をダウンロードしたのですが、特にありがたいのは、テキスト、すなわちコードもコピペ可能なこと。検索と引用は本のアキレス腱なので。 その一方で、600ページ近いこの大著を通読するのは、紙の方が向い

PerlでWebアプリを書いたのがかれこれ7年くらい前になるので最近の流れを学ぶためのメモ。まあ、最近といっても最新ではないけど。 作って学ぶ、今どきのWebサービス 第1回　何はなくともCPANを知ろう 第2回　RSSフィードの料理はLWPとXML::RSSにおまかせ use strictをつかえ Webコンテンツをシンプルに取得するだけならLWP::Simple。debianだとlibwww-perl RSSフィードを処理するならXML::RSS。debianだと、libxml-rss-perl shiftでコマンド実行時の引数を取得できるらしい。shift(@ARGV)の略？ ourという接頭子を始めてみた。TAKESAKOのはてな出張所：my と local と our の違いについて, 404 Not Found：perl - myとourとscopeと 第3回　XML::Sim

2008年06月10日16:00 カテゴリLightweight Languages perl - Lingua::CJKV::Simplify で簡単繁盛 いやあ、 クリリンノコトカー を見たらむらむら作りたくなって、作ったらあっさりできちゃったという。 /lang/perl/Lingua-CJKV-Simplify/trunk - CodeRepos::Share - Trac NAME Lingua::CJKV::Simplify - (Simplified|Traditional) Chinese Characters SYNOPSIS use Lingua::CJKV::Simplify; my $cjkv = Lingua::CJKV::Simplify->new( "Dan,\x{5F3E},\x{5F48},\x{5F39}" ); print $cjkv, $cjkv->

http://d.hatena.ne.jp/tragedy/20080522/p1で作っているベスト50つうのは、本人も言うとおり『d.hatena.ne.jp』 の人気エントリー - はてなブックマークを成形したものだそうで。 であれば、普通にスクレイピングしてくればいいのかな、ということで。 #!/usr/bin/perl use strict; use Web::Scraper; use URI; use utf8; # init my $entry_body = scraper { process '.entry-body > a.bookmark', 'url' => '@href'; process '.entry-body > a.bookmark', 'title' => 'TEXT'; process '.entry-body > a.domain' , 'writer'

岡村 直樹（にゃるら）『輝かしい青春』なんて失なかった人。 2023年10月現在、アルバイトが退職となったので次に備えて待機中。 ※なおゲームのシナリオ・企画を担当された『にゃるら』さんとは別の人間です 略歴1988 年代の早生まれ。『輝かしい青春』なんて失なかった人。 2003 年代後半の高校生時代、自滅的にメンタルを病み、そこから 2023年 10月現在も治療中。 とはいえ 2019年 9月頃に N 高等学校を卒業し、 その後 2022年 8月から 2023年 9月末まで Web アプリケーションエンジニアとしてアルバイト就職をするなどした。 2023年 10月現在、次回の備えて精神科でリハビリに通う日々を送っている。 プログラミングスキルは 2005 年頃、 blosxom のために Perl を扱う事を通じて修得し、 そこから 2023年 10月に至るまで継続して腕を磨いている。

2008年03月14日12:45 カテゴリLightweight LanguagesTips perl - 勝手に添削　- 神経質（A型）なPerlハッカーあるある あきまへんなあ。 神経質（A型）なPerlハッカーあるある - D-6 [相変わらず根無し] if ($foo eq 'XXX' || $foo eq 'YYY')を if ($foo =~ /^(XXX|YYY)$/) に書き直したくなる 速度的にも、正規表現よりも eq || eq の方がいい場合が多いのよ。 #!/usr/local/bin/perl use strict; use warnings; use Benchmark qw/timethese cmpthese/; my @mongers = qw/dankogai dconway dmaki drolsky/; my %who = map { $_ => 1

実ははてなブックマークとはてなスターのペアは強力なんですよ 以前からはてなブックマークはニュースサイトと概念的には変わらない(ニュースサイトとSBMの差は管理人主導か集合知重視かの違い。 - ブログ執筆中)とか,はてなスターは文章を引用するのに使えるツール(ネタ保持のためのはてなスターの使い方 - ブログ執筆中)であるとか、この二つのツールは、サイトのネタあつめに使えるということを当ブログでは主張してきました。そして、俺自身その方法でネタ集めをしています。 はてなスターの引用機能を使って気になるポイントを引用していきます。また、感想を書きたい場合はブックマーク、批判や考察が考えられそうな場合はGoogleノートブックに控えておきます。また、言及記事があったらそのままどんどん読み進めます。それなりに☆の記事を読んだら、次は、はてブのお気に入りを読んでいきますが、こちらは気になった記事だけじっ