Foro - Perl en Español

por **explorer** » 2013-10-22 15:51 @702

Eso es que el servidor está funcionando con una localización anglosajana.

La solución es usar una programación lo más independiente del sistema posible.

Por ejemplo, si usas Perl, con la función localtime (o gmtime) obtienes la fecha local (o relativa a GMT) según la hora/fecha del servidor.

Desde la línea de comandos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl -E '($d,$m,$y,$dw) = (localtime)[3,4,5, 6]; say join "/", $d, $m+1, $y+1900, $dw' # 22/10/2013/2
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El valor de $dw es el del día de la semana, siendo 0 el domingo.

  my ($currentYear) =  $timestamp =~ /^(\d{4})/;
  my @semanas = (1..52);
  my ($domingo, $sabado, @dates, %dates);
  
  foreach my $semana (@semanas){
    my @domingo  = Add_Delta_Days(Monday_of_Week($semana, $currentYear), -1);
    my @sabado = Add_Delta_Days(@domingo, 6);     
    my $fmt     = "%02d/%02d/%04d";
    $domingo   = sprintf $fmt, reverse @domingo;    
    $sabado = sprintf $fmt, reverse @sabado;
    %dates= "$semana". " $domingo - $sabado";
    print "%dates\n";
  }
 
  print 'Semanas: '.$q->scrolling_list(-name=>'semanas', -values=>\@semanas, -labels=>\%dates, -size=>6, -multiple=>1);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Gracias

por **explorer** » 2013-10-22 16:22 @724

La línea 11 está mal. Creo que es así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    $dates{$semana} = "$domingo - $sabado";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Atención: hay años que tienen 53 semanas...

Una manera de solventarlo, es hacer un bucle, hasta que la función nos devuelva un error.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use utf8::all;
 
use CGI qw(:standard);
use Date::Calc qw(Monday_of_Week Add_Delta_Days);
 
my %semanas;
my @semanas;
 
my ($añoActual) = 1900 + (localtime)[5];
my $semana      = 1;
my $fmt         = "%02d/%02d/%04d";
$fmt            = "$fmt - $fmt";
 
while (my @lunes = eval { Monday_of_Week($semana, $añoActual) }) {
    push @semanas, $semana;
 
    $semanas{$semana}
        = sprintf $fmt,
            reverse(Add_Delta_Days(@lunes, -1)),       # domingo
            reverse(Add_Delta_Days(@lunes,  5));       # sábado
 
    $semana++;
}
 
print
    'Semanas: ',
    scrolling_list(
        -name     =>  'semanas',
        -values   => \@semanas,
        -labels   => \%semanas,
        -size     => 6,
        -multiple => 1,
    ),
    ;
 
__END__
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Usamos el truco del eval{} y así capturamos el error que se produce al pasarle un número de semana ilegal. Entonces ahí @lunes no recibe nada, con lo que el while termina.

Se han quitado casi todas las variables, por no ser necesarias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Semanas: <select name="semanas"  size="6" multiple="multiple">

<option value="1">30/12/2012 - 05/01/2013</option>

<option value="2">06/01/2013 - 12/01/2013</option>

<option value="3">13/01/2013 - 19/01/2013</option>

<option value="4">20/01/2013 - 26/01/2013</option>

<option value="5">27/01/2013 - 02/02/2013</option>

<option value="6">03/02/2013 - 09/02/2013</option>

<option value="7">10/02/2013 - 16/02/2013</option>

<option value="8">17/02/2013 - 23/02/2013</option>

<option value="9">24/02/2013 - 02/03/2013</option>

<option value="10">03/03/2013 - 09/03/2013</option>

<option value="11">10/03/2013 - 16/03/2013</option>

<option value="12">17/03/2013 - 23/03/2013</option>

<option value="13">24/03/2013 - 30/03/2013</option>

<option value="14">31/03/2013 - 06/04/2013</option>

<option value="15">07/04/2013 - 13/04/2013</option>

<option value="16">14/04/2013 - 20/04/2013</option>

<option value="17">21/04/2013 - 27/04/2013</option>

<option value="18">28/04/2013 - 04/05/2013</option>

<option value="19">05/05/2013 - 11/05/2013</option>

<option value="20">12/05/2013 - 18/05/2013</option>

<option value="21">19/05/2013 - 25/05/2013</option>

<option value="22">26/05/2013 - 01/06/2013</option>

<option value="23">02/06/2013 - 08/06/2013</option>

<option value="24">09/06/2013 - 15/06/2013</option>

<option value="25">16/06/2013 - 22/06/2013</option>

<option value="26">23/06/2013 - 29/06/2013</option>

<option value="27">30/06/2013 - 06/07/2013</option>

<option value="28">07/07/2013 - 13/07/2013</option>

<option value="29">14/07/2013 - 20/07/2013</option>

<option value="30">21/07/2013 - 27/07/2013</option>

<option value="31">28/07/2013 - 03/08/2013</option>

<option value="32">04/08/2013 - 10/08/2013</option>

<option value="33">11/08/2013 - 17/08/2013</option>

<option value="34">18/08/2013 - 24/08/2013</option>

<option value="35">25/08/2013 - 31/08/2013</option>

<option value="36">01/09/2013 - 07/09/2013</option>

<option value="37">08/09/2013 - 14/09/2013</option>

<option value="38">15/09/2013 - 21/09/2013</option>

<option value="39">22/09/2013 - 28/09/2013</option>

<option value="40">29/09/2013 - 05/10/2013</option>

<option value="41">06/10/2013 - 12/10/2013</option>

<option value="42">13/10/2013 - 19/10/2013</option>

<option value="43">20/10/2013 - 26/10/2013</option>

<option value="44">27/10/2013 - 02/11/2013</option>

<option value="45">03/11/2013 - 09/11/2013</option>

<option value="46">10/11/2013 - 16/11/2013</option>

<option value="47">17/11/2013 - 23/11/2013</option>

<option value="48">24/11/2013 - 30/11/2013</option>

<option value="49">01/12/2013 - 07/12/2013</option>

<option value="50">08/12/2013 - 14/12/2013</option>

<option value="51">15/12/2013 - 21/12/2013</option>

<option value="52">22/12/2013 - 28/12/2013</option>

</select>Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **sarriaga** » 2013-10-23 08:16 @386

Mil gracias, realmente funciona, ya tengo mi script completo y funcionando

Foro - Perl en Español

Obtener rango de fecha a partir de número de semana

Re: Obtener rango de fecha a partir de número de semana

Publicidad

Re: Obtener rango de fecha a partir de número de semana

Re: Obtener rango de fecha a partir de número de semana

Re: Obtener rango de fecha a partir de número de semana

¿Quién está conectado?