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

[Peter Makholm <sslug@sslug>]

Peter Makholm <sslug@sslug> writes:

> #perl
> my ($forhandlerliste,$varerliste) = @ARGV;
> my %forhandler;

Men det er jo alt for langt. Mon ikke følgende virker nogenlunde
tilfredsstillende.

$ perl -naF';' -e '$,=';';if(1..eof){%F{$F[0]}=$F[1]}else{$F[14]=$F{$F[14]}||$F[14];sslug@sslug' forhandlerliste.csv varerliste.csv

Det burde gøre det samme.

-- 
 Peter Makholm     |    According to the hacker ethic, the meaning of life
 sslug@sslug |            is not Friday, but it is not Sunday either
 http://hacking.dk |                                      -- Peeka Himanen