Help for this page

Select Code to Download


  1. or download this
      open (DB,"ext.log") or die("There was a problem opening the file.");
      my @data;
    ...
        push @data, \@fields;
      }
      close DB;
    
  2. or download this
      open(DB, ">", "ext.log") or die $!;
      foreach my $row (@data) {
        my $line = join('    ', @$row);
        print DB $line, "\n";
      }
      close DB;