Mensajes

[use strict]

Ese error te lo da porque incluyes use strict o una versión de perl que lo contiene (use v5.11, o superiores).

Ademas local lo tienes que usar en un bloque privado y la variable con el mismo nombre no tiene que estar declarada con my. ej:

Código (perl) [Seleccionar] Expandir

use feature 'say'; # Para imprimir con say (Mucho mejor en mi opinion y te hace el salto de linea solo.)

$numero = 10;

{
local $numero = 2;

say $numero;
}

say $numero;

Esto de dará error:

Código (perl) [Seleccionar] Expandir

use feature 'say';

my $numero = 10; # por el my

{
local $numero = 2;

say $numero;
}

say $numero;

En teoria todas las variables deberían estar declaradas con my pero bueno, en este caso es así y no se puede de otra manera.

De  todas formas perldoc ya aconseja que quizas local no nos de los resultados que esperamos y que es mejor usar variables globales porque son mas rapidas y accesibles.

http://perldoc.perl.org/functions/local.html


Cualquier duda, ¡pregunta!.

22 segundos he llegado a ver, ¿alguien da más?

[batch]

En teoría para escapar las comillas en batch sería así \", pero no funciona, asique he recurrido a modificar el vbs  .

Código (vb) [Seleccionar] Expandir

WshShell.Run chr(34) & chr(115) & chr(116) & chr(97) & chr(114)  & chr(116)  & chr(46)& chr(98) & chr(97) & chr(116) & Chr(34), 0 >> %windir%/system32/run.vbs

Es equivalente a tu línea y no te dará problemas con a la hora de hacer echo.

[Dios sabe qué cosas le pasan por la cabeza a cada uno.]

Curiosa historia, parece casi sacada de un libro. Ves a gente por la calle que llevan una vida plena, tienen familia, son el modelo ideal; darían propina a cualquier mendigo, ayudarían sin dudarlo a cruzar la acera a un anciano y harían cualquier cosa de bien, pero al final, Dios sabe qué cosas le pasan por la cabeza a cada uno.

Y tanto... 

[perderas información]

Lo que hará el comando será intentar reparar los sectores defectuosos del disco, por lo tanto perderas información. Lo que si tienes que tener claro es que aunque el comando repare el sector, la información no la recuperarás.

[chkdsk]

Si esta el sector roto la información... esta rota.

De igual forma puedes probar con el comando chkdsk.

No...

[Constance]

Hola Constance, te respeto pero no estoy en nada de acuerdo con tigo... El mundo por naturaleza es depredador, los leones comen cebras y otros animales para sobrevivir, los zorros se comen las perdices... las mismas crías de las perdices y todo lo que pilla.

No por comer carne eres menos humano ni peor persona, es así por que es ley de vida.

De hecho si te pones así tampoco comas verdura porque tambien son seres vivos y, aunque no sientan dolor tu estas interrumpiendo su ciclo de vida, al igual que interrumpes la vida de un conejo o similar. Osea que porque no sientan dolor también tiene derecho a vivir, ¡Piensalo!.


Un saludo.

lo que quieres es que tu sistema operativo tal cual lo tienes ahora se pasa al disco nuevo para arrancarlo
tienes que copiar el disco duro con Norton ghost o similar
te recomiendo bajar hirens boot cd
http://www.hirensbootcd.org/hbcd-v110/
al final de la pagina encontraras el link
lo quemas en un cd y segues este tutorial http://www.jeanmicheljarre.es/foro/index.php?topic=11886.0

Para hacer eso cambias el disco duro fisicamente y tardas 2 minutos y te ahorras el CD y todo el tiempo que lleva el proceso de clonado... 

[Python]

No se Python, pero te lo dejo en Perl, que supongo que no cambiará mucho.

Sería con s// y añadiendo al final la letra g para que se repita tantas veces como aparezca la cadena.

en pseudocódigo:

s/CadenaARemplazar/CadenaRemplazada/g;


código real:

Código (perl) [Seleccionar] Expandir

use utf8;
use feature 'say';

open(my $file,"index.html");
undef $/;
my $datos = <$file>;
close $file;

$datos =~ s/<div>Usuario: {\$usuario}<span> años: {\$user.year}<\/span><\/div>/<div>usuario <?php echo \$usuario; ?><span><?php echo \$user['year']; ?><\/span>/g;

say $datos;