Ajuda com if (perl)

[Cash Override]

Olá para todos
estou querendo fazer uma condição em perl
tipo se a linha ficar vazia dá um erro !
caso a linha for preenchida continue a operação
mais no meu caso do mesmo jeito com a linha preenchida ou não
está imprimindo o erro ! me ajudem

#!/usr/bin/perl

print"===========================\n";
print" Deixe em branco ou erro ! \n";
print"===========================\n";

my $var1;

print "Qual e seu Nome:\t\n";
$var1 = <STDIN>;

if ($var1 = '') {
print "O seu nome e: $var1";
}
else{
print "Erro ! a linha nao pode ficar em branca !\n";
}

[Lord Beni-Aretz]

#!/usr/bin/perl

print"===========================\n";
print" Deixe em branco ou erro ! \n";
print"===========================\n";

print "Qual e seu Nome:\t\n";
$var1 = <STDIN>;
chomp $var1;

if ($var1 ne '') {
print "O seu nome e: $var1";
} else {
print "Erro ! a linha nao pode ficar em branca !\n";
}

Dois detalhes broder:

1° Sempre use o chomp, teste sem ele e veja o que acontece...;
2° A dica é: se tu for fazer comparação entre números use o == se for strings o eq.
3° Dica para negação usamos o != para numericos e ne para strings

exemplo:

if (2 == 2) {... }
if (a se b){... }
if (2 != 3) {... o comando != quer dizer diferente.}

blz.

[fvox]

2° A dica é: se tu for fazer comparação entre números use o == se for strings o se.

O operador de comparação de strings é "eq" e não "se".

[]'s

[Lord Beni-Aretz]

O operador de comparação de strings é "eq" e não "se".

[]'s

tem razão foi mal, escrevi errado na hora de explicar... valeu por corrigir.

na verdade era o "ne" mesmo que eu queria descrever, para negação em comparação com o !=