Foro - Perl en Español

por **explorer** » 2010-01-25 03:43 @196

Lo primero, recordarles a los dos que se pueden reeditar los mensajes de cada uno pulsando en el botón de Editar Mensaje que aparece en cada mensaje. Así, no es necesario ir encadenando mensajes con distinta información. Se edita el último mensaje y se añade lo nuevo.

Segundo, por más mensajes que manden no se les va a atender más rápido.

Tercero, es muy feo pedir ayudas para hacer prácticas de clase. Eso ya indica que ustedes no serán programadores de Perl en el futuro

Cuarto, si quieren ayuda, deben dar información. Por ejemplo: ¿de qué formato de fecha estamos hablando? ¿ISO 8601 u otro formato? ¿qué método tienen para enviar un correo electrónico, es decir, disponen del programa sendmail, o hay que usar un servidor de correo externo con autenticación, o usar una pasarela SMTP... o basta con usar el módulo Email::Send? Y, en ese caso, ¿a qué servidor se deben conectar?

Para alehuelva: no necesitas expresiones regulares para extraer la información del fichero. Si están unidos los campos con ':' pues los separas con la función split().

open(INFO,"<birthday.txt");
open SALIDA,">salida";
while(<INFO>){
chomp($_);
($name,$parent,$date,$mail)=split(/:/,$_, 4);
if($date=localtime()){##Aqui no se como comparar la fecha 
print SALIDA "TO: $mail\n 

                      Dear $name, my $parent, happy birthday!";

}
close INFO;
close SALIDA;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Muchas gracias de antemano.

por **EXTRADIBARIUS** » 2010-01-25 04:32 @230

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
########### Variables
#
# Put your email address here.
#
$Mail_Address = '[email protected]';
 
########### Files
#
# Specify the file where the birthdays are listed.
#
$Birthday_File = '/path/to/the/birthday/file';
 
########### 
# Do not change anything below this line unless you know what you're doin'
 
$Tmp_File = '/tmp/.crontmp';
 
open (NAMES, "<$Birthday_File") || die "Can't open $Birthday_File!";
open (TMP, ">$Tmp_File") || die "Can't open $Tmp_File";
 
print "Looking for scheduled tasks in crontab file...\n";
@Task_List = `crontab -l`;
 
foreach $Task (@Task_List) {
        if($Task !~ /birthday|^#/) { 
                print "Found non-birthday task:\n$Task","Copying to new crontab file...";
                print TMP "$Task";
                print "Done.\n" 
        }
} 
 
print "Reading file $Birthday_File\n";
print TMP "#birthdays\n";
while (<NAMES>) {
        ($Date, $Name) = split (':', $_);
        ($Day, $Month) = ( $Date =~ /(\d{2})\.(\d{2})/ );
        chop $Name;
        print "Adding  $Day", ".", $Month, ". as $Name", "'s birthday...";
        print TMP "0 8 ", $Day, " ", $Month, " * ";
        print TMP "echo Today is $Name", "\\'s birthday | mail $Mail_Address\n";
        print "Done.\n"
}
print TMP "#birthdays_end\n";
close NAMES;
close TMP;
print "Updating crontab ...";
`crontab $Tmp_File`;
print "Done.\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2010-01-25 05:02 @251

localtime() devuelve un montón de valores. Si solo queremos el día, mes y año, pues tenemos varias posibilidades:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my(undef,undef,undef,$dia,$mes,$anno)=localtime();
$mes++;# ajuste a valores 1-12
$anno+=1900;# ajuste a valores de cuatro dígitosColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora ya pueden componer la fecha de hoy:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$hoy="$dia/$mes/$anno";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y ya pueden compararlo con la fecha leída del fichero, con 'eq' para comparar cadenas de caracteres.

Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

explorer@joaquin:~>perl-le'my (undef,undef,undef,$dia,$mes,$anno) = localtime(); $mes++; $anno += 1900; $hoy = "$dia/$mes/$anno"; print $hoy'
25/1/2010Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **alehuelva** » 2010-01-25 05:03 @252

¿Alguien podría decirme cómo comparar una fecha dd/mm/yyyy con el día actual?

Gracias.

Explorer citó:

localtime() devuelve un montón de valores. Si solo queremos el día, mes y año, pues tenemos varias posibilidades:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my(undef,undef,undef,$dia,$mes,$anno)=localtime();
$mes++;# ajuste a valores 1-12
$anno+=1900;# ajuste a valores de cuatro dígitosColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora ya pueden componer la fecha de hoy:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$hoy="$dia/$mes/$anno";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y ya pueden compararlo con la fecha leída del fichero, con 'eq' para comparar cadenas de caracteres.

Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

explorer@joaquin:~>perl-le'my (undef,undef,undef,$dia,$mes,$anno) = localtime(); $mes++; $anno += 1900; $hoy = "$dia/$mes/$anno"; print $hoy'
25/1/2010Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Espero que les sirva a todos.

por **explorer** » 2010-01-25 06:01 @292

Pues con 'eq', ya te lo han dicho...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($dateeq$hoy){
# ...
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Fechas y correo electrónico

Re: Modificación de prácticas

Publicidad

Re: Modificación de prácticas

Re: Modificación de prácticas

Re: Modificación de prácticas

Re: Modificación de prácticas

Comparación fecha

Re: Fechas y correo electrónico

¿Quién está conectado?