Qual o erro nessa sintaxe?

[Terry]

Galera.

Qual o erro nessa sintaxe:

while (<>){ }

Estou tendo erro nisso.

Valeu.

[osmano807]

Acompanho do outro post.
Seguinte, você deve ter copiado este script de algum site, por isso o &lt e &gt, são tags para colocar < e > em páginas html sem interferir com as tag do próprio html.

[Terry]

Opa.

Não entendi direito.
O código completo é esse aqui:

#!/usr/bin/perl

$|=1;
while (&lt;&gt) {
@X = split;
$x = $X[0];
$_ = $X[1];

if (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?\&amp;(itag=[0-9]*).*?\&amp;(id=[a-zA-Z0-9]*)/) {
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . "&amp;" . $3 . "\n";

} else {
print $x . $_ . "\n";
}
}

Mas dá erro no while

Valeu

[osmano807]

Sugiro que baixe novamente o script, esta cheio de tags html
Esses &gt, &lt, &amp e tudo tag html para inserir caracteres especiais na pagina, como acentos e operadores.