Re: [PERL] Simpelt Perl spørgsmål

[Peter Andreasen <sslug@sslug>]

* Peter Makholm (sslug@sslug) [2000-08-30 15:35]:
> 
> >   last if $line = "";
> 
> Trigger denne linje aldrig. Skriv hellere:
> 
>   last if $line = "\n";

Bedre endnu:

  last if $line eq "\n";

Bemærk at = er tildelingsoperator, == er sammenligning af tal og eq er
sammenligning af strenge.

Som sædvanlig er der mange måder at gøre tingene på (TIMTOWTDI)... denne
ser man ikke så tit:

open FILE, ">>foo" or die "Horrible";
while (<>) {
    print FILE if (/^$/..eof());
}

 - peter