perl
# X-boxの場合 if(/X-box/){ $Browser{'X box'}{0} += $c; # MSN Explorerらしい } elsif(/MSN/) { $Browser{'MSN Explorer'}{0} += $c; # Operaというブラウザ } elsif(/Opera\s*(\d\.\d\d?)/) { $Browser{'Opera'}{$1} += $c; # NN判別 } elsif(/Netscape\…
ターミナルよりコマンドを出し、意図的に動じ書き込みが起こるように走査しました 同時に16プロセスを開き、ノンストップで1つのファイルに書き込みました。 結果から判断すると、999*16回の内、2回書き込みが中止される現象が起きています。 可能性として考…
$data = <<'EOFDATA'; ここにテキスト形式の100の質問 EOFDATA $chrN = "\n"; $cutFirstLine = '#'; $cutFinalLine = ''; $insertFirst = ':'; $insertFinal = ':'; foreach(split(/$chrN/o,$data)){ chomp; s/^\s*$cutFirstLine\s*//oi if ($cutFirstLine);…
数値1234567を\1,234,567-見たいにコンマを挿入する sub toCommaNum(){ local(@str,$i,$in); $in = $_[0] . ''; $i = length($in);# - 3; push(@str,substr($in,($i-=3),3)) while ($i>3); push(@str,substr($in,0,$i)) if ($i>0); return join(',',reverse(…
