Komische von Rekursiven Durchsuchalgorithmus - #82456 (Allgemeines zu Perl)

format_c

2004-05-16 22:54

User since
2003-08-04
1706 Artikel
HausmeisterIn

Hi ich hab hier folgenden Suchalgorithmus:

Code: (dl )

    for my $file (@verz) {
        $Config{tl}->update();
        last if $Config{abbr} == 1;
        $text2 = '.' x $i;
        $i = 0 if ++$i > 3;
        if ($file =~ /\.lnk$/) {
            _check($file);
            next;
        }
        if(-d $file) {
            opendir DIR,$file or die "Konnte Verzeichnis $file nicht öffnen: $!";
            push @verz,map { $file . '\\' . $_ } grep !/^\.\.?$/ && (-d $file . '\\' . $_ or /\.lnk$/i), readdir DIR;
            closedir DIR;
        }
    }

Wenn ich ein Verzeichnis z.B. C:\Temp eingebe funktioniert er wunderbar

wenn ich jedoch einfach C:\ eingebe bringt Tk einen Fehler was ich absolut nicht nachvollziehen kann

Code: (dl )

Tk::Error: Tk::Button=HASH(0x29b1404) is not a Tk object at D:/Perl/site/lib/Tk.pm line 91.
 (ConfigSpecs,Configure,[\&Tk::After::_cancelAll,{}],_names_)
 Tk callback for .toplevel1.frame.button
 (command bound to event)

Kann das jemand nachvollziehen?

Gruß Alex\n\n

Effizente Linuxshell