hanya kasih sedikit contoh sub routine, mungkin nanti bisa di modif
sendiri
sub date
{
my($detik,$menit,$jam,$tanggal,$bulan,$tahun,$wtag,$jtag,$isds) =
localtime(time);
if ($tanggal < 10)
{
$tanggal = "0".$tanggal;
}
$bulan++;
if ($bulan < 10)
{
$bulan = "0".$bulan;
}
$tahun = $tahun + 1900;
return($tahun.$bulan.$tanggal); # customize saja sesuai kebutuhan
}
jadi format nya 20000424
atau anda gunakan modul POSIX
use POSIX;
$tanggal = strftime "%Y-%m-%d",localtime; # jadi 2000-04-24
format penanggalan (%Y, %m, %d .. etc.... ) silakan lihat di :
man date
CMIIW
regards,
_uwo_
Amianto Widhi Nugroho wrote:
> halo, ma'af apabila pertanyaan saya agak pemula, karena saya memang
baru
> dalam hal programming, saya menggunakan perl untuk membuat suatu
situs, dan
> saya ingin mengkonversi tanggal/jam sekarang menjadi suatu angka yang
unik
> sebagai contoh tanggal 17 bulan 8 tahun 1945 dikonversi menjadi 17845,
> bagaimana cara untuk membuatnya? atas jawabannya saya ucapkan terima
kasih
>
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
