perl-CGI(シェルスクリプト含)で、自分のドキュメントルート外のファイルのタイムスタンプを取得する - undiscoの日記CGIとして実行するとwwwとか何かしらのユーザーとして実行するので、権限についての対処が必要となります。 以下の手順で行いました。 コピー先のフォルダのパーミッションを777にしておく cp -pでタイムスタンプを保持したままコピー statで取得 #!/usr/bin/perl use strict; use warnings; #ファイルをコピー system "cp -p /home/user_foo/bar.txt ./copy/bar.txt"; #更新時刻を取得 my $file_date = (stat'./copy/bar.txt')[9]; my ($sec, $min, $hour, $day, $month, $year) = localtime($file_date); #表示確認 print "Content-Type: text/html; charset=S
