Mercurial > repos > elixir-it > covacs_varscan2

annotate filter.varscan.pl @ 1:44e9fd8fd25a draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author elixir-it
date Thu, 15 Nov 2018 15:58:21 -0500
parents eaac11a49bd2
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
1 #!/usr/bin/perl -w
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
2 $f=shift;
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
3 $outfile=shift;
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
4 open(OUT,">$outfile");
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
5 open(IN,$f);
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
6 $head=<IN>;
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
7 print OUT $head;
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
8 while(<IN>)
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
9 {
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
10 if ($_=~/^\#/)
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
11 {
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
12 print OUT;
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
13 next;
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
14 }
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
15 $v=(split())[-1];
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
16 @vl=(split(/\:/,$v));
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
17 $vt=$vl[2];
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
18 if ($vt>=10)
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
19 {
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
20 print OUT;
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
21 }
eaac11a49bd2 Uploaded
elixir-it
parents:
diff changeset
22 }