Perl でファイルを後ろから読むの術 2006-09-18-4 [Programming] 「Perl Hacks」、"HACK#20 Reading Files Backwards" より、 ファイルを後ろから読むの術。 File::ReadBackwards を使うだけ。手軽。 #!/usr/bin/perl use strict; use warnings; use File::ReadBackwards; my $file_name = shift @ARGV; my $bw = File::ReadBackwards->new($file_name); until ( $bw->eof ) { print $bw->readline; } なお、コマンドラインからなら tac が便利。タック!タック! - [を] ファイルの先頭に追加するには[2003-07-07-2
Perlで素数判定と近隣素数の探索 2006-08-15-2 [Programming][Algorithm] ハッシュのサイズを決める際に、 ある数に近い素数が欲しいと思うことがあったりします。 例えば「1000000に近い素数が欲しい!」など。 ということでPerl版の素数判定&近隣素数探索プログラムです。 素数判定は下記を参考にしました。 - 素数判定 - Wikipedia http://ja.wikipedia.org/wiki/%E7%B4%A0%E6%95%B0%E5%88%A4%E5%AE%9A 以下、ソースと実行例。 ソース(prime.pl): #!/usr/bin/perl use strict; use warnings; my $n = shift @ARGV; my $prime = is_prime($n); if ($prime) { p
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く