#!/usr/bin/perl
use strict;
use warnings;
my $active=10;

while (1)
{
        
  if ($active)
  {
    print "Active\n";
    $active--;
  }
  else
  {
    print "Inactive\n";
    last();
  }
}

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

my $file='./test.txt';

open (my $in, '+<', $file) or die("ERROR OPEN $file ($!)\n");
while(<$in>)
{
  if(/TESTWORT1/ .. /---/)
  {
    print "TESTWORT1 found\n";
    seek($in, 0,0);
    truncate($in,0);
  }
  else
  {
    print "TESTWORT1 not found\n";
  }
}
close($in);
print "EXIT\n";

TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 not found
TESTWORT1 found
EXIT

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

my $file='./test.txt';
open (my $fh, '+<', $file) or die("ERROR OPEN $file ($!)\n");
while(<$fh>)
{
  if(/TESTWORT1/ .. /---/)
  {
    print "TESTWORT1 found\n";

    # Aktuelle Dateigröße minus der Länge der Zeile
    my $size = (-s $fh) - length($_);
    # aktuelle Positon minus der Länge der Zeile
    my $pos=tell($fh) - length($_);

    # keine Zeilentrenner
    local $/=undef;
    # Alle daten auf einmal einlesen
    my $data=<$fh>;

    # zur Gespeicherten position springen
    seek($fh,$pos,0);

    # Daten schreiben, damit ist die aktuelle Zeile Gelöscht
    print $fh $data;

    # zum Anfang der datei springen
    seek($fh, 0,0);

    # Dateigröße anpasen
    truncate($fh,$size);
  }
}
close($fh);
print "EXIT\n";