Help for this page

Select Code to Download


  1. or download this
    print("LA-1-00 LA-2-01 LA-03-2\n");
  2. or download this
    open(FILE, "< $filename")
or die("Can't open input file: $!\n");
...
close(FILE);

print(join(' ', grep { /^LA-/ } split(/\s+/, $text)), "\n");
  3. or download this
    open(FILE, "< $filename")
or die("Can't open input file: $!\n");
...
      0
   }
} split(/\s+/, $text)), "\n");