Net::Twitter
NAME Net::Twitter - A perl interface to the Twitter API VERSION version 4.01043 SYNOPSIS use Net::Twitter; use Scalar::Util 'blessed'; # When no authentication is required: my $nt = Net::Twitter->new(legacy => 0); # As of 13-Aug-2010, Twitter requires OAuth for authenticated requests my $nt = Net::Twitter->new( traits => [qw/API::RESTv1_1/], consumer_key => $consumer_key, consumer_secret => $consu
Sbox Error
The sbox program encountered an error while processing this request. Please note the time of the error, anything you might have been doing at the time to trigger the problem, and forward the information to this site's Webmaster (webmaster@www.ac.cyberhome.ne.jp).Stat failed. /usr/local/apache2/cgi-bin/~mattn: No such file or directory sbox version 1.10 $Id: sbox.c,v 1.16 2005/12/05 14:58:01 lstein
404 Blog Not Found:perl+apache - LWPを責めないで
2007年04月10日18:00 カテゴリLightweight LanguagesBlogosphere perl+apache - LWPを責めないで これはPerl Mongerとして一言言っておかねばなるまい。 Googleにもアクセス拒否され、スパム送信源と化した「libwww-perl」とは？ - GIGAZINE スパム対策をして気がついたのですが、どうやらスパムトラックバックを送信してくるリモートホスト（IPアドレスなど）はバラバラであっても、ユーザーエージェント、いわゆるブラウザの名称部分に「libwww-perl/5.805」というように「libwww-perl」と入っているものが多く、結果として、Googleなどは検索結果ページに対してこのユーザーエージェント名の一部「libwww」が含まれているとアクセス拒否しているようです。LWPことlibwww-perlは、We
いやなブログ - 文字列操作の比較表: Ruby, Python, JavaScript, P...
文字列操作の比較表: Ruby, Python, JavaScript, Perl, C++ Ruby, Python, JavaScript, Perl, C++ の文字列操作の比較表を作りました。配列操作の比較表の続編です。間違いなどがあったらご指摘いただけると助かります。 Ruby (String) Python (str) JavaScript (String) Perl C++ (std::string)
浮動小数点 - hibomaの日記
Perlで数字演算はあんまりしないけど print int(2.4/0.2); # 結果は11になる! 2.4÷0.2 といった計算は、浮動小数点がほにゃららのせいで誤差が生じるということをメモしておく。 あれ、でも int を外したら12になる。よく分からん。 Mastering Algorithms With Perl 作者: Jon Orwant,Jarkko Hietaniemi,John MacDonald出版社/メーカー: Oreilly & Associates Inc発売日: 1999/07メディア: ペーパーバック購入: 1人 クリック: 8回この商品を含むブログ (3件) を見る
Acme::Oppai - Yappo::タワシ
http://d.hatena.ne.jp/higepon/20060407/1144400043 package Acme::Oppai; use strict; use warnings; our $VERSION = '0.01'; use overload q("") => sub { ${$_[0]->[0]} }; sub new { my $class = shift; my $o_str; my $self = [ \$o_str, ]; bless $self, $class; } sub massage { my $self = shift; ${ $self->[0] } .=<<OPPAI; _ ∩ ( ゜∀゜)彡 おっぱい!おっぱい! ( ⊂彡 | | し ⌒Ｊ OPPAI $self; } 1; __END__ =head1 NAME Acme::Opp
結城浩のはてな日記 - Perlでundefが真になる場合
−−−2011-07-14,07-17 注意書き始まり−−− 以下の記事は混乱と誤りを含んでいますので、参考にしないでください。 タイトルも誤解を生むというご指摘をいただき変更しました。 以前のタイトルは「Perlでundefが真になる場合」および「Perlでは(undef)は真」でした。 これについて、@akajiroさんからPerlではundefは常に偽と判定される。ただ、条件にリスト代入（これはスカラーコンテキストでは右辺で生成された要素の数を返す）なんかを用いるような場合に注意が必要なことを指して、いつも偽とは限らない、みたいな誇張表現をする人はいる。というコメントをいただいています。（さらに続きのコメント） −−−2011-07-14,07-17 注意書き終わり−−− （注意：以下の記述では結城がかなり混乱していますので参考にしないでください。要するに結城が「return und
きよへろの Perl コードをリファクタしようのコーナー - naoyaのはてなダイアリー
キーに姓、バリューに名を格納したハッシュに yasuhiro と引数を渡すことで onishi と返すスクリプト（今月始めに作成） id:kiyohero が Perl を勉強しはじめたというのでリファクタしようのコーナーです。続くかどうかは分かりません。 #!/usr/local/bin/perl use strict; use warnings; my %staff = ( kondo => 'junya', ito => 'naoya', onishi => 'yasuhiro', danjou => 'nobuo', minowa => 'higepon', ); my $user = shift or die "usage: $0 <name>"; print $staff{$user}, "\n" if $staff{$user}; 変数が入らない文字列はシングルクォートで。
Text::Hatena - jkondoの日記
先日、CPANにText::HatenaというPerlモジュールを作って登録しました。 http://search.cpan.org/~jkondo/Text-Hatena-0.02/lib/Text/Hatena.pm はてなダイアリーで使っているはてなの記法（*→見出し、>>→引用）に準じて、テキストからHTMLを生成するモジュールです。 本当はURLの自動リンクとか各種自動リンク記法なんかも一緒にできるようにしようと思っていたのですが、例えば「id:jkondo」と書いた時にどこにリンクすればいいんだ、みたいな問題がありますのでとりあえずブロック要素だけに対応しています。（インライン要素は別のモジュールでもいいかなという気がしています） はてなを毎日使っていると、「-」と書いてリストを生成する、みたいな癖がついてきて、いろんな所で使いたくなってきます。そういうときにこのモジュールを使
XML::Parser を Hack して utf8 フラグ問題から解放される - naoyaのはてなダイアリー
意外と知られてないのかもしれないので書いてみる。というか竹迫さんのパワポに書いてるまんまなんだけど、XML::Parser のソースに以下のパッチを当てるのみ。 --- XML-Parser-2.34-orig/Expat/Expat.xs Mon Jul 28 23:41:10 2003 +++ XML-Parser-2.34/Expat/Expat.xs Fri Aug 27 08:36:39 2004 @@ -17,6 +17,8 @@ #undef convert +#undef SvUTF8_on + #include "patchlevel.h" #include "encoding.h"するとあら不思議、XML::Parser で utf8 フラグが立たなくなります。ということは XML::RSS でもまた然り(XML::RSS の中では XML::Parser で pars
naoyaのはてなダイアリー - Perl6 と後方互換性
LLDN で弾さんの Perl Updates のときに、後方互換性についての質問をしました。僕が聞きたかったことを詳細に言うと「Perl5 のときは 5.6 → 5.8 みたいに後方互換性を維持しつつもバージョンアップという形で進んできたのに、Perl 6 はまるで別言語のようだ。Perl 6 は面白いと思うけど、後方互換性を捨ててまで 6 を作りたいというモチベーションが何なのかを教えて欲しい」ということでした。 で、答えとしては "insane" だってことで作りたいから作ってるみたいなとこだったんですが、今さっき miyagawa さんと話しててわかったこと。 Perl 6 は Pugs なり Parrot なりの上で動くから VM で Perl 5 のモジュールが動くようにできるっぽい 実際 use perl5:LWP とかで Perl 6 から 5 のモジュールは使える Pug
Perl の use と mod_perl、あと LLDN 感想ちょっと。 - naoyaのはてなダイアリー
それとperlのuseってどういうものなのか解らないんだけど、FastCGIのようなプロセス常駐させている場合、rubyのrequire*2したものがプロセスで共有されてて次回の起動コストはかからないんだけど、それとは違うのかな？ use するとこんないいことがあるんだよ、って書こうとしたら引用もとのコメントに miyagawa さんが書いてた。二つあるけど、どっちかというと大きいのは mod_perlのスタートアップ時にロードしてforkしたchild間で共有してメモリ消費を減らせる(シングルスレッドなFastCGIなら不要？) ここですね。 mod_perl だと、リクエスト毎に子プロセスを生成してリクエストに応じてプロセスを生成しそれに応答、あとはそのプロセスを使いまわすわけなんですが、use と require の違いが、子プロセスのメモリサイズに大きく影響してきます。 miyag
naoyaのはてなダイアリー - HTML::TagCloud
del.icio.us / miyagawa 経由で見つけた CPAN モジュール HTML::TagCloud。Tag Cloud (はてなブックマークの右側に出てくるタグ一覧みたいなやつ) を生成する CPAN モジュールです。 出力はどんな感じかなと思って使ってみました。 #!/usr/local/bin/perl use strict; use HTML::TagCloud; my $tags = [ { tag => 'blog', count => 20}, { tag => 'ajax', count => 10}, { tag => 'mysql', count => 5}, { tag => 'hatena', count => 12}, { tag => 'bookmark', count => 30}, { tag => 'rss', count => 1}, { t
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Unicode::String
jperl
Naoya Ito
Junya Kondo
naoya.dyndns.org is offline
http://srekcah.org/~utashiro/perl/
NI-Lab.'s ヅラッシュドット: はてなブックマークをバックアップする