Jump to content
bcastanheira

Dúvida Perl output

Recommended Posts

bcastanheira

Estou com dúvidas ao seguinte problema. Alguém me pode dizer qual é o outuput do seguinte programa em Perl?

_@ = “Um elefante (cor de rosa) saltando de nenufer em nenufer”;
@res = split (/[\t\(\) ]+/);
foreach $lin (@res){
print “\n$lin”;
}

Share this post


Link to post
Share on other sites
thoga31

Coloriza o código: [ code=perl ][ /code ], sem espaços.

Podes testar o teu código online aqui :D


Knowledge is free!

Share this post


Link to post
Share on other sites
fvox

Hi.

Hmm, digamos que não há output porque o código não rodaria.

A atribuição à variável UNDERSCORE está incorreta. O correto é @_ ao invés de _@. Só assim a função split funcionaria. =P

A função split deveria ser usada dentro da uma scalar, e não de uma lista, não é? No caso, o ideal seria definir a string usando $_ e não @_.

Aparentemente a expressão regular não está funcionando como deveria, até porque não entendi o uso do \t dentro group.

[]'s


"Strength of the world, the one true beholder...Ice in my veins, for those who've died."

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.