[FLUG] a grande richiesta, l`orologio decimale, binario e esadecimale

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

Other related posts: