Perl-Alternative zu SED Streams Editor

#!/usr/bin/perl

use strict;
use warnings;

my %user;
my $logfile = "log.txt";  
my $increment = 1;
my @logfile;

open(LOGFILE,"<$logfile") || die "$!";  
@logfile = <LOGFILE>;
close(LOGFILE);

chomp(@logfile);

foreach(@logfile) {
    if($_ =~ m/(kb37\d{1,3})/ig) {
        my $cache = $1;
        unless(exists($user{$cache})) {
            $user{$cache} = "user$increment";  
            $increment++;
        }
        $_ =~ s/$cache/$user{$cache}/gi;
    }
}

open(LOGFILE,">$logfile") || die "$!";  
print LOGFILE join("\n", @logfile);  
close(LOGFILE);

exit(0);

#!/usr/bin/perl

use strict;
use warnings;

my %user = ( "kb37133" => "user1",  
             "kb37144" => "user2", );  
           # und immer so weiter ...
           # musste halt so für alle eintragen

# hier liegen die logfiles in dem dir...
my $logdir = "/home/mydir/logs";  
my $increment = 1;
my @logfile;

opendir(LOGDIR,"$logdir") || die "$!";  
foreach(readdir(LOGDIR)) {
     if($_ =~ m/access.log/gi) {
        open(LOGFILE,"<$logdir/$_") || die "$!";  
        @logfile = <LOGFILE>;
        close(LOGFILE);

        chomp(@logfile);

        foreach my $logf (@logfile) {
            if($logf =~ m/(kb37\d{1,3})/ig) {
                my $cache = $1;
                $logf =~ s/$cache/$user{$cache}/gi if exists $user{$cache};
            }
        }

        open(LOGFILE,">$logdir/$_") || die "$!";  
        print LOGFILE join("\n", @logfile);  
        close(LOGFILE);
    }
}
closedir(LOGDIR);
exit(0);