oskimura · September 28, 2010 10:43
diff --git a/euler11.pl b/euler11.pl
 open F, "./euler11.txt" or die "dead\n";

 print "[";
 foreach $v (<F>)
 {
    @arr = split(/\s/,$v);
    print join(',',@arr), "\n";

 }
 print "]\n";
 close F;
	open F, "./euler11.txt" or die "dead\n";

	print "[";
	foreach $v (<F>)
	{
	@arr = split(/\s/,$v);
	print join(',',@arr), "\n";

	}
	print "]\n";
	close F;