Using perl Syntax Highlighting
for ($_c = 0;$_c < $#noticias; $_c++) {
open(F,">>sport.txt");
print F "call" . $noticias[$_c][0]
. "\nFech: " . $noticias[$_c][1]
. "\nTi: " . $noticias[$_c][2]
. "\nLink: " . $noticias[$_c][3]
. "\nDesc: " . $noticias[$_c][4]
. "\n\n"
if ($noticias[$_c][5]);
close(F);
}
open(F,">>sport.txt");
print F "call" . $noticias[$_c][0]
. "\nFech: " . $noticias[$_c][1]
. "\nTi: " . $noticias[$_c][2]
. "\nLink: " . $noticias[$_c][3]
. "\nDesc: " . $noticias[$_c][4]
. "\n\n"
if ($noticias[$_c][5]);
close(F);
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Gracias