■式 H(K XOR opad, H(K XOR ipad, text)) ipad = バイト値 0x36 を 64 回繰り返した文字列 opad = バイト値 0x5C を 64 回繰り返した文字列 1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 use Digest::MD5 qw(md5_hex); 7 use Digest::SHA1 qw(sha…

122 名前： デフォルトの名無しさん 投稿日： 2007/10/16(火) 22:50:10 たとえば java の例。 for (i : o) { System.out.println(i); } こんなの、java を知っている人が見ればわかる事だが、 知らない人が見たら何だかさっぱりわからんだろう。 ではバッチ…

2007/06/26 追記 30行目にバグがあり修正。 結局必須のキー、例えば$arg_priceが正しく設定されたかどうかは泥臭くやるしかないのか。 1 #!/usr/local/bin/perl 2 3 use strict; 4 use warnings; 5 use Getopt::Long; 6 use Pod::Usage; （略） 16 package m…

憂鬱な日曜の夜。一年何%だと良いほうなのでしょう。 #!/usr/local/bin/perl use strict; use warnings; use Getopt::Long; package my_func; sub number_format { my $value = shift; 1 while $value =~ s/(.*\d)(\d\d\d)/$1,$2/; return $value; } package…

Test::Simple、アラヤダほんとにシンプル。パッケージのコード 1 #!/usr/local/bin/perl 2 3 # Class Structを使わないパターン 4 5 package DataContainer; 6 use strict; 7 use warnings; 8 use Data::Dumper; 9 10 sub new { 11 my $class = shift; 12 re…

初めてperlでclassを作ってみた。 内容はあんまり無い、phpで誰しも真っ先に作るclass。 配列にkeyとvalをぽんぽん入れて、出せて、毎回array_key_existsしなくて良い。 そんなclassはどう書くのか試してみた。 1 #!/usr/local/bin/perl 2 3 package dataCon…