Perl Code aus Textdatei auslesen und ausführen

[Matti Maekitalo]

use Mosche;

my $i=0;
while(<FILE>) {
  $record[$i] = $_;
  $i++;
}

Hier reicht:
my @record = <FILE>;

Für die Ausgabe der Zeile 1 und 2 ergäbe es dann:
print "$record[1]\n";  # Ergebnis: Das ist ein Textdatei
print "$record[2]\n";  # Ergebnis: $ENV{'REMOTE_ADDR'}

Das sind die Zeilen 2 und 3, die du da ausgibst. (Array-Indize beginnen bei 0, nicht bei 1).

Leider wird die Umgebungsvariable nicht ausgeführt!

Wenn du wirklich sicher bist, was in der Variablen drinsteht (also die ganze Datei nur von dir beschrieben wird und kontrolliert wird) dann hilft dir eval() sicher weiter:
perldoc -f eval
Verzichte lieber darauf, wenn du die Datei nicht vollständig kontrollieren kannst. Vorsicht insbesondere, da die Möglichkeit entstehen kann, daß du fremden Perl-Code ausführst.

use Tschoe qw(Matti);