Muchas gracias... el último me ha servido de mucho. Al llamarlo desde una declaración como por ejemplo
$cantidad = 001 tuve que hacerlo entre comillas; no se me había ocurrido; tampoco conocía esa forma de utilizar
for.
Te dejo mi código para que los demás también puedan aprender...
Me gustó mucho poder conocer tu foto ^^
Using perl Syntax Highlighting
#!/usr/bin/perl -w
# - pvd.pl - PVideo Downloader V2.5 by WHK
#Variables y declaraciones ===============================================================#
my ($inicio_1, $inicio_2, $ruta, $video, $n_1, $n_2); #
unless (@ARGV == 1
) { die "uso: $0 [Cantidad de videos (0 = todos)]\n" } ($n_1) = @ARGV; #
if ($n_1 == 0
) { $n_1 = 1954601; } #
#
$n_2 = 1; #
$carpeta_1 = 'videos'; #Opcional #
$carpeta_2 = 1; #
#=========================================================================================#
print "Iniciando descargas...\n";
system("mkdir $carpeta_1");
#=========================================INICIO DE DESCARGAS=======================================#
#Inicio ruta Nº1 http://free.sexbankroll.com/content/VDB00[01-49]/[1-x].wmv --------------:
$inicio_1 = "01"; $inicio_2 = 1; $ruta = "49"; $video = 1000; system("mkdir $carpeta_1/$carpeta_2");
for $i ( $inicio_1 .. $ruta ) {
while ( $inicio_2 <= $video ) {
if (-e
"$carpeta_1/$carpeta_2/$inicio_2.wmv") {
$inicio_2++;
} else {
system("wget -nd http://free.sexbankroll.com/content/VDB ... icio_2.wmv");
if ($n_1 == $n_2) {
exit(0
);
}
if (-e
"$carpeta_1/$carpeta_2/404.html") {
unlink("$carpeta_1/$carpeta_2/404.html");
if ($video == 1
) {
$inicio_1 = $ruta;
} else {
$inicio_2 = $video;
}
} else {
system("mv $inicio_2.wmv $carpeta_1/$carpeta_2/$inicio_2.wmv");
$n_2++; $inicio_2++;
}
}
}
}
$carpeta_2++;
#Fin ruta Nº1 ----------------------------------------------------------------------------:
#Inicio ruta Nº2 http://free.sexbankroll.com/content/DB1[001-616]/[1-x].wmv --------------:
$inicio_1 = "001"; $inicio_2 = 1; $ruta = "616"; $video = 1000; system("mkdir $carpeta_1/$carpeta_2");
for $i ( $inicio_1 .. $ruta ) {
while ( $inicio_2 <= $video ) {
if (-e
"$carpeta_1/$carpeta_2/$inicio_2.wmv") {
$inicio_2++;
} else {
system("wget -nd http://free.sexbankroll.com/content/DB1$i/$inicio_2.wmv");
if ($n_1 == $n_2) {
exit(0
);
}
if (-e
"$carpeta_1/$carpeta_2/404.html") {
unlink("$carpeta_1/$carpeta_2/404.html");
if ($video == 1
) {
$inicio_1 = $ruta;
} else {
$inicio_2 = $video;
}
} else {
system("mv $inicio_2.wmv $carpeta_1/$carpeta_2/$inicio_2.wmv");
$n_2++; $inicio_2++;
}
}
}
}
$carpeta_2++;
#Fin ruta Nº2 ----------------------------------------------------------------------------:
#Inicio ruta Nº3 http://free.sexbankroll.com/quality_con ... uregranny/[1-757].wmv -:
$inicio_2 = 1; $video = 757; system("mkdir $carpeta_1/$carpeta_2");
while ( $inicio_2 <= $video ) {
if (-e
"$carpeta_1/$carpeta_2/$inicio_2.wmv") {
$inicio_2++;
} else {
system("wget -nd http://free.sexbankroll.com/quality_con ... icio_2.wmv");
if ($n_1 == $n_2) {
exit(0
);
}
if (-e
"$carpeta_1/$carpeta_2/404.html") {
unlink("$carpeta_1/$carpeta_2/404.html");
$inicio_2 = $video;
} else {
system("mv $inicio_2.wmv $carpeta_1/$carpeta_2/$inicio_2.wmv");
$n_2++; $inicio_2++;
}
}
}
$carpeta_2++;
#Fin ruta Nº3 ----------------------------------------------------------------------------:
#Inicio ruta Nº4 http://free.sexbankroll.com/quality_con ... uregranny/[1-757].wmv -:
$inicio_2 = 1; $video = 1269; system("mkdir $carpeta_1/$carpeta_2");
while ( $inicio_2 <= $video ) {
if (-e
"$carpeta_1/$carpeta_2/$inicio_2.wmv") {
$inicio_2++;
} else {
system("wget -nd http://free.sexbankroll.com/niche_conte ... icio_2.wmv");
if ($n_1 == $n_2) {
exit(0
);
}
if (-e
"$carpeta_1/$carpeta_2/404.html") {
unlink("$carpeta_1/$carpeta_2/404.html");
$inicio_2 = $video;
} else {
system("mv $inicio_2.wmv $carpeta_1/$carpeta_2/$inicio_2.wmv");
$n_2++; $inicio_2++;
}
}
}
$carpeta_2++;
#Fin ruta Nº4 ----------------------------------------------------------------------------:
#Inicio ruta Nº5 http://free.sexbankroll.com/quality_con ... ar/hentai/[1-2274].wmv -:
$inicio_2 = 1; $video = 2274; system("mkdir $carpeta_1/$carpeta_2");
while ( $inicio_2 <= $video ) {
if (-e
"$carpeta_1/$carpeta_2/$inicio_2.wmv") {
$inicio_2++;
} else {
system("wget -nd http://free.sexbankroll.com/quality_con ... icio_2.wmv");
if ($n_1 == $n_2) {
exit(0
);
}
if (-e
"$carpeta_1/$carpeta_2/404.html") {
unlink("$carpeta_1/$carpeta_2/404.html");
$inicio_2 = $video;
} else {
system("mv $inicio_2.wmv $carpeta_1/$carpeta_2/$inicio_2.wmv");
$n_2++; $inicio_2++;
}
}
}
$carpeta_2++;
#Fin ruta Nº5 ----------------------------------------------------------------------------:
#Inicio ruta Nº6 http://free.sexbankroll.com/quality_con ... /sologirl/[1-382].wmv :
$inicio_2 = 1; $video = 382; system("mkdir $carpeta_1/$carpeta_2");
while ( $inicio_2 <= $video ) {
if (-e
"$carpeta_1/$carpeta_2/$inicio_2.wmv") {
$inicio_2++;
} else {
system("wget -nd http://free.sexbankroll.com/quality_con ... icio_2.wmv");
if ($n_1 == $n_2) {
exit(0
);
}
if (-e
"$carpeta_1/$carpeta_2/404.html") {
unlink("$carpeta_1/$carpeta_2/404.html");
$inicio_2 = $video;
} else {
system("mv $inicio_2.wmv $carpeta_1/$carpeta_2/$inicio_2.wmv");
$n_2++; $inicio_2++;
}
}
}
$carpeta_2++;
#Fin ruta Nº6 ----------------------------------------------------------------------------:
#===========================================FIN DE DESCARGAS========================================#
print "\nTerminado!\n";
exit(0
);Coloreado en 0.006 segundos, usando
GeSHi 1.0.8.4
¿Se podrá mejorar de alguna forma? Pienso que tal vez pueda automatizarse de 6 a un solo grupo de scripts donde tan solo se llame a una variable
http://sitio/[1-900].wmv y que el código tome esa declaración y lo transforme en código, así solo pondría los
links en una variable única llamada
links. De todas formas buscaré la manera de hacerlo. Fíjate que me he demorado casi tres días en construir este script ya que antes sabía muy poco y casi todo lo que puse ahí fue averiguando solo cada función y aplicándola al código.
Al final me he divertido más creando el código que utilizándolo :p
(Si piensas que no es bueno dejar este código acá puedes eliminarlo sin remordimiento jajaja)