[Vienna-pm] strange perl...

[email]

hi,

bloss so weil ich gerade 15 minuten damit verbracht habe herauszufinden
warum

while (<DATA>)
{
        next if /^\s*#/;
        chomp;
        s/^\s*|\s*$/g;
        s,^/,,;
        my ($dir, $file) = split (/\//);
        push @{$excl{$dir}}, $file;
}

nicht das macht was ich eigentlich wollte...

inzwischen weiss ich wo der brain error lag, aber vielleicht
interessiert's ja den einen oder anderen, einfach so als raetsel. wer
sich mit obfu beschaeftigt, der hat allerdings sowas sicher schon das
eine oder andere mail verwendet. ;-)

lg
karlheinz