pak steven, terima kasih sebelumnya problem whitespace sudah bisa diatasi,
tapi saya ada problem kedua ini, saya mau ambil suatu field dengan type
decimal dari database UDB pakai OLE.PM module, sayangnya module perl tsb
nggak support barangkali, jadi saya terpaksa konver terlebih dahulu ke char
SELECT CHAR(prprice) AS prprice1 FROM PRODPRC
field price bertype decimal 15:2
Jadi kalo variable yang diambil misal 1 juta , akan berbentuk seperti ini
print "01234567891234501\n";
print "$harga\n";
012345678912345
000001000000.00
Nah pertanyaan saya gimana menghilangkan angka 0 didepan
for($harga) {
s/^\s+//; # hilangkan whitespace di awal, bagaimana modufikasinya
disini
}
terima kasih
Ahmad Juniar
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
