2010-10-28T15:07:16 topeg

So geht es gundsätzlich:

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/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.

1
2
3
4
5

while<> {

print;

}