Help for this page

Select Code to Download


  1. or download this
            foreach $line (@array)
        {
        $line =~ s/\s{1}//g;
        }
  2. or download this
    #!/usr/local/bin/perl -w
use strict;

...

        print OUTFILE "@array\n"; # or whatever has to be done
}
  3. or download this
    #!/usr/local/bin/perl -w
use strict;

...

        print "@array\n"; # or whatever has to be done
}