Hilfe mit einem konvertierungsScript

[Danny]

Hallo,
also ich hab nicht ganz verstanden, wozu das gut sein soll, aber dein script kommt mir schonmal spanisch vor. ich sag dir einfach was ich denke (ohne gewähr ;)

require "cgi-lib.pl";

&parse_form;

if ($in{'passwd'} eq 'admin')
{
$old = "<Xitami/webpages/eintrag/eintrag.txt";
$new = ">Xitami/webpages/eintrag/autos.htm";
open(INFILE, $old) or die "datei existiert nicht!";
open(NEW, $new);

»»  while (<INFILE>)
»»  {

{@Inhalt = <INFILE>;
  print NEW " @Inhalt \n";}

statt diesem kuddelmuddel könntest du schonmal: print NEW " $_ \n";
schreiben, dann kopierst du INFILE nach NEW.

close(NEW);

das ist nicht gut.. die schleife wird für jede zeile aus INFILE durchlaufen, und jedesmal wird in NEW geschrieben. wenn du NEW jetzt schon beim ersten schleifendurchlauf schließt, ist das sehr komisch..
»»  }

close(INFILE);

}

die;

wer kann mir helfen? danke im voraus!

so.. naja, was genau soll das script jetzt machen und wofür willst du das dann verwenden? vielleicht kann ich dir dann eher helfen..
  Danny