in reply to extract and export to multiple files
But that time the variables $filename,$title,$count are not having any values.open (OUT, ">$filename"."$title"."$count") or die "can't open";
while (<FILE>) { chomp; ($title, $content) = split("\t"); open (OUT, ">","$title.$count") or die "can't open"; $count++; print OUT "$content"; close OUT; }
|
|---|