백업 :-)

dump-rootfs.pl

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Time::Piece;

my @excludes = qw(
    /data
    /lost+found
    /media
    /mnt
    /proc
    /run
    /sys
    /tmp
    /var/cache
);

chomp( my $id       = `lsb_release -is` );
chomp( my $codename = `lsb_release -cs` );

my $dt      = localtime;
my $tarball = sprintf( "/data/dump-rootfs/dump-$id-$codename-%s.tar.gz", $dt->datetime );

system(
    'tar',
    'cvzf',
    $tarball,
    map( "--exclude=$_", @excludes ),
    '/',
);