Talk:Perl

WTF?

heiko@foobar:~$ perl -wlne'END{print$n}eof&&$n++;/ ([^<]+)/i&&$n--' * Use of uninitialized value in print at -e line 1.

it prints the number of nonempty regular files in the directory. it will fail with the above in an empty directory or a directory with only 0 length files

It prints the number of files that don't contain an Tag. Execution in a folder containing no files will result in this error --80.153.14.141