Re: [tanya-jawab] fungsi atau module date di perl

2012-06-22 Terurut Topik Arief Yudhawarman
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



[tanya-jawab] fungsi atau module date di perl

2012-05-17 Terurut Topik Arief Yudhawarman
Adakah fungsi atau module date di perl yang se-fleksible seperti
program date ? Misal jika ada input date dengan format seperti
2 contoh di bawah ini maka dianggap legal oleh fungsi date:

Wed, 8 Aug 2007 11:20:32 +0700 (WIT)
18 Apr 2012 21:18:47 -0700

$ date --date=Wed, 8 Aug 2007 11:20:32 +0700 (WIT)
Sun Nov 13 23:59:59 WIT 2011

$ date --date=18 Apr 2012 21:18:47 -0700
Thu Apr 19 11:18:47 WIT 2012

Saya cari bermacam-macam module date di cpan keliatannya
belum menemukan yang cocok.

Tujuannya mau buat script untuk download email pakai pop 
berdasarkan range date tertentu misal dari tanggal 1 jan 2012 
sampai 30 maret 2012.

-- 
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