Help for this page

Select Code to Download


  1. or download this
    L1,830 HORIZON PKG RELEASE
L2,
...
DETAIL,BUYERS PART #,QUANTITY,FCST TYPE,FCST TIMING,DATE,   
DETAIL,1070954,6000,PLANNING(D),DISCREET(D),20140925SMS,10,
DETAIL,1070954,10000,PLANNING(D),DISCREET(D),20140926SMS,10,
  2. or download this
    #!/usr/bin/perl -w

...

## close file handles
close OUTFILE;
  3. or download this
    while (my $wholefile = <INFILE>){
    my $reg = s/.*?,//;
...

## spit out entire file
print OUTFILE $wholefile;
  4. or download this
    830 HORIZON PKG RELEASE

...
BUYERS PART #,QUANTITY,FCST TYPE,FCST TIMING,DATE,   
1070954,6000,PLANNING(D),DISCREET(D),20140925SMS,10,
1070954,10000,PLANNING(D),DISCREET(D),20140926SMS,10,
  5. or download this
    #!/usr/bin/perl -w

...

## close file handles
close $out;