Ayudita Scrip con Perl [Solucionado]

[elecktra]

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 [Seleccionar] Expandir

#!/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.

[^Tifa^]

Pero si ya lo tienes dentro de tu codigo bebe

Código (perl) [Seleccionar] Expandir



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



[elecktra]

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.

[^Tifa^]

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

Claro es localhost pero sigue siendo irrelevante en este punto 

Mira:

Código (perl) [Seleccionar] Expandir



#!/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 

[elecktra]

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.