調べる $ kcc -c [ファイル名]変換 $ nkf -j [ファイル名] > [変換後ファイル名] -s : sjis -e : euc-jp -u : utf-8 -j : ISO-2622-jp

ex. 猫→%e7%8c%ab sub url_encode($){ my $str = shift; $str =~ s/([^\w])/'%'.unpack('H2'$1)eq; $str =~ tr//+/; return $str; }

キーでソートするより便利なときもある b -> aだと降順 a -> bだと昇順 %hash; my @keys = sort{ $hash{$b} <=> $hash{$a} } keys %hash; # 数字じゃなくて文字列比較のときは # $hash{$a} cmp {$b}

通常 $var = "one:two:three"; @list = split(/:/,$var); # @list = (one, two, three) LIMIT使用 $var = "one:two:three"; @list = split(/:/,$var,2); # 分割する回数の最大値を入力 # @list = (one, two:three) PATTERNにスペース @list = split(/ */,'a …

特殊変数の$\で読み込みの範囲を指定できる

接続 use DBI; $db = DBI -> connect('DBI:mysql:server_name','user_name','passwd') || die "$!"; eval{ $sth = $db -> prepare(命令文); $sth -> execute; $sth -> finish; $db -> disconnect; }; if($@){ $db -> rollback; $db -> disconnect; } 取り出…

URLからhtmlを取得する use HTTP::Lite my $url = "http://d.hatena.ne.jp/unyaunya7"; my $http = new HTTP::Lite; my $req = $http -> request($url); my $doc = $http -> body(); # htmlドキュメントの取得 エンコード処理などを取得後しておいたほうが無…