SBSPSS/tools/Perl/pl/notused.pl

22 lines
203 B
Perl
Raw Normal View History

2000-08-29 18:26:01 +02:00
while (<>)
{
if (/^\s+.*\s+(\d+)\s+(\d+)\s+(\d+)/)
{
if ($1 eq "0")
{
if ($2 eq "0")
{
if ($3 eq "0")
{
print "$_";
}
}
}
}
else
{
print $_;
}
}