File::Temp
Ben Tilly Brian Mowrey Dagfinn Ilmari Mannsåker David Golden David Steinbrunner Ed Avis Guillem Jover James E. Keenan Kevin Ryde mohawk2 Nicolas R Olivier Mengué Peter John Acklam Peter Rabbitson Roy Ivy III Slaven Rezic Tim Gim Yee Tim Jenness NAME File::Temp - return name and handle of a temporary file safely VERSION version 0.2311 SYNOPSIS use File::Temp qw/ tempfile tempdir /; $fh = tempfile()
File::DirWalk - Hatena::Diary::Neko::kak 500 Internal Server Error
http://back-paper.labs.mfac.jp/show?paper_rid=OEF9g0a6g8 ã“れをã¿ã¦ã€globã¨ã‹ä¹…々ã«ã¿ãŸã®ã§ã™ãŒã€ 指定ディレクトリ以下ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’æ“作ã™ã‚‹å ´åˆã¯File::DirWalkãŒãŠå‹§ã‚ã§ã™ã€‚ #! /usr/bin/perl use strict; use warnings; use File::DirWalk; use Path::Class qw/file/; my $dir = shift or die "usage : $0 <dir>\n"; my $dw = File::DirWalk->new; $dw->onFile(sub { my ($name) = @_; my $file = file($name); my $fh = $file->openr(); while (<$fh>) { print "$_"; }
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}