ソースコード

open( IN, "> test.dat");#
@data=<IN>;
@line;
foreach(@data){
	chomp $_;#改行の削除
	@line = split(/,/, $_);
}#next
 
close IN;