On 20-Apr-1999 07:58PM, Ronny Haryanto wrote:
> #!/usr/bin/perl -p
> chomp;
> @kolom=split ' ',$_,5;
> print "insert into kegiatan values (\"$kolom[0]\",",
> ($kolom[1]=~/..\/..\/[789]./?"19":"20"),
> join('/',reverse(split('/',$kolom[1]))),
> ",\"$kolom[2]\",\"$kolom[3]\",\"$kolom[4]\");\n";
> __END__
Heran deh, tiap kali saya post code pasti ada yg gak bener.. kebiasaan
saya suka buru2 nih.. :( .. Anyway, ini yg jauh lebih mendingan drpd yg
sebelumnya:
#!/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__
Sorry.
--
Ronny Haryanto <[EMAIL PROTECTED]> -- Today's fortune is:
"I'd love to but I never go out on days that end in Y" -101 Ways To Say NO
--------------------------------------------------------------------------------
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
