mirror of
git://projects.qi-hardware.com/ben-wpan.git
synced 2024-11-28 07:12:48 +02:00
19 lines
262 B
Perl
Executable File
19 lines
262 B
Perl
Executable File
#!/usr/bin/perl
|
|
$key = shift @ARGV;
|
|
$skip = 0;
|
|
$skipping = 0;
|
|
while (<>) {
|
|
if (/^#/ && $. != 1) {
|
|
$skip = $_ !~ /$key/;
|
|
print unless $skip;
|
|
next;
|
|
}
|
|
if (/^\s/) {
|
|
print unless $skipping;
|
|
next;
|
|
}
|
|
print unless $skip;
|
|
$skipping = $skip;
|
|
$skip = 0;
|
|
}
|