Thread Probleme bei Schleifen (19 answers)
Opened by laplace at 2011-10-09 21:22

suresh
 2011-10-09 22:00
#152975 #152975
User since
2010-10-12
109 Artikel
BenutzerIn
[default_avatar]
Vielleicht hilf dir das hier weiter:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

use strict;
use warnings;

open (READFILE, "<textfile.txt") or die $1;
foreach (<READFILE>) {
  if ($_ =~ /\d+/) {
    print "Digit gefunden: $_\n";
  }
  elsif ($_ =~ /\w+/) {
    if ($_ =~ /EndOfFile/) {
      print "Du hast das Fileende erreicht erreicht!Exiting...\n";
      close (READFILE);
      exit 1;
    }
    else {
      print "String  gefunden: $_\n";
    }
  }
}


Edit1 (Tippfehler: bearwords zu barewords korrigiert):
Irgendwo hier im Forum habe ich allerdings gelesen, dass der filehandle mit barewords nicht so toll sein soll.

Edit2 (neue Version nach Threaddiskussion):
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14

use strict;
use warnings;

open (my $readfile,'<',"textfile.txt") or die $!;
while (my $line=<$readfile>) {
 chomp ($line);
 if ($line =~ /^\d+$/) {
   print "Digit gefunden: $line\n";
  }
  elsif ($line =~ /\A\w+\z/) {
      print "String gefunden: $line\n";
  }
}
close ($readfile);


Grüße
Last edited: 2011-10-10 03:20:20 +0200 (CEST)

View full thread Probleme bei Schleifen