← Back to team overview

sslug-teknik team mailing list archive

Re: Scripts

 

Jan Jozwiak wrote:
> 
> Allan Jacobsen wrote :
> > Brug perl:
> >
> > #!/usr/bin/perl
> > while (<>) {
> >   chomp;
> >   ($var1,$var2,$var3) = split;
> >   print "\"$var1\",\"$var2\",\"$var3\"\n";
> > }
> Den kommer med en masse fejl når jeg kører scriptet
Det gør der ikke hos mig:

allan@pc130:~$ cat f
navn1   navn2   navn3
navn4   navn5   navn6
navn7   navn8   navn9
allan@pc130:~$ cat test.pl
#!/usr/bin/perl -w
#

while (<>) {
  chomp;
  ($var1,$var2,$var3) = split;
  print "\"$var1\",\"$var2\",\"$var3\"\n";
}

allan@pc130:~$ ./test.pl < f
"navn1","navn2","navn3"
"navn4","navn5","navn6"
"navn7","navn8","navn9"
allan@pc130:~$ 

-- 
MVH / Best Regards
Allan Jacobsen
AJ30-RIPE, AJ274 (Internic)
"Life is too short for Microsoft software"


References