Perl: require extern aufrufen ???

[Xuser]

Guten Tag zusammen

also zur zeit sieh es noch so aus

require "text1.txt";

require "text2.txt";

require "text3.txt";

ich möchte aber mit cgi-bin/dateiname?text1.txt

die informationen aus text1.txt auslesen und

mit cgi-bin/dateiname?text2.txt aus text datei 2 ...

wie geht das ???

Vielen dank !

MFG Xuser

[DevilDawn]

Also generell müßte der Aufruf eher so aussehen:

/cgi-bin/script.cgi?file=datei1.txt

Dann kannst du über

#!/usr/bin/perl


use strict;

use CGI;


my $lCGI = new CGI;

my $Datei = $lCGI->param('file');

an den Dateinamen ran. Aber es ist dann gefährlich, diesen einfach in einem require Statement einzubauen. Damit dürfte jeder, der die Funktionsweise des Scriptes kennt und Dateien auf dem Webserver ablegen darf, eigene Perlscripte ausführen lassen - nicht gut.

Wenn es sich nur um Daten handelt, brav mit open öffnen und einlesen. Dann kann man auch die Syntax checken.