22 lines
203 B
Perl
22 lines
203 B
Perl
|
while (<>)
|
||
|
{
|
||
|
if (/^\s+.*\s+(\d+)\s+(\d+)\s+(\d+)/)
|
||
|
{
|
||
|
if ($1 eq "0")
|
||
|
{
|
||
|
if ($2 eq "0")
|
||
|
{
|
||
|
if ($3 eq "0")
|
||
|
{
|
||
|
print "$_";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
}
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
print $_;
|
||
|
|
||
|
}
|
||
|
}
|