Hi,
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]
