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";
    }
  }
}

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);

#! /usr/bin/perl
use strict;
use warnings;

my $infile = 'test.txt';

open my( $read_handle ), '<', $infile
  or die "open($infile) failed: $!\n";

while( defined( my $line = <$read_handle> ) ) {
  # Umbruch raus, beachte Doku: perldoc -f chomp
  chomp $line;

  # Verschiedene Moeglichkeiten des Testens:  

  # Die Zeile enthaelt nur Ziffern
  if ( $line =~ m/\A\d+\z/ ) {
    print "found digits...\n";
  }
  # Die Zeile enthaelt genau die Zeichenfolge "abcd"
  elsif ( $line eq 'abcd' ) {
    print "found 'abcd'\n";
  }
}
close $read_handle;

#!/usr/bin/perl
use strict;
use warnings;


my $file='test.txt';

open(my $fh,'<',"test.txt") or die("ERROR open $file ($!)");

while(my $line=<$fh>)
{
  chomp($line);
  if ($line eq "abcd"){
    print "es wurde ein STring gefunden\n";
  }
  else{
    print "in der Zeile steht eine Zahl\n";
  }
}

close($fh);

#!/usr/bin/perl
use strict;
use warnings;


my $file='test.txt';

open(my $fh,'<',"test.txt") or die("ERROR open $file ($!)");

while(my $line=<$fh>)
{
  chomp($line);
  # wenn ein Zeichen vorhanden ist das keine Zahl ist
  if ($line =~/\D/){
    print "es wurde ein STring gefunden\n";
  }
  else{
    print "in der Zeile steht eine Zahl\n";
  }
}

close($fh);