Mercurial > repos > matteoc > agame_custom_tools
comparison filter_Fb/filter.fb.pl @ 0:68a3648c7d91 draft default tip
Uploaded
author | matteoc |
---|---|
date | Thu, 22 Dec 2016 04:45:31 -0500 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:68a3648c7d91 |
---|---|
1 #!/usr/bin/perl -w | |
2 # | |
3 $f=shift; | |
4 $out=shift; | |
5 open(IN,$f); | |
6 open(OUT,">$out"); | |
7 while(<IN>) | |
8 { | |
9 if ($_=~/^#/) | |
10 { | |
11 print OUT; | |
12 next; | |
13 }else{ | |
14 $vl=(split())[5]; | |
15 $gt=(split())[-1]; | |
16 $gt=(split(/\:/,$gt))[0]; | |
17 next unless $gt eq "1/1"; | |
18 print OUT if $vl>20; | |
19 } | |
20 } | |
21 close(OUT); | |
22 |