On 21-Mar-2002, Milis Lin Progs wrote: > Bagaimana cara membuatnya di perl ?
Wah, jadi intinya nanya fungsi2nya di perl apa aja nih? Coba liat2 di 'perldoc perlfunc', atau print aja Perl Reference buatan Johan Vromans http://www.squirrel.nl/people/jvromans/perlref.html > $logfile = "mylog" > if exist($logfile) { > $nowdate = ???? > $todaylogname = &logfile . $nowdate > rename($logfile,$todaylogname) > touch($logfile) > } $logfile = "mylog" if (-f $logfile) { @now = localtime(); $todaylogname = $logfile . $now[5].$now[4].$now[3]; rename($logfile,$todaylogname); # touch-nya PR deh.. } Ronny -- Utk berhenti langganan, kirim email ke [EMAIL PROTECTED] Informasi arsip di http://www.linux.or.id/milis.php3
