The Zilus

Aquí un tip rápido para buscar cadenas de texto dentro de un patrón de ficheros o también para uno solo. Por ejemplo, si tenemos 100 ficheros que en algún lugar en su interior contienen una cadena que queremos reemplazar, nos hará el trabajo pesado en un par de segundos.

Esta es la sintaxis:

perl -pi -e ‘s/cadena vieja/cadena nueva/g’ patron

Un ejemplo practico seria:

perl -pi -e ‘s/index.html/index.php/g’ *.html

Perl es un lenguaje de programación amado por los que lo usan y odiado por lo que no lo critican, existe un buen debate al respecto, pero eso es harina de otro costal. A continuación un poema llamado “Open Heart” hecho en Perl:

open (HEART, “>for_me”);
for ($this-valentines-day; $you and $me; $together++) {
$you = “My special one”;
$me = “Your darling”;
}

%time = ($you => $me, $together => “forever”);
while ($you = push(@me, @away)) {
foreach (@second) {
die a_bit to my $death;
goto hell;
}

pack $my_bags, @and_leave;
package my_love;
unless(!$i_see_you) {
write YOU_SOON;
}
}

reverse keys %time;
bless me;
for (last; kill $me;) {
if ($you) {
die;
}
}