Re: [PERL] online bog/tutor til perl

[Peter Makholm <sslug@sslug>]

Kim Jensen <sslug@sslug> writes:

> Perl
>
> if (...) {
>
> }
>
> Shell
> if [ ]; then
>
> fi

Det er jo bare fordi syntaksen er en smule uvandt i bourne shell, hvis
man er vandt til andre programmeringssprog. Jeg tror nærmere jeg for
eksempel ville se på det stykke kode jeg skrev til Kim:

#perl
LINE: while (defined($_ = <ARGV>)) {
    @F = split(/;/, $_, 0);
    $, = ';';
    if (1 .. eof) {
        $F{eval $F[0]} = $F[1];
    }
    else {
        $F[14] = $F{$F[14]} || $F[14];
        print @F;
    }
}
__END__

Det ville nok have været svært at skrive i bourne shell uden at ty til
et hjælpeprogram der alligevel nok selv kunne løse hele opgaven selv.

-- 
 Peter Makholm     |    I congratulate you. Happy goldfish bowl to you, to
 sslug@sslug |      me, to everyone, and may each of you fry in hell
 http://hacking.dk |                                               forever
                   |                                      -- The Dead Past