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");