syntax error in perl modul

[Struppi]

Hey Danke,

bin schon weiter mit dem Script danke eurer Hilfe!

Vielleicht hilft dir diese FAQ noch weiter:
http://www.worldmusic.de/perl/mini-faq.html

BEGIN not safe after errors--compilation aborted at cntfunc.pm line 802.

802 no strict 'refs';

ist das die vollständige Meldung?

sub GetCompressedStat {
  if ( @main::COMP ) { # normale Statistik
    no strict 'refs';
    foreach my $line ( @main::COMP ) {
      chomp($line);
      my ( $tag, $val ) = split(/>/, $line, 2);
      foreach ( split(/|/, $val) ) {
        my ( $t, $v ) = split(/=/, $_);
        if ( $t ne '' ) {
          if ( $tag !~ /^years$/i ) {
            my ( $a, $y, undef) = split(/[>_]/, $tag, 3);
      my $item = $main::{ lc($a) };
            ${ $item }{$y}{$t} = $v;
          } else {
            $main::ycount{$t} = $v;
          }
        }
      }
    }
  }
} # End sub GetCompressedStat

auf die Schnelle is mir nicht ganz klar was hier passiert. Ist auf jeden Fall 'ne heikle Sache, die mit Sicherheit auch anders geht.

Habe am Scriptanfang ein "use strict" drin
ist das vielleicht das Problem

Jein. Du solltest es auf jeden Fall drin lassen, da dich das vor Tippfehler schützt.
Starte das Skript auch mal DOS Fenster (falls du Windows benutzt), dadurch kannst du eventuell Warnungen sehen, die dir weiterhelfen könnten.

Struppi.