Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
open (WAY , $cat) or die("Can't open $cat");
my @lines = <WAY>;
print @lines, "\n";

Select or download this

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!
!
...
!
ILTPSPR25N080    POR     4060A   25       A300_20B     1
!ILTPSPR25N080    POR     4060B   25       A300_20B     1