Re^4: Delay when write to large number of file

Dear Friend,

Are you say that the next script will finish in less than 30 Sec (with 18K open/close)?

@RECList = .....
    clientname,record
    sam,plaplapla
    jame,bobobo
    kate,sososo
    .....

print "FLASH A-LIST\n";
foreach my $CDR (@RECList){
    my ($filename,$row)= split(/,/, $CDR);
    open(my $csv_fh, ">> /ClientRrecord/$filename.csv") or die "couldn
+\'t open [$filename.csv]\n".$!;
    print { $csv_fh } $row."\n";
}
[download]

Comment on Re^4: Delay when write to large number of file Download Code

Replies are listed 'Best First'.
Re^5: Delay when write to large number of file by Anonymous Monk on Jun 24, 2014 at 10:39 UTC
That code don't compile, but a version that does compile is really that fast	[reply]