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

[Kim Schulz <sslug@sslug>]

On Sat, 01 Jun 2002 15:53:11 +0200
Peter Makholm <sslug@sslug> wrote:
> my ($forhandlerliste,$varerliste) = @ARGV;
>  my %forhandler;
> 
>  open FH, '<', $forhandlerliste;
>  while(<FH>) {
>      @linje = split /;/;
>      $forhandler{$linje[0]} = $linje[1];
>  }
>  close FH;
> 
>  $, = ';';
>  open FH, '<', $varerliste;
>  while(<FH>) {
>      @linje = split /;/;
>      $linje[14] = $forhandler[$linje[14]] || $linje[14];
>      print @linje;
>  }


bort set fra at den ikke kan klare open med så mange parametre :o) (en
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. 



-- 
Kim Schulz - Freelance Development    | She always believed in the old
www.schulz.dk  - En nørds bekendelser | adage -- leave them while
www.linuxia.dk - hverdagens små hacks | you're looking good.   --