sample perl with visualbuild script

[ShiamakD]

Originally posted by kinook
That works ok in my tests:

@myNames = ('Larry', 'Curly', 'Moe');
foreach (@myNames) 
{
	$abc = $_;
	$Application->Macros(vbldMacroTemporary)->Add($abc, $abc);
}

Creates three temporary macros with names and values Larry, Curly, and Moe.

it still doesnt seems to work..:-( here is what i am trying to do..

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