Liste geordnet wieder ausgeben

[Cheatah]

Hi,

wenn ich das hier richtig interpretiere:

for(@Zeilen)
   {
    if(/HTML/)
     {
      print "Content-type: text/html\n\n";
      print $_;
     }
    }

willst Du den Content-type abhängig von einem Codewort in der Datei machen. Dazu ist es am geschicktesten (falls Du Einfluß darauf hast), das Codewort in der ersten Zeile zu definieren. Teste dann so:

$Zeilen[0] =~ s/HTML/Content-type: text/html\n\n/;

und gib danach for(@Zeilen) { print $_; } aus. Hier wird also in der ersten Zeile einfach nur HTML durch den passenden Content-type ersetzt. Du kannst die Zeile beliebig oft angepaßt wiederholen, also etwa so:

$Zeilen[0] =~ s/TEXT/Content-type: text/plain\n\n/;
$Zeilen[0] =~ s/GIF/Content-type: image/gif\n\n/;
usw.

Vergiß aber nicht, den Slash im MIME-Type zu maskieren ;-)

Cheatah