Date sent: Thu, 22 Apr 1999 22:09:02 +0700 (JAVT)
From: Erga <[EMAIL PROTECTED]>
> 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????
Mas Erga, saya tidak menerima posting pertanyaan Anda.
Boleh saya tahu persisnya apa? Mungkin sample datanya juga.
> Sekalian nanya buku Perl untuk pemula yang bagus apa yah???
> Keliatannya saya > mau gak mau harus mendalami perl nih.
starting point jelas Learning Perl-nya Randal Schwartz. Edisi kedua
di-co-authored dng Tom Christiansen.
Kalo mau yg bahasa Indonesia, Anda bisa ambil coret-coretan saya di
http://lumpia.pm.org/pub/ppperl.html.zip
Materi yg dicover k.l. setengah buku Learning Perl, dng catatan:
ada tambahan mengenai penggunaan modul, command-line switches,
pembahasan regex-nya lebih dalam, tapi tidak meng-cover operator.
Anda perlu punya manual perlop. Ada appendix utk membantu membaca
perlop.
Tidak mengcover CGI.
> ---------------------------------------
> Erga Munggaran
> [EMAIL PROTECTED], @iname.com, @softhome.net
> http://jupiter.centrin.net.id/~erganov
>
> This message was sent by XFMail, on Linux of course
> ---------------------------------------
If you're running some brain-dead, bondage-and-discipline pseudo-operating
system from The Evil Empire, did you bother to read what the Windoze Perl
FAQ says about the Web?
--Tom Christiansen, in The Idiot's Guide to Solving Perl CGI Problem
--------------------------------------------------------------------------------
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
