월별 파일 보관

Question

GNU에 접근할 수 있다면 훨씬 쉽습니다 date. 실제로 더 복잡한 언어를 사용하는 것이 더 간단합니다. 예를 들어, Perl은 다음과 같습니다.

#!/usr/bin/perl -w
use strict;
use POSIX qw(strftime);

my $targetDir = $ARGV[0] || ".";
my %tarFiles;
open(my $input, '-|', "find \"$targetDir\" -type f -name '*.log'");
while (<$input>) {
    # remove trailing newlines
    chomp;
    ## Get the file name
    my $file = $_;
    # Open it as a file handle for stat()
    open(my $fh, '<', "$file") or die;
    # Get the file's stats
    my @stats = stat($fh);
    close($fh);
    # modification time
    my $mtime = $stats[9];
    # Convert to YYYY-MM and build the tar file name
    my $tarfile = strftime "%Y-%m_archive.tar.gz", localtime($mtime);
    # Add to the list of files for this tar file
    push @{$tarFiles{$tarfile}}, qq("$file");
}

for my $tarFile (keys(%tarFiles)) {
    # Build the command that creates the tar file
    my $tarCom = "tar cvzf $tarFile @{$tarFiles{$tarFile}}";
    print "COMMAND: $tarCom\n";

    # Uncomment this line to run the command
    # system("$tarCom")
}

스크립트를 makeTars.pl파일(또는 원하는 위치)에 저장하고 $PATH실행 가능하게 만든 후( chmod +x /path/to/makeTars.pl) 다음과 같이 실행합니다.

makeTars.pl /path/to/target/dir

예를 들어:

$ ls -l
total 0
-rw-r--r-- 1 terdon terdon 0 Dec 30 00:00  file1.log
-rw-r--r-- 1 terdon terdon 0 Dec 31 00:00  file2.log
-rw-r--r-- 1 terdon terdon 0 Jan  1  2016  file3.log
-rw-r--r-- 1 terdon terdon 0 Jan  2  2016  file4.log
-rw-r--r-- 1 terdon terdon 0 Jan  3  2016  file5.log
-rw-r--r-- 1 terdon terdon 0 Jan  3  2016 'file5 with spaces.log'
$ makeTars.pl .
COMMAND: tar cvzf 2017-02_archive.tar.gz "."
COMMAND: tar cvzf 2016-12_archive.tar.gz "./file2.log" "./file1.log"
COMMAND: tar cvzf 2016-01_archive.tar.gz "./file5 with spaces.log" "./file5.log" "./file4.log" "./file3.log"

원하는 작업이 수행될 것이라는 확신이 들면 system("$tarCom")실제로 tar 파일을 생성할 수 있도록 마지막 줄( )의 주석 처리를 제거하십시오.

파일 이름에 개행 문자가 포함되어 있으면 이것이 중단될 수 있지만 로그 파일에는 이것이 문제가 되지 않기를 바랍니다.

Answer 1