Questões de Concurso
Sobre perl em programação
Foram encontradas 10 questões
Analise o trecho de código em Perl a seguir.
#!/usr/bin/perl
$aux = 1;
@array =
("10","2202","366","55");
$var = "";
if ($array[0] ne "10"){
$var .= "1";
} else {
$var .= "0";
$aux++;
}
if ($array[$#array-1] eq "366"){
$var .= "0";
} else {
$var .= "1";
$aux++;
}
if ($array[$aux] =~ /20/){
$var .= "0";
} else {
$var .= "1";
}
print "$var\n";
Após a execução do código, o valor da variável $var impresso na tela será:
$Texto = "Zé corre risco de vida num táxi 1234567890"; $Texto =~ s/[a-z]| //gi; print $Texto;
sub log {
my $ mensagem = shift;
print LOGFILE $mensagem;
}
$Texto = "Zé corre risco de vida num táxi 1234567890";
$Texto =~ s/[a-z]| //gi;
print $Texto;