Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
use strict; use warnings;
my $data = "Region Item volume Month";
...
    /(volume|Item)/ and print "$1 $daix\n";
}
__END__
  2. or download this
    #!/usr/bin/perl --
use strict; use warnings;
my $data = "Region Item volume Month";
...
    $daix++;
}
__END__
  3. or download this
    #!/usr/bin/perl --
use strict; use warnings; use 5.012;
my $data = "Region Item volume Month";
...
    /(volume|Item)/ and print "$1 $daix\n";
}
__END__