[FLUG] e` il tool che va di moda al momento

Mailing List del Fortunae LUG
=============================

http://www.perlmonks.org/index.pl?node_id=338780



#!/usr/bin/perl

      $d=`date +%l:%M`;chomp($d);($h,$m)=
split(/:/,$d); $h=0 if $h==12;$h=($h*30)+180; $h-=
360 if $h>360;$m = ($m*6)+180;$m-=360 if $m>360;@o
=([' ',                                   ' ',' ',
' ',' '                                   ,' ',' '
 , ' '                  ,                ' ',' ',
' ',' '                ,' '               ,' ','|'
],[' ',                ' ',               ' ',' ',
' ',' '                ,' '               ,' ',' '
, ' ' ,                ' ',               ' ',' ',
' ','|'                ], [               ' ',' ',
' ',' '                ,' '               ,' ',' '
, ' ' ,                ' ',               ' ',' ',
' ',' '                ,' '               ,'|'] ,[
' ',' '                ,' ',              ' ',' ',
' ',' '                 ,' '              ,' ',' '
, ' ' ,                  ' ',             ' ',' ',
'|'] ,[                    ' ',           ' ',' ',
' ',' '                     ,' '          ,' ',' '
, ' ' ,                      ' ',         ' ',' ',
' ',' '                       ,'|'        ], [' ',
' ',' '                         ,' '      ,' ',' '
, ' ' ,                           ' ',    ' ',' ',
' ',' '                                   ,' ',' '
,'|'],[                                   ' ',' ',
' ',' '                                   ,' ',' '
,' ',' '                                  ,' ',' '
,' ',' ',' ',' ','|'],[' ',' ',' ',' ',' ',' ',' '
,' ',' ',' ',' ',' ',' ',' ','|'],[' ',' ',' ',' '
,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','|'],[' '
,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ' ,
' ','|'],[' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ','|'],[' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ','|'],[' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','|'],[' ',
' ',' ',' ',' ',' ',' ',' ',' ', ' ', ' ',' ',' ',
' ','|'],[' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ','|'],[' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ','|'],[' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','|']); sub
dl {$l=$_[2]; while($l-- > 1){$o[int($_[0]+($l*cos
($_[3])))][int($_[1]+($l*sin($_[3])))]=$_[4];}}sub
cc {@c=('|','/','-','\\','|','/','-','\\'); return
$c[int((abs($_[0])+22.5)/45)];}dl(7,7,5,-(($h/180)
*3.1415),&cc(-$h));dl(7,7,7,-(($m/180)*3.1415),&cc
(-$m));sub pm {print "-"x29,"\n"; for($z=0;$z<$#o;
$z++){print "@{$o[$z]}\n";}print "="x29,"\n";}&pm;
     print "      ---> $d <---       \n";


-- maritime (+ altri) live al parco miralfiore (Pesaro) a gratis l`11 settembre, accorrete tutti (e numerosi)

Other related posts: