タグ

Perlに関するatsukanrockのブックマーク (2)

  • Perlメモ

    複数のプロセスでロック状態が異常であると判断し,そのうちの 1つがロックを解除したことにより,別のプロセスがロックしたにもか かわらず,先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります. この方法の問題点は,異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります.逆に言えば,異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです.そのためにはどうす ればよいのか? 答えはロック状態が常に変化していけば よいということです.そして,これを実現するのに都合がよいのが rename による方法になります. 最初のスクリプトで説明しますと,ロックファイルが lockfile という 名前のときがロックが解除されている状態で,lockfile987654321 のよう に後ろに

    Perlメモ
  • math/perl - 日付のhyuki表現 : 404 Blog Not Found

    2009年04月08日12:17 カテゴリLightweight LanguagesMath math/perl - 日付のhyuki表現 良問。見逃していた。 2009-03-14 - 結城浩のはてな日記 円周率3.141592653589793…の中で、最初に「"月日時分秒"と見なせる数字列」が出てくるところは、小数点以下何桁目? まず、脊髄反射で書いた答え。 use strict; use warnings; use Time::Local; use Math::BigFloat lib => 'GMP'; my $maxdigits = shift || 1000; my $pi = Math::BigFloat->bpi($maxdigits) . ''; $pi =~ s/3\./3/; for my $d ( 0 .. $maxdigits - 10) { my ( $mo,

    math/perl - 日付のhyuki表現 : 404 Blog Not Found
    atsukanrock
    atsukanrock 2009/04/08
    円周率から日時とみなせる数字列を探す
  • 1