[ic] problem with perl

Murray Gibbins Murray@scotweb.ltd.uk
Thu, 18 Jan 2001 17:09:30 +0000


ACC&S wrote:

> some shocking code;

Any time your trying to write some perl stuff for minivend/interchange try
seeing if it will work in a proper perl program first.

so If i was writing the above I would have tested it with somethng like this...

------------------------------

#!/usr/bin/perl -w

use strict;

my %Scratch ;

$Scratch->{var1}=  2;
$Scratch->{var2}=  3;

print test();

sub test{

	$_= $Scratch->{var1} * $Scratch->{var2};
	return $_;

}

----------------------------

Save it in a file say test.pl and run it with "perl -c test.pl && perl test.pl"
and look at the debug info.
Once your sub routine is working at is a good bet that the algorithm will work
in minivend. 

-- 
  ____
  \__/    Murray Gibbins             murray@scotweb.ltd.uk
  /  \    Programmer
_ \__/ _  ================================================
\\ || //  Scotweb Limited,             info@scotweb.ltd.uk
 \\||//   13a Albert Terrace,    http://www.scotweb.ltd.uk
  \||/    Edinburgh EH10 5EA   Tel: +44 (0)  131 270 82 33
   ||     Scotland. Europe.    Fax: +44 (0) 7020  93 49 04