Variable über Web steuern - #112927 (Perl/CGI)

MarioH

2008-07-31 00:06

User since
2008-07-24
11 Artikel
BenutzerIn
[default_avatar]

@nepos

Da hast Du natuerlich recht. In der Zwischenzeit habe ich mich auch weiter bemüht.

@all

Ich habe jetzt die Übergabe mit einem Formular und Get erfolgreich einrichten können. Mein Vorhaben funktioniert also testweise mit einer Variablen sehr gut. Leider ist jetzt die letzte Hürde, dass ich das Perl-Script auf mehrere Variablen erweitern muss.

Ich möchte also mehrere Abfragen der Bash-Datei, die am Anfang abgefragt werden, bedienen.

ala

vorher lokales Bash-Script:

Code: (dl )

...
read variable1
touch ${variable1}
...

jetzt soll aber lokal folgendes Bash-Script angesprochen werden

Code: (dl )

...
read variable1
read variable2
read variable3
touch ${variable1}
touch ${variable2}
touch ${variable3}
...

Ich habe schon etwas experimentiert und geschaut, aber noch keinen Anhaltspunkt für das Abarbeiten dieser Variablen. Über das Formular übergebe ich erfolgreich die URL

Code: (dl )

http://...test.pl?variable1=eins.txt&variable2=zwei.txt&variable3=drei.txt

Ich möchte also das funktionierende Script um die 2 weiteren Variablen erweitern

das Script für eine Variable

Code: (dl )

#!/usr/bin/perl 
use strict;
use warnings;
use CGI qw/:standard/;

# Neues CGI-Objekt, mit dem du Parameter auslesen kanns, HTTP-Header und HTML 
# ausgeben kannst
my $query = CGI->new();

# Header ausgeben
print $query->header();

my $variable_value = $query->param('variable');

# ACHTUNG: Nachdem du den Wert der Variable in ein Shell-Skript weitergibst,
# solltest du unbedingt prüfen, dass da kein Mist drinsteht. Da ich nicht weiss,
# welche Werte denn in dieser Variablen stehen dürfen, kann ich dir dafür keinen
# Check vorgeben!!!

open my $pipe, '|-', 'sudo /etc/test.sh' or die $!;
{
    local $SIG{PIPE} = 'IGNORE';
    print $pipe $variable_value or die $!;
}
close $pipe or die $?;

Vielen Dank für helfende Infos!

Mario