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

[Peter Makholm <sslug@sslug>]

Kim Schulz <sslug@sslug> writes:

> bort set fra at den ikke kan klare open med så mange parametre :o)

Så bruger du en anden perl end min perldokumentation er skrevet
til. Der bør findes en 3-argumentversion af open hvor mode og filnavn
er adskilte.

> parantes rundt om '<', $var klarede den fejl, så laver den intet om i
> filen så vidt jeg kan se. en diff på input vareliste filen og output
> filen giver heller ingenting. 

Åhhh, jeg opdager at i det stykke eksempel du sendte med har
forhandlerfilen quotes omkring varenummeret og det er der ikke i
varerlistefilen.

Det kan, måske lidt hacket klares ved at indsætte en eval i første
løkke så tildelingen til $forhandler ser således ud:

    $forhandler{eval $linje[0]} = $linje[1];

Det antager selvfølgelig at varenummeret virkelig er et varenummer og
ikke er i quotes i varelistefilen (ellers skal der også lige en eval
ind der).


Jeg synes nu at den korte udgave er sjoverer.

-- 
 Peter Makholm     |         Perhaps that late-night surfing is not such a
 sslug@sslug |           waste of time after all: it is just the web
 http://hacking.dk |                                              dreaming
                   |                                    -- Tim Berners-Lee