/proc データを記録する

• v をつけて実行すると stat情報も表示します。

#!/usr/bin/perl

# 

# save /proc date without kcore

#

# -v output file status

#

print `date`;

$|=0;

open (IN,"find /proc -type f|");

@list=;

close(IN);

for(@list){

	chomp $_;

	if ($_ ne '/proc/kcore' && $_ ne '/proc/kmsg'){

		print "Proc File: $_\n";

		if ($ARGV[0] eq '-v'){

			my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,

   $atime,$mtime,$ctime,$blksize,$blocks) = stat($_);

			print "mode: $mode\n","Inode: $ino\n","uid: $uid\n","gid: $gid\n","atime: $atime\n","mtime: $mtime\n","ctime: $ctime\n","blocks: $blocks\n";

		}

		print "\n";

		open(DATA,$_);

		print ;

		close(DATA);

	}

}
print "Symbolic links: $_\n";

open (IN,"find /proc -type l -ls|");

print ;

close(IN);