LWP::Authen::Digestを使えば簡単 use LWP; use LWP::Authen::Digest;my $username = "hoge"; my $password = "fuga"; my $url = "http://x68000.q-e-d.net/~68user/net/sample/http-auth-digest/secret.html"; my $host_port = "x68000.q-e-d.net:80"; my $…

たまに利用するけどよく忘れるのでメモlocaltimeは下記のリストを返す。 1. 秒 2. 分 3. 時 4. 日 5. 月（0〜11） 1月の場合に0、2月の場合に1、……、12月の場合に11 6. 年（西暦から1900を引いた値） 2008年の場合に108 7. 曜日（0:日、1:月、……、6:土） 8. …

Google Closure Tools の JavaScriptのコードを最適化する 「Closure Compiler」をperlから利用する。Closure Compilerは元のJavaScriptコードに対して大きく分けて二つの処理を行います。 １．既存のJavaScriptコードの最適化 ２．外部参照しているコードの…

指定文字列の出現回数は正規表現を使って $count++ while($str =~ m/$pattern/g); もしくは $count = (() = $str =~ m/$pattern/g);

Math::Roundモジュールを使う場合 # 指定の桁で四捨五入 use strict; use warnings; use Math::Round;print nearest(1 , 198.25) , "\n"; # 198 print nearest(0.1, 198.25) , "\n"; # 198.3 print nearest(10 , 198.25) , "\n"; # 200 print nearest(0.1, -…

###ファイルの属性情報を取得 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat('./hoge.txt'); ### 表示 print join("\n" , $dev # 0: デバイス番号 , $ino # 1: iノード番号 , $mode # 2: ファイルのモー…