pipe und netcat eingabe/ausgabe (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]15581[/thread]

pipe und netcat eingabe/ausgabe

Leser: 23

Articles: hide open all | hide show old branches

+8 replies

Gast Roufex

2010-10-28 16:15

Hallo,

ich wuerde gern diese befehl in perl mal implementieren und ich bitte um hilfe.

Code: (dl )

cat ./datei1 - | nc meinappserver 8080

datei enthaelt paar configuration befehle

nachdem die datei1 geschickt wurde meine server app antwortet mit "naechst befehl bitte"
ich soll das ueber ausgabe (stdout) sehen und dann sende ich mein befehl1 durch stdin rueber schicken.

das gleiche bis ich alle befehle sende dann schliesse ich mal dieses program.

Danke fuer die hilfe.
Roufex,
Last edited: 2010-10-28 16:49:26 +0200 (CEST)

+7 replies

topeg

2010-10-28 17:07

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

So geht es gundsätzlich:

Code (perl): (dl )

#!/usr/bin/perl;

use strict;
use warnings;
use IO::Socket::INET;

my $file='./datei1';
my $server='meinappserver';
my $port='8080';

open(my $in,'<',$file) or die("ERROR open File $file ($!)\n");
my $out=IO::Socket::INET->new("$server:$port") or die("ERROR open Socket $server:$port\n");

$out->print($_) while(<$in>);

$out->close();
close($in);

Alles weitere liegt bei dir.
Last edited: 2010-10-28 17:08:28 +0200 (CEST)

+6 replies

Gast Roufex

2010-10-28 18:17

2010-10-28T15:07:16 topeg

So geht es gundsätzlich:

Code (perl): (dl )

#!/usr/bin/perl;

use strict;
use warnings;
use IO::Socket::INET;

my $file='./datei1';
my $server='meinappserver';
my $port='8080';

open(my $in,'<',$file) or die("ERROR open File $file ($!)\n");
my $out=IO::Socket::INET->new("$server:$port") or die("ERROR open Socket $server:$port\n");

$out->print($_) while(<$in>);

$out->close();
close($in);

Alles weitere liegt bei dir.

Danke Topeg,

das ist schon mal gut, jetzt wenn ich meine datei rueberschicke die verbindung endet sich.

soll es nicht sein :

Code: (dl )

while<> {

print;

}

Damit sehe ich nach meiner Tastatur Eingabe die Ausgabe von $out;

Danke im Vorraus.

Last edited: 2010-10-28 18:46:24 +0200 (CEST)

+5 replies

roufex

2010-10-28 19:47

User since
2010-10-28
3 Artikel
BenutzerIn

user image

Von was ich in dem forum gelesen habe: das ist vielleicht die route die ich nehmen soll :

Code: (dl )

#!/usr/bin/perl;

use strict;
use warnings;
use IO::Socket::INET;

my $file='./datei1';
my $server='meinappserver';
my $port='8080';

open(my $in,'<',$file) or die("ERROR open File $file ($!)\n");
my $out=IO::Socket::INET->new("$server:$port") or die("ERROR open Socket $server:$port\n");

$out->print($_) while(<$in>);

#Schleife, für die Kommunikation

while(defined(my $msg_out = STDIN->getline)) {

#Nachricht verschicken
print $out $msg_out;  // ist das genauso wie $out->print($_) ?

#Nachrichten empfangen
my $msg_in = <$socket>;

#Nachricht ausgeben
print $msg_in;
}

#Socket schließen
$out->close || warn "Fehler beim schließen des Sockets: $@";

warn "Verbindung beendet..\n";

Danke
Last edited: 2010-10-28 19:53:45 +0200 (CEST)

+4 replies

topeg

2010-10-28 20:54

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

das ist kein C oder Java, wenn du Kommentare schreiben willst musst du "#" benutzen.
zudem ist der Code etwas zusammen gestückelt, manches wird nicht so recht funktionieren.
Hier eine überarbeitete Variante:

Code (perl): (dl )

#!/usr/bin/perl;

use strict;
use warnings;
use IO::Socket::INET;

my $file='./datei1';
my $server='meinappserver';
my $port='8080';

open(my $in,'<',$file) or die("ERROR open File $file ($!)\n");
my $out=IO::Socket::INET->new("$server:$port") or die("ERROR open Socket $server:$port ($@)\n");

# den Inhalt der Datei versenden
$out->print($_) while(<$in>);

# die Datei schließen wenn sie nicht mehr gebraucht wird.
close($in) or die("ERROR Close File $file ($!)\n");

#Schleife, für die Kommunikation
while(defined(my $msg_out = <STDIN>))
{
  #Nachricht verschicken
  print $out $msg_out;  # ist das genauso wie $out->print($_) ?
                        # ja ist es, nur ist hier "$_" "$msg_out"

  #Nachrichten empfangen
  my $msg_in = <$socket>;

  #Nachricht ausgeben
  print $msg_in;
}

#Socket schließen
$out->close || warn "Fehler beim schließen des Sockets: $@";

# STDERR schreiben...
warn "Verbindung beendet..\n";

+3 replies
roufex

2010-10-28 22:16

User since
2010-10-28
3 Artikel
BenutzerIn

Danke Topeg,

Ja ich habe vergessen, Ich hatte ein C program gleichzeitich in meinem bildschirm. Sehr sehr selten editiere ich ein Perl program.

Was Du mir gezeigt hast funktionniert teilweise, ich kann die befehle senden und die antwort nicht komplet aber zeile nach eine andere nur wenn ich Eingabetase drucke.

Danke nochmal
- +2 replies
- topeg
  
  2010-10-29 13:15
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  wenn du mehrzeilige Antworten hast dann kannst du das so machen (sofern alle Zeilen mit einem "\n" abgeschlossen werden):
  Zeile 28:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  # Nachrichten empfangen # alle Nachrichten, die gesendet werden holen. my $msg_in=''; eval{ # wenn alarm ausgelöst wird, # dann "die" und verlasse damit den eval-Block local $SIG{ALRM}=sub{ die(); }; while(1) { alarm(1); # eine Sekunde bis Abbuch... $msg_in.=<$socket>; alarm(0); # alarm abschalten } };
  
  EDIT: Fehlendes "#" ergänzt
  Last edited: 2010-10-29 14:00:52 +0200 (CEST)
  - roufex
    
    2010-10-29 21:04
    
    User since
    2010-10-28
    3 Artikel
    BenutzerIn
    
    Sehr sauber, es hat geklappt..
    
    Vielen Vielen Dank.

View all threads created 2010-10-28 16:15.