unshar.in

harvest是一个下载html网页得机器人

#!@PERL@
#
#  unshar - remove mail/news header and extract shar archive
#
#  Kang-Jin Lee <[e-mail]> 20 October 2000
#
#  Based on work of Darren Hardy and Ulrich Drepper.
#

$file = "-" if ($#ARGV < 0);

foreach $file (@ARGV) {
	open(FILE, "< $file") || die "Cannot read $file";
	while (<FILE>) {
		last if (/^#!/o
			 || /^:/o
			 || /^echo/o
			 || /^sed/o
			 || /^cat/o
			 || /^if/o);
	}
	open(SH, "| /bin/sh") || die "No shell";
	while (<FILE>) {
		print SH;
	}
	close(SH);
	close(FILE);
}
exit 0;