Fehlerfreie Übertragung einer Datei (gelöst) - #182251 (Netzwerkprogrammierung und Netzwerke mit Perl)

GwenDragon

2015-09-19 14:50

User since
2005-01-17
14532 Artikel
Admin1

Code (perl): (dl )

my @data;

open(DATEI, "test.txt");
while(<DATEI>)
{
@data = <DATEI>;
}

geht kürzer:

Code (perl): (dl )

my @data;

open(DATEI, "test.txt");
@data = <DATEI>;

Code (perl): (dl )

my $n = 0;
my $i = 0;
my $Anzahl_Elemente = @data;
while($Anzahl_Elemente = $n)
{
$socket->send(@data[$n]);
$n = $i + 1;
$n = $i;
}

Aber was sollen denn die Zählvariablen $n und $i genau machen?

die Drachin, Gwendolyn