1  #!/opt/perl5.8.6/bin/perl -w
     2
     3  #use strict;
     4  use Time::Local;
     5  use Data::Dumper;
     6
     7  my $dir = "/pfad/";
     8  my $oldname = 0;
     9
    10  my %dif_hash = ();
    11
    12  opendir(DIR, "$dir");
    13  my @files = readdir(DIR);
    14  closedir(DIR);
    15
    16  print "Inhalt von $dir:\n";
    17
    18  foreach my $file (@files) {
    19           #dateiname.20070117.001124.log
    20           my @info = ();
    21           @info = $file =~ m/(.*)\.(\d{4})(\d{2})(\d{2})\.(\d{2})(\d{2})(\d{2})\.log/;
    22
    23          if ( $info[0] ne $oldname )
    24          {
    25                  my %subhash = ();
    26                  @subhash{ qw/name year month day hour minute second/ } = @info;
    27
    28                  $div_hash{ $info[0] } = {
    29                          begin => { %subhash }
    30                  };
    31          }
    32          else
    33          {
    34                  my %subhash = ();
    35                  @subhash{ qw/name year month day hour minute second/ } = @info;
    36
    37                  $div_hash{ $info[0] } = {
    38                          end => { %subhash }
    39                  };
    40          }
    41
    42          $oldname = $1;
    43
    44  }