Re: [ELIPHAS] [shell-script] Re: Script PERL

[Eliphas Levy Theodoro]

Eliphas Levy Theodoro, @ 22:30:

> --- Em address@hidden, fberbert@n... escreveu> Olá,> > Alguém sab=
> e como faço para ler uma entrada de> usuário em PERL via console?> > Seria o=
>  similar a (em C):> > printf("Digite seu nome: ");> scanf("%s",&nome);até eu=
>  que não sei nada de perl dou conta dessa ':))# começoprint "digite seu nome=
> : ";$nome = <>;print "o nome que você digitou é: ";print $nome;# fimisso vai=
>  resultar em:digite seu nome: eliphaso nome que você digitou é: eliphas-- ec=
> ho Conectiva - Theodoro, Eliphas Levy | \sed 's/\([A-z]*\) - \([A-z]*,\) \([=
> A-z]*\) \([A-z]*\)/\3 \4 \2 \1/'Se os homens são todos iguais, porque as mul=
> heres escolhem tanto?

nossa... isso que dá mandar mail via página do egrous. ouch!

retranscrevendo ela:

--- Em address@hidden, fberbert@n... escreveu
> Olá,
>
> Alguém sabe como faço para ler uma entrada de
> usuário em PERL via console?

> Seria o
> similar a (em C):

> printf("Digite seu nome: ");
> scanf("%s",&nome);

até eu que não sei nada de perl dou conta dessa ':))

# começo
print "digite seu nome: ";
$nome = <>;
print "o nome que você digitou é: ";
print $nome;
# fim

isso vai resultar em:

digite seu nome: eliphas
o nome que você digitou é: eliphas

-- 
echo Conectiva - Theodoro, Eliphas Levy | \
sed 's/\([A-z]*\) - \([A-z]*,\) \([A-z]*\) \([A-z]*\)/\3 \4 \2 \1/'

Se os homens são todos iguais, porque as mulheres escolhem tanto?