Timer di Perl
Ini aku buat, soale kemarin bingung mencari fungsi timer di perl, di perl ada fungsi timer yang di namakan sleep ( ); tapi waktu aku jalanin kurang bekerja dengan baik, jadi terpaksa deh di akal-akalin he.. he.. he..
#!/usr/sbin/perl --
#Asumsi disini sudah banyak script perl...
print "L4dy\n";
#Timer Untuk Perl...
#------------------------------my $now = time;
$now+=5;
while ( $now > time ) {}
#------------------------------
print "J0h4n";
#Asumsi disini sudah banyak script perl...
.."..Blogging : Programing.."..
#!/usr/sbin/perl --
#Asumsi disini sudah banyak script perl...
print "L4dy\n";
#Timer Untuk Perl...
#------------------------------my $now = time;
$now+=5;
while ( $now > time ) {}
#------------------------------
print "J0h4n";
#Asumsi disini sudah banyak script perl...
.."..Blogging : Programing.."..
Komentar