PerlワンライナーでURLエンコード/デコード

perl

こんな感じかな？（ワンライナーじゃないｗｗｗ） URLエンコードコード perl -e '$ARGV[0]=~s/([^\w ])/"%".unpack("H2",$1)/eg;$ARGV[0]=~s/ /\+/g;print"$ARGV[0]\n"' 【エンコードしたい文字列】テスト > perl -e '$ARGV[0]=~s/([^\w ])/"%".unpack("H…

2009-02-23

Perlで累乗計算の速度計測〜二乗を計算するなら？〜

Perl programing

Perlで二乗の計算をするなら $i ** 2 よりも $i * $i の方が約2倍早い。実験 0〜1000000までの二乗を計算する速度ソース pow1.pl（*で計算） #!/usr/bin/perl use strict; for (my $i = 0; $i < 1000000; $i++) { my $p = $i * $i; } pow2.pl（**で計算） …

2008-07-28

Logn Pollingを使ったストレスの少ないチャットを作ってみた

Perl web ajax

従来ののチャットといえば、メタタグやJavascript等で定期的に更新処理がされていたのでストレスだったはず。サーバが送りたいタイミング（プッシュ型通信）でクライアントに更新をかけられれば、無駄な更新はしなくても良いし、無駄なトラフィックも無くな…

2008-06-16

Discovering OpenID Relying Partiesの仕様

perl openid

がイマイチ良く分からない。。

2008-05-21

XML-LibXMLインストール手順

Perl

１．libxml2-2.6.26をインストール(最新版libxml2-2.6.27はインストールできず・・) # ./configure --prefix=/usr/local/libxml2-2.6.26 # make # make install ２．XML-LibXML-Common-0.13(XML::LibXML::Common)をインストール /usr/local/perl-5.10.0/bin/…