Mailing List del Fortunae LUG ============================= #!/usr/bin/perl $arg=$ARGV[0]; $a=10; while($a > 0) { $a++; system("clear"); print "GecClock 1.0.5 by Gecco (Featuring Ken^RJ)\n"; print "please report bugs at gecco\@gundam.com\n\n"; use POSIX qw(strftime); $ora = strftime "%H:%M:%S", localtime ; @orario = split(/:/,$ora,3); $ore = @orario[0]; $minuti = @orario[1]; $secondi = @orario[2]; ##################### #sub printa decimale ##################### sub dec { print "$ore:$minuti:$secondi in decimale\n"; }; ###################################### #sub converte e printa esadecimale ###################################### sub hex { $orehex = sprintf("%x",$ore); $minutihex = sprintf("%x",$minuti); $secondihex = sprintf("%x",$secondi); $orehex = "0" . $orehex unless $ore > 15; $minutihex = "0" . $minutihex unless $minuti > 15; $secondihex = "0" . $secondihex unless $secondi > 15; print "\U$orehex:$minutihex:$secondihex \Ein esadecimale\n"; }; ################################### #sub converte da decimale a binario ################################### sub conv { $mask = 32; for($i=0 ;$i<6; $i++) { if($numero&$mask) { print "1" } else { print "0"; } $mask = $mask/2; }}; ################### #sub printa binario ################### sub bin { $numero = $ore; &conv; print ":"; $numero = $minuti; &conv; print ":"; $numero = $secondi; &conv; print " in binario\n"; }; #################### #sub printa help #################### sub help { print "\nUsage GecClock.pl [-switch]\n"; print " -dec for view decimal hour\n"; print " -hex for view exadecimal hour\n"; print " -bin for view binary hour\n"; print " -all for view all\n\a"; print " without switch for view help (this screen)\n"; exit 0; }; ################# #guarda lo switch ################# if($arg eq '') { &help; } else { if($arg eq '-dec') { &dec; } else { if($arg eq '-hex') { &hex; } else { if($arg eq '-bin') { &bin; } else { if($arg eq '-all') { &dec; &hex; &bin; }}}}}; #if($arf eq '') #{&help} #if($arg eq '--help') #{&help} sleep(1); }; -- <simon> diobo se e' figo linux