Help for this page

Select Code to Download


  1. or download this
    $VAR1 = ['1,v,3,4'];
$VAR2 = ['3,v,4,t'];
...
$VARn = ['3,8,0,7'];

$VAR1 = ['7,po,0'];
  2. or download this
    while (<$fh>){
            last if /^\s*$/;
...
            @data = join (",",@data);
            push @array1, [@data];
            }
  3. or download this
    foreach my $x (@array1) {
            foreach my $y (@$x) {
                print $fout1 $y,"\n";
                }
            }