use strict;
use warnings;
opendir(DIR, "../userdaten/main") or die $!;
my @members = sort grep { !m/^\.\.?$/ && $_ ne 'todel' } readdir DIR;
closedir(DIR);

#Verzeichnis durchlaufen
foreach my $member (@members) {
   #Daten-Datei öffnen
   open(FILE, "../userdaten/main/$member") or die $!;
   chomp(my @inhalt = <FILE>);
   close(FILE);

   #UserID und Username auslesen
   my ($userid, $username) = @inhalt;

   #Textseiten einlesen

   opendir(DIR, "../userdaten/main") or die $!;
   my @seiten = sort grep { !m/^\.\.?$/ } readdir DIR;
   closedir(DIR);

   foreach my $seite (@seiten) {
      open(FILE, "../userdaten/$userid/seiten/$seite") or die $!;
      chomp(my @content = <FILE>);
      close(FILE);

      s#\userdaten/$username/bilder#userdaten/$userid/bilder#g for @content;

      open(FILE, ">../userdaten/$userid/seiten/$seite") or die $!;
      print FILE $_, "\n" for @content;
      close(FILE);
   }

}