Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl>perl -wMstrict -le
"my $dumbuf = '10';
...
 die 'File contains only zeros' if $dumbuf !~ m/[1-9]/sg;
"
File contains only zeros at -e line 1.