Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

String über Socket senden und empfangen geht nicht

Frage Entwicklung Perl

Mitglied: WINFO2105

WINFO2105 (Level 1) - Jetzt verbinden

29.04.2010, aktualisiert 22:59 Uhr, 3532 Aufrufe

Hi,
und zwar hab ich mir 2 Scripte geschrieben das eine liegt auf den Server und das andere auf meinem Laptop. Ich möchte das ich über das Laptopscript mit infos über meinen Server ausgeben lassen kann. Bis jetzt ist nur "status" implementier, dieses soll mir nur sagen das script läuft.Aber irgendwie haut das mit dem send() und recv() eines strings nicht hin.
Vllt hat jemand von euch ne idee.
Das Serverseitige Script:
#!/usr/bin/perl -w

use strict;
use IO::Socket;

my $server_port = "11111";

my $server = IO::Socket::INET->new (LocalPort => $server_port,
Type => SOCK_STREAM,
Reuse => 1,
Listen => SOMAXCONN)
or die "Keine Verbindung an Port: $server_port möglich: $@\n";



while (defined(my $client = $server -> accept)){

my $status = "Script is online!";



my $empfang;
$server ->recv($empfang, 10000) or die "Konnte nicht empfangen: $!\n";

my $befehl = $empfang;

if($befehl eq 'status'){
$server ->send($status) or die "Konnte nicht senden: $!\n";
}
}
__________________
Und hier das Clientseitige Script:
#!/usr/bin/perl -w

use strict;
use IO::Socket;

my $inet_port = "11111";
my $inet_addr = "localhost";

my $client = IO::Socket::INET->new (PeerAddr => $inet_addr,
PeerPort => $inet_port,
Type => SOCK_STREAM)
or die "Keine Verbindung zu $inet_addr:$inet_port möglich: $!\n";



print ">";
my $eingabe = <>;
my $empfang;
chomp $eingabe;

if($eingabe eq 'status'){
$client -> send($eingabe) or die "Konnte nicht senden: $!\n";
$client -> recv($empfang, 10000) or die "Konnte nicht empfangen: $!\n";
print "$empfang";
}
else{
print "falsche eingabe";
}


Fürhilfe wär ich dankbar....

Gruß Winfo
Ähnliche Inhalte
Neue Wissensbeiträge
Heiß diskutierte Inhalte
Festplatten, SSD, Raid
PC stellt nach dem Bios ab (18)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

iOS
16 iPads zentrall verwalten (18)

Frage von simonlohr zum Thema iOS ...

Viren und Trojaner
Ransomware .nm4 (15)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...