|
#1
|
|||
|
|||
Quote:
open (MYFILE, 'c:\perl\bin\Build.log') || die("cant open file"); while (<MYFILE>) { chomp; if (($_ =~ /[1-9]\serrors/) || ($_=~ /[1-9](\d+)\serrors/)) { $abc = $_; $Application->Macros(vbldMacroTemporary)->Add($ABC ,$abc); } } close (MYFILE); |
|
|