Perl:Tips
http://chalow.net/2006-11-28-2.html後でまとめる。
PERL5LIBの設定後ハマったのでメモ source .bashrc
研究室で文字コードについてWikiに書いておけ、と言われたので、文字コードについて調べてみた。 use encoding そのファイルは指定した文字コードで扱いますよ、という宣言をする。 例えば以下のようにすると、ファイルの保存の文字コードも、キーボードで入…
いい加減、makefileのついたモジュール作りたいなーと思って始めた。モジュール整理。結構面倒だった...orz 最終的にはテストが楽しくて、面白かったけど。今後、忘れそうな事などまとめてメモ! まずはインストール! cpan> install Module::Starter cpan> …
my $a = -1.5; print "a=".abs($a); # a=1.5
my $a = 1.5; print "a=".int($a + 0.5); # a=2
常識だけど、一応メモメモ $ sudo perl -MCPAN -e shellでシェルを起動、あとは cpan> install [モジュール名]でOK!
エンコードの指定。 プログラムの最初に記述 use encoding "euc-jp"; # 標準入出力の文字コードは日本語EUC、スクリプトはEUCで記述 binmode STDERR, ":encoding(euc-jp)"; # 標準エラー出力も日本語EUCであつかうよー use open IO => ":encoding(euc-jp)"; …
正規表現にマッチしたものを配列に入れていく方法 今回は一文字ずつ文字を分解して配列に入れる my $ascii = '[\x00-\x7F]'; my $twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]'; my $threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]'; my @char = $str =~ /$ascii|$tw…
# 例.引数が足りないと強制終了 print "error" and exit if($#ARGV < 0);
$perl -e "プログラム"改行方法が分からん…。 一行プログラム。プリントしないとき。とか? 多分ちゃんとした使い方はあるんだろうな。 調べてみよう。
ex. 猫→%e7%8c%ab sub url_encode($){ my $str = shift; $str =~ s/([^\w])/'%'.unpack('H2'$1)eq; $str =~ tr//+/; return $str; }