[ic] problem with perl

[ACC&S]

Thanks for your help, I know it's very difficult !! ;o)
Sorry but your code... not good...
It's just a problem of decimal with scratch variable...
Sorry for my english......  :o((

----- Original Message -----
From: Murray Gibbins <Murray@scotweb.ltd.uk>
To: <interchange-users@lists.akopia.com>
Sent: Thursday, January 18, 2001 5:54 PM
Subject: Re: [ic] problem with perl


> ACC&S wrote:
> >
> > hi,
> >
> > I don't know PERL language, could you help me :
> >
> > my scratch variable tva = .196  and [item-subtotal noformat=1] = 2500,
then
> > my result is :
> > test : [scratch test] = 0
> > res : [scratch out] = 0
> >
> > if i put     $Safe{'scratch'}->{'var1'} = 196 / 1000 ; then my result is
OK
> > test : [scratch test] = 0,196
> > res : [scratch out] = 490
> >
> > this is my code :
> > [perl interpolate=1 arg='scratch values']
> >          $Safe{'scratch'}->{'var1'} = '[scratch tva]';
> >          $Safe{'scratch'}->{'var2'} = '[item-subtotal noformat=1]';
> >          $_1 = $Safe{'scratch'}{'var1'};
> >          $_= ($Safe{'scratch'}{'var2'} * $Safe{'scratch'}{'var1'}) ;
> >          $Safe{'scratch'}{'test'} = $_1;
> >          $Safe{'scratch'}{'out'} = $_;
> >          return '';
> > [/perl]
> >
> > Could you help to do the same thing with [scratch tva]
> > thanks
>
> ok try this
>
> --------------------------
>
> [set tmp_val][item-subtotal noformat=1][/set]
> [perl global=1]
>
>
> ! exists $Scratch->{tmp_val} ? die "no tmp_val":1;
> ! defined $Scratch->{tmp_val} ? die "no defined tmp_val":1;
>
> ! exists $Scratch->{tva} ? die "no tva":1;
> ! defined $Scratch->{tva} ? die "no defined tva":1;
>
>
> eval{$Scratch->{test} = $Scratch->{tva}  * $Scratch->{tmp_val} ;};
> if($@){
> $Scratch->{test} = "Opps";
> }
> return ;
> [/per]
> Return value : '[scratch test]'
>
> ---------------------------
>
>
> It's must be fun tryng to use interchange without knowing perl ;-)
>
> Remember perldoc is your friend.
>
> --
>   ____
>   \__/    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
>
> _______________________________________________
> Interchange-users mailing list
> Interchange-users@lists.akopia.com
> http://lists.akopia.com/mailman/listinfo/interchange-users
>