Perlでファイルのバックアップを取るプログラム

質問

Perlでファイルのバックアップを取るプログラムを書いてください。

解答

わかりました。ここでは、Perlで指定したファイルのバックアップを作る簡単なスクリプトを示します。バックアップは元のファイル名に日付・時刻を付けて保存する方式にします。 #!/usr/bin/perluse strict;use warnings;use File::Copy; # ファイルコピー用use POSIX qw(strftime);# バックアップ対象ファイルを指定my $file = shift @ARGV or die "使い方: perl backup.pl <ファイル名>\n";# ファイルの存在確認die "ファイル '$file' が存在しません。\n" unless -e $file;# バックアップファイル名作成 (例: original_20250923_1500.bak)my $timestamp = strftime("%Y%m%d_%H%M%S", localtime);my $backup_file = $file . "_" . $timestamp . ".bak";# ファイルをコピーcopy($file, $backup_file) or die "バックアップに失敗しました: $!\n";print "バックアップ成功: $backup_file\n"; ◆ 使い方 perl backup.pl example.txt example.txt のバックアップが example.txt_20250923_150001.bak のように作成されます。 日付・時刻で管理できるので複数回バックアップしても上書きされません。 ◆ 補足 ディレクトリ単位でバックアップしたい場合は、File::Copy::Recursive モジュールを使うと便利です。 定期的に自動でバックアップする場合は、cron（Linux）やタスクスケジューラ（Windows）と組み合わせます。

業務に役立つPerl もっと自在にサーバを使い倒す （Software　Design　plusシリーズ） [ 木本裕紀 ] 価格:3058円 (2025/9/29 19:31時点) 感想(1件)

VB（VOICE BRODY） vol.11 （白夜ムック　658） 価格:1750円 (2024/2/22 22:11時点) 感想(1件)

人気ブログランキング

【下記、広告です。クリックいただけると励みになります。】