#!/usr/bin/perl
use strict;
use warnings;
use Tie::File;

# verzeichnis in dem gearbeitet werden soll
my $base_dir='./ligen/*.txt';


# alle Dateien im Verzeichnis durchgehen
for my $filename (glob($base_dir))
{
  # Tie bindet Funktionalitäten an eine Variable
  # in diesem Fall wird das lesen/schreiben einer Datei
  # auf das ändern eines Arrays abgebildet
  my @file_array;
  if( tie(@file_array, 'Tie::File', filename) )
  {
    for my $line (@file_array)
    {
      # Inhalt von "$line" ändern
      $line =~ s/(\w+)liga(.+)/<table id="tabelle"><p class="P_liga">$1liga$2<\/p>/g;
      $line =~ s/^(\w.+)/<tr><td class="mannschaft">$1<\/td><td class="tore1">:<\/td><\/tr>/g;
    }
  }
  else
  { warn("ERROR TIE filename ($!)\n"); }
}