Pada 21-Apr-99, Ronny Haryanto menulis:
>#!/usr/bin/perl -n
> chomp;
> @kolom=split ' ',$_,5;
> @tgl=split '/',$kolom[1];
> $tglbaru=($tgl[2]=~/^[789]/?"19":"20")."$tgl[2]/$tgl[0]/$tgl[1]";
> print "insert into kegiatan values (\"$kolom[0]\",$tglbaru,",
> "\"$kolom[2]\",\"$kolom[3]\",\"$kolom[4]\");\n";
> __END__
---
Terimakasih om Ronny, sudah berhasil, hanya ada sedikit masalah.
data pada $kolom[4] ada yang mengandung tanda " padahal tidak boleh, mau saya
hapus tanda kutip itu atau diganti dengan tanda '.
saya coba dengan:
$acara=($kolom[4]=~ /\"//g). $kolom[4];
Belum berhasil, hilang sih hilang, tapi ada angka dua di awal data. Bagaimana
cara yang benar yah????
Sekalian nanya buku Perl untuk pemula yang bagus apa yah??? Keliatannya saya
mau gak mau harus mendalami perl nih. Kalau Camel Book keliatannya terlalu
tinggi :-).
---------------------------------------
Erga Munggaran
[EMAIL PROTECTED], @iname.com, @softhome.net
http://jupiter.centrin.net.id/~erganov
This message was sent by XFMail, on Linux of course
---------------------------------------
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
Hosted by http://www.Indoglobal.com
