Re^2: wrong output


P is for Practical
	PerlMonks

Re^2: wrong output

by apl (Monsignor)

on Jul 02, 2009 at 14:04 UTC ( [id://776753]=note: print w/replies, xml )

Need Help??

in reply to Re: wrong output
in thread wrong output

In the spirit of further simplification (and, just as important, encapsulating the output), this

   printf $outFile "Success,";
   print "In Success,\n";

   my $ErrorMsg = "null";

   while ($line = <DATA>) {
       if ($line =~ /$match/) {
           print "$2\n";
           printf $outFile "$2, ${1}, $ErrorMsg\n";
           return;
       }
   }
[download]

could be converted to a subroutine that would have parameters of "Success" and "null" (or "Error" and $1) passed to it.