Perl

ディレクトリエントリの読み方

Windowsでは、ディレクトリ名にスペースを許容するため、glob関数を使うと困ったことになります。 use strict; use warnings; use Cwd; print join("\n", glob(getcwd)), "\n";マイドキュメントの上で実行した場合の結果は以下の通り。glob関数は複数のパタ…

驚いた素数

とても驚いた素数の数え上げ。 http://log.ttsky.net/article/19432981.html http://www.nslabs.jp/haskell_vs_ruby.rhtml Perlに移してみました。 use strict; use warnings; # # See: # http://log.ttsky.net/article/19432981.html # http://www.nslabs.j…