Imprimir Página - Ayudita Scrip con Perl [Solucionado]

Título: Ayudita Scrip con Perl [Solucionado]
Publicado por: elecktra en 31 Octubre 2009, 21:09 pm

Hola, como estan amigos? bueno antes que nada les cuento que no se nada pero nada de perl, pero me han pasado un codigo para hacer un backup automatico de la base de datos en mi servidor web, el mismo s elso copio abajo, y le spido una ayudita por una modificacion que deseo hacer.

CODIGO:

Código:

#!/usr/bin/perl
use strict;
print "Content-type: text/html\n\n";
print "Iniciando backup!\n\n";
print "Espere por favor...\n\n";

# CUENTA (Ej. cuenta: elserver.com)
my $cuenta = "mipagina.com.ar";

# USUARIO DE MYSQL
my $usuario = "root";

# PASSWORD DE MYSQL
my $pass = "root";

# IP INTERNA DE MYSQL
my $ip = "192.168.xxx.xxx";

# BASE DE MYSQL
my $base = "midb";

my ($wkday,$month,$day,$time,$year) = split(/\s+/, localtime);
my $fecha = "$day-$month-$year";
system("/usr/local/mysql/bin/mysqldump $base -u $usuario --password='$pass' -h $ip > /www/$cuenta/mysql_backup/$cuenta-$fecha.sql");
print "Backup Finalizado!!!\n\n";

Bueno como podran ver este es un script sencillo, me hace un backup de la base de datos y la guarda automaticamente, lo guarda con el siguiente formato.

easyunlock.com.ar-31-Oct-2009.sql

Lo que e estoy deseando hacer es agregarle hora y minutos al archivo, porque el backup lo hago por varias horas al día. ejemplo:

easyunlock.com.ar-31-Oct-2009-10am.sql o easyunlock.com.ar-31-Oct-2009-10pm.sql

Se que hay qeu modificar la ultima sección del cosigo pero nos e como hacerlo.
Gracias.

Título: Re: Ayudita Scrip con Perl
Publicado por: ^Tifa^ en 31 Octubre 2009, 22:51 pm

Pero si ya lo tienes dentro de tu codigo bebe

Código

 
my ($wkday,$month,$day,$time,$year) = split(/\s+/, localtime);
my $fecha = "$day-$month-$year-$time";

Título: Re: Ayudita Scrip con Perl
Publicado por: elecktra en 1 Noviembre 2009, 00:16 am

Hola, como estas Tifa? garcias por responder, pero por mas que este eso en el code no me lo imprime en el archivo de backup, solo e los deja asi:

easyunlock.com.ar-31-Oct-2009.sql

Gracias.

Título: Re: Ayudita Scrip con Perl
Publicado por: ^Tifa^ en 1 Noviembre 2009, 00:35 am

Que raro encanto... te juro que ahora lo he probado y me funciona.

Claro es localhost pero sigue siendo irrelevante en este punto :rolleyes:

Mira:

Código

 
#!/usr/bin/perl
use strict;
print "Content-type: text/html\n\n";
print "Iniciando backup!\n\n";
print "Espere por favor...\n\n";
 
# CUENTA (Ej. cuenta: elserver.com)
my $cuenta = "mipagina.com.ar";
 
# USUARIO DE MYSQL
my $usuario = "marian";
 
# PASSWORD DE MYSQL
my $pass = "xxxxx";
 
# IP INTERNA DE MYSQL
my $ip = "localhost";
 
# BASE DE MYSQL
my $base = "primaria";
 
my ($wkday,$month,$day,$time,$year) = split(/\s+/, localtime);
my $fecha = "$day-$month-$year-$time";
system("mysqldump $base -u $usuario --password='$pass' -h $ip > $cuenta-$fecha.sql");
print "Backup Finalizado!!!\n\n";

Y guarda el archivito asi:

mipagina.com.ar-31-Oct-2009-19:29:47.sql

Podrias intentarlo una vez mas corazon, haber si funciona :rolleyes:

Título: Re: Ayudita Scrip con Perl (Solucionado)
Publicado por: elecktra en 1 Noviembre 2009, 01:03 am

Hola, gracias ya esta solucionado, s eme paso por alto una cosita.. el codigo actual el faltaba agregar el $time.
Gracias. pueden cerrar este tema.

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: elecktra en 31 Octubre 2009, 21:09 pm