Estoy intentando hacer un script para practicar Perl, se trata de un intento de backup MUY sencillo...
Me da error
Se sugiere también alguna mejora al respecto para hacer este CacaScript más elaborado y claro... que con mi nivel pueda hacerlo... ??
Using perl Syntax Highlighting
#!/usr/bin/perl
#variable guardem parametres entrada, ex: "script.pl Usr"
$carpeta = $ARGV[0];
if (ARGV[0] != 'Usr' || 'Adm' || 'Pub' || 'Prd'){
printf("Valors acceptats: 'Usr','Adm', 'Pub', 'Prd' ");
}
# mount retorna codis de error (varis) si es 0 tot a anat be, si es un altre codi d'error algo ha anat mal
if ( mount -t smbfs -o username=peptio,password=1234,rw,lfs,sockopt=TCP_NODELAY //192.168.0.2/Backups /mnt/smb/ ) !=0 ) {
printf("Error al muntatge unitat");
}
# system retorna codis de error, si es 0 tot ha anat be, en cas contrari algun error hi ha aparegut
if ( system("tar -cvf /Empresa/$carpeta /mnt/smb/$carpeta/backup_${carpeta}_`date +%d%b%y`.tar") != 0 ) {
printf("Error al copiar el fitxer de backup al lloc remot");
}
`umount /mnt/smb`;
#variable guardem parametres entrada, ex: "script.pl Usr"
$carpeta = $ARGV[0];
if (ARGV[0] != 'Usr' || 'Adm' || 'Pub' || 'Prd'){
printf("Valors acceptats: 'Usr','Adm', 'Pub', 'Prd' ");
}
# mount retorna codis de error (varis) si es 0 tot a anat be, si es un altre codi d'error algo ha anat mal
if ( mount -t smbfs -o username=peptio,password=1234,rw,lfs,sockopt=TCP_NODELAY //192.168.0.2/Backups /mnt/smb/ ) !=0 ) {
printf("Error al muntatge unitat");
}
# system retorna codis de error, si es 0 tot ha anat be, en cas contrari algun error hi ha aparegut
if ( system("tar -cvf /Empresa/$carpeta /mnt/smb/$carpeta/backup_${carpeta}_`date +%d%b%y`.tar") != 0 ) {
printf("Error al copiar el fitxer de backup al lloc remot");
}
`umount /mnt/smb`;
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
Saludos y gracias
