[[Perl]] * ひな形 #contents ** 簡易スクリプト #!/usr/bin/perl =head1 NAME =head1 SYNOPSIS =head1 DESCRIPTION =cut use strict; ** 日付を保持したまま更新 #!/usr/bin/perl use strict; foreach (@ARGV) { &main($_); } sub main { my $path = shift; my $text = ''; my ($atime,$utime) = (stat $path)[8,9]; open(IN, $path) or die("can't open $path."); while (my $line = <IN>) { # change $line $text .= $line; } close(IN); open(OUT, ">$path") or die("can't write $path."); print OUT $text; close(OUT); utime($atime, $utime, $path); } ** ファイル名を書き換え #!/usr/bin/perl use strict; foreach (@ARGV) { &main($_); } sub main { my $src = shift; my $dest = $src; # change $dest return if ($dest eq $src); if (-e $dest) { warn("$dest already exists.\n"); return; } rename $src, $dest; }