Foro - Perl en Español

#!/usr/bin/perl
use DateTime;
use strict;

my @basededatos = (
        {
            Hora => '14:00:00',
            Dia  => '2008-03-18',
            Titulo => 'Llamar a mama',
        },
        {
            Hora => '14:00:00',
            Dia  => '2008-03-18',
            Titulo => 'Leer el diario',
        },
        {
            Hora => '14:00:00',
            Dia  => '2008-03-18',
            Titulo => 'pagar Teléfono',
        },
        {
            Hora => '15:00:00',
            Dia  => '2008-03-18',
            Titulo => 'Tal cosa...',
        },
);

# Fecha inicial
my $dt = DateTime->new(
            year   => 2008,
            month  => 03,
            day    => 17,
);

# Para toda la semana
for my $d ( 1 .. 7 ) {

    my $dia  = $dt->ymd;                        # aaaa-mm-dd
    print "HORA\t\t$dia\n";

    # Para todas las horas
    for my $h ( 0 .. 23 ) {
        my $hora = $dt->hms;                    # hh:mm:ss
        (my $horacorta) = $hora =~ /^(..:..)/;  # hh:mm
        my $hora_puesta;                        # flag

        foreach my $evento ( @basededatos ) {
            if ( $evento->{Dia} eq $dia and $evento->{Hora} eq $hora ) {
                print $horacorta if not $hora_puesta++;
                print "\t\t$evento->{Titulo}\n";
            }
        }

        # Vemos la siguiente hora
        $dt->add( hours => 1 );
    }
}

#! /usr/bin/perl -w

use CGI;
use DBI;
use Date::Calc qw(:all);
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template;

        my $cgi = CGI->new;
       
        my $t = HTML::Template->new(filename => '../html/Template/prueba_tmpl.tmpl');
               
        $t->param(
                Dia1 => "2008-03-16",
                Dia2 => "2008-03-17",
                Dia3 => "2008-03-18",
                Dia4 => "2008-03-19",
                Dia5 => "2008-03-20",
                Dia6 => "2008-03-21",
                Dia7 => "2008-03-22"
                );     
               
         $t->param(eventos =>[
                            { Hora => '14:00',
                                    Dia1_Evento => [],
                                                                Dia2_Evento => [{ Dia2_idEvento => '256', Dia2_Titulo => 'Probando todo'  }],
                                                                Dia3_Evento => [{ Dia3_idEvento => '256' , Dia3_Titulo => 'Probando todo' }],
                                                                Dia4_Evento => [{ Dia4_idEvento => '256' , Dia4_Titulo => 'Probando todo'  }],
                                                                Dia5_Evento => [{ Dia5_idEvento => '256',Dia5_Titulo => 'Probando todo'  }],
                                                                Dia6_Evento => [{ Dia6_idEvento => '256' , Dia6_Titulo => 'Probando todo'  }],
                                                                Dia7_Evento => [{ Dia7_idEvento => '256', Dia7_Titulo => 'Probando todo'  }],
                                                        },
                                                        { Hora => '23:00',
                                    Dia1_Evento => [
                                                                        { Dia1_idEvento => '256', Dia1_Titulo => 'Probando todo'},
                                                                        { Dia1_idEvento => '542', Dia1_Titulo => '2 en un dia'}                        
                                                                ],
                                                                Dia2_Evento => [{ Dia2_idEvento => '256', Dia2_Titulo => 'Probando todo'  }],
                                                                Dia3_Evento => [],
                                                                Dia4_Evento => [
                                                                { Dia4_idEvento => '45' , Dia4_Titulo => 'Probando rep1'  },
                                                                { Dia4_idEvento => '254' , Dia4_Titulo => 'Probando rep2'  },
                                                                { Dia4_idEvento => '2556' , Dia4_Titulo => 'Probando rep3'  },
                                                                { Dia4_idEvento => '78' , Dia4_Titulo => 'Probando rep4'  }
                                                                ],
                                                                Dia5_Evento => [{ Dia5_idEvento => '256',Dia5_Titulo => 'Probando todo'  }],
                                                                Dia6_Evento => [{ Dia6_idEvento => '256' , Dia6_Titulo => 'Probando todo'  }],
                                                                Dia7_Evento => [{ Dia7_idEvento => '256', Dia7_Titulo => 'Probando todo'  }],
                                                        },
                           ],
                                                );
       
print $cgi->header;
print $t->output;