Re: [PERL] rette alle forekoster i en fil med noget fra anden fil

[sslug@sslug (Dennis Jørgensen)]

Peter Makholm (sslug@sslug) wrote:

<klip>
>    $forhandler{$linje[0]} = $linje[1];

<klip>

>open FH, '<', $varerliste;
>while(<FH>) {
>    @linje = split /;/;
>    $linje[14] = $forhandler[$linje[14]] || $linje[14];

det burde vist være:

$linje[14] = $forhandler{$linje[14]} || $linje[14];

?


Mvh.

  Dennis Jørgensen