[SP-pm] Ler o stdin para uma string

[Eden Cardim]

>>>>> "Pinguim" == Pinguim Azul <bluepenguin em gmail.com> writes:

    Pinguim> O truque do shebang foi excelente, melhorei várias
    Pinguim> posições!  Mas eu não consigo aplicar sempre, porque tem
    Pinguim> problemas em que eu preciso ignorar a primeira linha, como
    Pinguim> esse:

    Pinguim> https://www.spoj.pl/SHORTEN/problems/FACTZERO/

    Pinguim> O que eu estava fazendo até agora era algo do tipo:

    Pinguim> <>;for(<>){codigo}

    Pinguim> Mas como eu faco isso usando o -p?

    Pinguim> Eu pensei em algo assim:

    Pinguim> #!perl -p next if $.==0; codigo

    Pinguim> ...mas aí ele imprime 0 na linha que foi pulada.

#!perl -p
BEGIN{<>}