- 追加された行はこの色です。
- 削除された行はこの色です。
[[Perl]]
* ひな形
#contents
** 簡易スクリプト
#!/usr/bin/perl
=head1 NAME
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 OPTIONS
=cut
use strict;
** モジュール
=head1 NAME
=head1 VERSION
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 METHODS
=cut
package ;
use strict;
1;
__END__
=head1 BUGS
=head1 SEE ALSO
=head1 AUTHOR
=head1 COPYRIGHT AND LICENSE
=cut
** 日付を保持したまま更新
#!/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;
}
