Help for this page

Select Code to Download


  1. or download this
        if (! exists $files{$ffc}) {
            print "Adding new handle : $ffc\n";
            open $files{$ffc}, '>', "${fname}_$ffc.txt" or die $!;
        }