ff.pl

来自「mrtg 监控,请认真阅读您的文件包然后写出其具体功能」· PL 代码 · 共 38 行

use strict;

$::WRITE = 1 if (defined($ARGV[0]) and $ARGV[0] eq '--write');
$::WARN = 0;

sub get_test_data
{
	my $fn = shift;

	local($/);
	undef $/;

	open(GIF, $fn) or die "Cannot open $fn: $!\n";
	binmode(GIF);
	my $im = <GIF>;
	close (GIF);

	return defined($im) ? $im : "";
}

sub write_file
{
	my $fn = shift;
	my $im = shift;
	
	local($/);
	undef $/;

	print "writing\n";
	open(GIF, '>' . $fn) or die "Cannot open $fn: $!\n";
	binmode(GIF);
	print GIF $im;
	close (GIF);
}

1;