taiyoh · December 24, 2010 10:39
diff --git a/mod_file.pl b/mod_file.pl
 #!perl -w

 use strict;
 use utf8;

 open my $f, '<', 'a.txt';
 flock($f, 2);
 my $data = <$f>;
 chomp $data;
 open $f, '+>', 'a.txt';
 print $f 'abc';
 close $f;

 __DATA__
 @a.txt
 abcde
	#!perl -w

	use strict;
	use utf8;

	open my $f, '<', 'a.txt';
	flock($f, 2);
	my $data = <$f>;
	chomp $data;
	open $f, '+>', 'a.txt';
	print $f 'abc';
	close $f;

	__DATA__
	@a.txt
	abcde