Halo,
[~]$ perl -e '$a = 0; printf("%f\n",$a * -1)'
-0.000000
[~]$ perl -e '$a = 0; printf("% #-7.3f\n",$a * -1)'
-0.000
[~]$ perl -e '$a = 0; print $a * -1, "\n"'
-0
[~]$ perl -e 'printf("% #-7.3f\n",0 * -1)'
0.000
Kok kalo suatu variable yg nilainya nol dikalikan dengan bilangan
negatif hasilnya jadi minus nol yah? Kenapa sih? dan gimana biar
nampilinnya nol aja nggak pake minus sign?
Nggak bisa pake absolute value, soalnya $a belum tentu nol. Jadi kalo
-1*$a kebetulan -10 ya mesti diprint -10 bukan 10.
[~]$ perl -v
This is perl, version 5.005_03 built for i386-linux
Thanks,
--
Ronny Haryanto <[EMAIL PROTECTED]>
$\="user,";$,="another ";print"Just ","Perl ";
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
