Galera.
Qual o erro nessa sintaxe:
Código :while (<>){ }
Estou tendo erro nisso.
Valeu.
Galera.
Qual o erro nessa sintaxe:
Código :while (<>){ }
Estou tendo erro nisso.
Valeu.
Acompanho do outro post.
Seguinte, você deve ter copiado este script de algum site, por isso o < e >, são tags para colocar < e > em páginas html sem interferir com as tag do próprio html.
Opa.
Não entendi direito.
O código completo é esse aqui:
#!/usr/bin/perl
$|=1;
while (<>) {
@X = split;
$x = $X[0];
$_ = $X[1];
if (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?\&(itag=[0-9]*).*?\&(id=[a-zA-Z0-9]*)/) {
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . "&" . $3 . "\n";
} else {
print $x . $_ . "\n";
}
}
Mas dá erro no while
Valeu
Sugiro que baixe novamente o script, esta cheio de tags html
Esses >, <, & e tudo tag html para inserir caracteres especiais na pagina, como acentos e operadores.