On Mon, Jun 11, 2012 at 09:01:01PM +0700, Yudhi Kusnanto wrote:
>
> maaf, baru bisa nanggapin (meskipun belum tentu dapat menjawab)
Maaf juga, saya juga baru bisa balas sekarang.
> > $ date --date="Wed, 8 Aug 2007 11:20:32 +0700 (WIT)"
> > Sun Nov 13 23:59:59 WIT 2011
>
> ditempat sy hasilnya kok beda?
> $ date --date="Wed, 8 Aug 2007 11:20:32 +0700 (WIT)"
> Wed Aug 8 11:20:32 WIT 2007
Masak ?
Hasilnya sama tuh di ubuntu saya:
yudi@inferno:~$ date --date="Wed, 8 Aug 2007 11:20:32 +0700 (WIT)"
Wed Aug 8 11:20:32 WIT 2007
> dapatkah di-elaborasi lebih lanjut skenario yang ingin dilakukan? saya
> kesulitan menangkap konteks pertanyaan tentang module/fungsi "date" pada
> Perl dengan kebutuhan anda.
>
> mungkin bisa berupa penjelasan:
> - sumber input (interaktif? scripted?)
> - algoritma pengolahan input
> - aksi yang dilakukan bila input sesuai/cocok/benar
> - hasil/outcome yang diharapkan dari aksi yang dikerjakan
>
> nb. module Perl yang umum untuk urusan date/time coba pelajari: DateTime
1. Interaktif dengan masukan berupa
- Account email di POP3 Server
- Alamat POP3 Server
- Alamat SMTP Server
- Alamat recipient
- Tanggal untuk mulai pengambilan email (Tanggal batas)
Tapi untuk test script ini saya langsung masukkan nilainya ke script.
> - algoritma pengolahan input
> - aksi yang dilakukan bila input sesuai/cocok/benar
> - hasil/outcome yang diharapkan dari aksi yang dikerjakan
a. Login ke POP3 server.
b. Buka sesi ke SMTP server.
c. Ambil list email (jumlah email di server) di POP3 Server.
d. Baca header email satu demi satu.
:: Ambil string Date
:: Bandingkan Date di header email dengan variable Tanggal untuk batas
mulai ambil email.
-> Jika benar yakni Date >= Tanggal batas
:: Ambil message dan kirim ke recipient
d. Selesai
>
> nb. module Perl yang umum untuk urusan date/time coba pelajari: DateTime
BTW, skenario yang saya inginkan sudah tercapai meski pakai /bin/date untuk
memperoleh
nilai tanggal (nilai detik dari tanggal sejak 1970-01-01 00:00:00 UTC) dan juga
komparasi tanggal. Tidak efisien mungkin tapi efektif :D.
Script perl pop2smtp.pl http://pastebin.com/pgybGEpQ
Isi script cekdate.sh
#!/bin/sh
read A < /tmp/SECONDS
read B < /tmp/SECONDS.tmp
[ $B -ge $A ]
--
Arief Yudhawarman
http://awarmanf.wordpress.com
--
FAQ milis di http://wiki.linux.or.id/FAQ_milis_tanya-jawab
Unsubscribe: kirim email ke tanya-jawab-unsubscr...@linux.or.id
Arsip dan info milis selengkapnya di http://linux.or.id/milis
