Thread Schleife aus Datei (11 answers)
Opened by Goof at 2020-10-23 10:53

GwenDragon
 2020-10-23 13:19
#192558 #192558
User since
2005-01-17
14612 articles
Admin1
[Homepage]
user image
Willkommen, neuer Perl-Nutzer. :-)

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use strict;
use warnings;
use 5.010;                         # Minimum Perl-Version für Feature say 

# Festlegung der Variablen für Quelldatei
my $filename = 'meine-datei.txt';  # Dateiname
my $fh;                            # Dateihandle
my $line;                          # enthält später eine gelesene Zeile der Quelldatei

# Datei im Lesemodus öffnen
open ($fh, '<', $filename) or die "Datei kann nicht geoeffnet werden: '$!'";

# Eine Zeile einlesen
while ( $line = <$fh>) {

   # Zeilenende entfernen
   chomp $line;

   # wieder mit Zeilenumbruch im Terminal ausgeben
   say "Gelesen wurde: ", $line;

} # Schleifenende

close ($fh) or die "Datei kann nicht geschlossen werden: '$!'"


Editiert von GwenDragon: Tippfehler + Anführungszeichen
Last edited: 2020-10-23 18:20:06 +0200 (CEST)

View full thread Schleife aus Datei