sigar/exp/tar_proc.pl

43 lines
897 B
Perl
Raw Normal View History

#!perl
#create a .tar.gz of /proc/*/@proc_files
use strict;
2005-10-02 00:21:01 +08:00
my(@proc_files) = qw(cmdline stat statm status maps);
my $cpname = "copy-proc";
my $tmp = $ENV{TMPDIR} || "/tmp";
my $tmpdir = "$tmp/$cpname";
unless (-e $tmpdir) {
mkdir $tmpdir or die "mkdir $tmpdir: $!";
print "created $tmpdir\n";
}
opendir DH, "/proc" or die;
chdir "/proc";
while (my $pid = readdir DH) {
next unless $pid =~ /^\d+$/;
for my $name (@proc_files) {
unless (-e "$tmpdir/$pid") {
mkdir "$tmpdir/$pid";
}
local *SRC, *TARG;
my $file = "$pid/$name";
open SRC, $file or next;
open TARG, ">$tmpdir/$file" or die "open $tmpdir/$file: $!";
print TARG <SRC>;
close TARG;
close SRC;
}
}
chdir $tmp or die "chdir $tmp: $!";
system "tar -cf $cpname.tar $cpname";
system "gzip -f $cpname.tar";
print "files saved to $tmp/$cpname.tar.gz\n";
print "to cleanup, run: rm -rf $tmp/$cpname\n";