Aufgabe

andreas2000

Mitglied
Hallo,

ich habe folgende Perl Aufgabe und habe leider keine Ahnung:

Skizzieren Sie ein Perl Programm, das aus einer Datei, die in jeder Zeile eine Zahl enthält, die Summe aller dieser Zahlen berechnet und ausgibt.

Wäre für Hilfe sehr dankbar.

Gruß,
Andreas.
 
Ich habe keine Ahnung von Perl. In PHP könnte man es so machen. Versuch doch dann mal anhand des Codes die passenden Perl Funktionen zu finden.

PHP:
$Datei_mit_Zahlen = file("datei.txt");

$ergebnis = 0;

for($i=0;$i<count($Datei_mit_Zahlen);$i++)
{
    $ergebnis += $Datei_mit_Zahlen[$i];
}

echo "Die Summe aller Zahlen ist ".$ergebnis;
 
Code:
my $file = "datei.txt";
my $sum = 0;
open(my $fh,"<",$file) or die $!;
while(<$fh>){
  $sum += $_;
}
close $fh
 
Zurück