my ( $Monitoring_Inhalte_POST ) = &Monitoring_Server_POST( $Monitoring_Exporte_Parameter_GUI_I )
1
2
3
4
if( $Monitoring_Inhalte_POST =~ /Oberflaeche_I/ ) # Suche des Parameters "Oberflaeche_I" in Inhalte des POSTs
{
# Do Something
}
return( "$Monitoring_Inhalte_POST" , "$Monitoring_Parameter_Werte );
Guest VerzweifelterIch weiß ja nicht deine Subroutine aussieht und wie du die von anderen Programmzeilen aus aufrufst.Nachdem ich nun die Parameter ja dank deine Code auslesen
kann möchte ich die Werte entsprechend auch zurückgeben.
Guest VerzweifelterEin Return kann eine Liste zurück geben.Ein einfaches :
Code: (dl )return( "$Monitoring_Inhalte_POST" , "$Monitoring_Parameter_Werte );
bringt hier ja nichts. Ich habe bereits versucht das Array @EPROM_Parameter_Werte; aus der For Schleife zu lösen, allerdings ohne Erfolg.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
sub Monitoring_Server_POST {
my $LWP = LWP::UserAgent -> new;
my $Monitoring_URL_Basis = "http://beispiel.de/Monitoring/";
my $Monitoring_URL_Parameter = $_[0];
my $Monitoring_Server_POST = $Monitoring_URL_Basis . $Monitoring_URL_Parameter;
my $Monitoring_Anfrage_POST = HTTP::Request -> new( POST => $Monitoring_Server_POST );
# -------------------------------------------------------------------------------------------
# Ermittlung der Übergabe - Parameter jedes POST - Befehls
my $Monitoring_Parameter_Anfrage = HTTP::Request::Params -> new( { req => $Monitoring_Anfrage_POST, } );
my $Monitoring_Parameter_Ermittlung = $Monitoring_Parameter_Anfrage -> params;
my %Monitoring_Parameter_Hashes = %{ $Monitoring_Parameter_Ermittlung };
for my $Monitoring_Parameter_Schluessel ( keys %Monitoring_Parameter_Hashes )
{
my @Monitoring_Parameter_Werte;
if ( ref $Monitoring_Parameter_Hashes{ $Monitoring_Parameter_Schluessel } )
{
@Monitoring_Parameter_Werte = @{ $Monitoring_Parameter_Hashes{ $Monitoring_Parameter_Schluessel } };
} else {
@Monitoring_Parameter_Werte = $Monitoring_Parameter_Hashes{ $Monitoring_Parameter_Schluessel };
}
print $Monitoring_Parameter_Schluessel , " => " , join "" , @Monitoring_Parameter_Werte , "\n";
}
# -------------------------------------------------------------------------------------------
$LWP -> cookie_jar( $Monitoring_Cookies );
my $Monitoring_Rueckmeldung_POST = $LWP -> request( $Monitoring_Anfrage_POST );
if ( $Monitoring_Rueckmeldung_POST -> is_success )
{
my $Monitoring_Inhalte_POST = $Monitoring_Rueckmeldung_POST -> decoded_content;
print "POST Rueckmeldung \t : In Ordnung" , "\n";
print "HTTP POST Code \t : " , $Monitoring_Rueckmeldung_POST -> code , "\n";
print "HTTP POST Meldung \t : " , $Monitoring_Rueckmeldung_POST -> message , "\n";
return( "$Monitoring_Inhalte_POST" );
} else {
print "HTTP POST Error Code : ", $Monitoring_Rueckmeldung_POST -> code , "\n";
print "HTTP POST Error Meldung : ", $Monitoring_Rueckmeldung_POST -> message , "\n";
}
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sub Monitoring_Export_Allgemeines {
# system( "CLS" );
print "-------------------------------------------------------------------------" , "\n";
my $Monitoring_Exporte_Parameter_GUI_I = "";
my ( $Monitoring_Inhalte_POST ) = &Monitoring_Server_POST( $Monitoring_Exporte_Parameter_GUI_I );
if( $Monitoring_Inhalte_POST =~ /Oberflaeche_I/ )
{
print "\n";
print "Monitoring - PERL Verarbeitung - Oberflaeche I" , "\n";
print "----------------------------------------------" , "\n";
print "\n";
... Weitere Verarbeitung - Hier ohne Relevanz
}
}
1
2
3
4
5
6
7
8
username => BeispielUser
password => BeispielPW
POST Rueckmeldung : In Ordnung
HTTP POST Code : 200
HTTP POST Meldung : OK
Es gibt eine aktive Sitzung fuer : BeispielNutzer
return( $Monitoring_Inhalte_POST , @Monitoring_Parameter_Werte );
my ( $Monitoring_Inhalte_POST , @EPROM_Parameter_Werte ) = &Monitoring_Server_POST( $Monitoring_Exporte_Parameter_GUI_I );
Guest VerzweifelterJa, du musst dann eben diese Parameter übergeben.bekomme ich ja nicht die ganze Liste. Ich möchte im Prinzip die
derzeitge Anzeige der Werte ( Schlüssel & Wert ) in diese
Sub Routine ( &Monitoring_Exporte_Allgemeines() ) verlagern.
Muss ich die Werte dann nochmal in ein Array schreiben, dass ich
dann übergebe ???? Ratlosigkeit am Start :-))))
1
2
3
4
5
6
7
8
sub Monitoring_Export_Allgemeines {
my ($parameter, @weitere_parameter) = @_;
...
...
}
...
Monitoring_Export_Allgemeines($parm1, @parms);