Perl Schleifen Ausgabe in Variable speichern

[Kyo1987]

Hallo zusammen,

kann mir Jemand sagen, wie ich die Ausgabe der folgenden Abfrage

if ($sock) { 
print "$ip ssh-Port erreichbar."; 
} else { 
print "$ip\n ssh-Port nicht erreichbar."; 
}

in eine Variable speichern kann,

damit ich sie später in einer Textausgabe verwenden kann?

Habe es schon mit einem Skalar und einem Hash probiert.
Vielleicht könnt ihr mir da ja weiterhelfen das wäre echt nett.

LG Kyo

[xandros]

Mal davon abgesehen, dass die relevanten Daten bereits in Variablen stehen ($sock und $ip)....
das ist keine Schleife, sondern eine einfache Kontrollstruktur.

[disler]

http://if-schleife.de/

code in einer variabeln speichern??

Wieso denn das?

[Kyo1987]

Ok nehmen wir jetzt an ich möchte die Ausgabe dieser Kontrollstruktur in einem Text unterbringen sprich.
Der Port 22 [Kontrollstruktur]
was muss ich dann dafür eingeben?

Kontrollstruktur =
ist erreichbar oder
ist nicht erreichbar

[disler]

ach meinst du so was....

PHP-Code:

if ($sock) {
$msg .= $ip .  " ssh-Port erreichbar.";
} else {
$msg .= $ip . "
 ssh-Port nicht erreichbar.";
}

//Ausgabe der Nachricht
echo $msg 


[Kyo1987]

funktioniert so leider nicht meine Ausgabe würde wie folgt aussehen

$text->insert('end', "SSH Port 22 ist auf der IP-Adresse: $ip mit dem Hostnamen: $Name $msg",'bold');

[disler]

könntest du dein ziel etwas genauer definieren und evt etwas mehr vom code zeigen?

[Kyo1987]

Also ich möchte mittels Script eine Abfrage starten, ob der SSH-Port eines Rechners erreichbar ist oder nicht.
Am Ende soll ein Fenster aufgerufen werden, in dem dann steht

1. Mit welchem Port
2. Mit welcher IP
3. Mit welchem Hostnamen
4. ob er erreichbar war oder nicht

PHP-Code:

if ($sock) { 
print "$ip erreichbar."; 
} else { 
print "$ip nicht erreichbar."; 
} 
my $mw = MainWindow->new; 
$mw->title("SSH-Portscan"); 
my $text = $mw->Text()->pack(); 
$text->tagConfigure('normal', -font => "{Arial} 12"); 
$text->tagConfigure('bold', -font => "{Arial} 12 {bold}"); 
$text->insert('end', "SSH Port 22 ist auf der IP-Adresse: $ip mit dem Hostnamen: $Name ",'bold'); 


[Kyo1987]

Habe die Lösung für das Problem

[mysql]
if ($sock)
{ my evt = "$ip erreichbar.";
} else
{ my evt = "$ip nicht erreichbar."; }
my $mw = MainWindow->new; $mw->title("SSH-Portscan");
my $text = $mw->Text()->pack();
$text->tagConfigure('normal', -font => "{Arial} 12");
$text->tagConfigure('bold', -font => "{Arial} 12 {bold}");
$text->insert('end', "SSH Port 22 ist auf der IP-Adresse: $ip mit dem Hostnamen: $Name $evt",'bold');
[/mysql]

Hatte am Anfang use strict; stehen.
Das habe ich gelöscht und damit ging das Programm.
Strict ist dafür da, das dass Programm mekert, wenn man eine Variable nicht richtig deklariert hat.



@lle Beteiligte:

Vielen Dank für die Hilfe

[xandros]

aha... das bedeutet, dass eine Variable immer noch nicht korrekt deklariert wird, aber der Fehler stillschweigend ignoriert wird?
(Besser wäre es dann doch, den Fehler nicht zu vertuschen, sondern die Deklaration richtig zu machen....)