Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- while(1){
- #---------------------------
- $sec = (localtime)[0];
- $min = (localtime)[1];
- $ore = (localtime)[2];
- $giorno = (localtime)[3];
- $mese = (localtime)[4];
- $anno = (localtime)[5];
- $giornosettimana = (localtime)[6];
- $giornoanno = (localtime)[7];
- $oralegale = (localtime)[8];
- #----------------------------
- $val= "$ore:$min:$sec";
- if ($val=="1:25:00") {
- print "sono le ore ke hai messo\n";
- }
- if ($val=="1:26:00") {
- print "sono le 4\n";
- }
- }
Add Comment
Please, Sign In to add comment