AW: code from learning Perl

[Wittrock, Friedel]

Hi,   ----- $bigNr = 1234567890123.45678;   $bigNr = &big_money($bigNr);   print "$bigNr\n\n";   sub big_money {     $number = sprintf " %.2f", shift @_;       1 while $number =~ s/^(-?\d+) (\d\d\d) /$1, $2/;       $number =~ s/^(-?)/$1\$/;       return $number; }   -----   Regards Friedel Wittrock     -----Ursprüngliche Nachricht----- Von: Ronen Kfir [mailto:[EMAIL PROTECTED] Gesendet: Donnerstag, 4. September 2003 07:38 An: [EMAIL PROTECTED] Betreff: code from learning Perl Wichtigkeit: Hoch Hi, I'm working on windows XP. ActiveState Perl 5.8 is installed. This code is taken from "learning Perl\ Schwartz & Phoenix.   sub big_money {            $number = sprintf " %.2f", shift @_;           1 while $number =~ s/^(-?\d+) (\d\d\d) /$1, $2/; $number=~ s/^(-?)/$1\$; $number; }   In the book they write the no. 12345678.90 as the no. of example. What I miss is how I include this no. in the script. How do I make script look at this no.?   Thanx!      R o n e n   K f i r System Administrator  CIT div. Tel Aviv University Israel Tel: 972-3-6407416 Fax: 972-3-6405158 cellular: 972-55-405910 E-mail: [EMAIL PROTECTED]