Re^3: Hi Monks could you pls help Perl dummy user

[Anonymous Monk]

No no, it has to have five defined , like this

while ( defined defined defined defined defined( my $file = readdir $d
+h ) ) {

[Anonymous Monk]

Mmmm, I thought only readline is special-cased. Who can remember all this ****.

[Anonymous Monk]

Mmmm, I thought only readline is special-cased. Who can remember all this ****.

:/

$ perl -MO=Deparse -le " while( my $f = readdir $DIR ){ print $f; } "
BEGIN { $/ = "\n"; $\ = "\n"; }
while (defined(my $f = readdir $DIR)) {
    do {
        print $f
    };
}
-e syntax OK

[Anonymous Monk]

I know how to use Deparse, ty. I'd rather just put defined in there without caring whether Perl is clever enough to DWIM.