Help for this page

Select Code to Download


  1. or download this
    open my $fh_input, "<", "input.txt" or die "$!";
    my %fh = ();
    ...
    foreach (keys %fh) {
       close $fh{$_};
    }