help
Line | |
---|
1 | #!/usr/bin/perl |
---|
2 | |
---|
3 | #package: UAM Text Tools |
---|
4 | #component: gph |
---|
5 | #version: 1.0 |
---|
6 | #author: Tomasz Obrebski |
---|
7 | |
---|
8 | use strict; |
---|
9 | use Getopt::Long; |
---|
10 | |
---|
11 | my @process; |
---|
12 | my $help=0; |
---|
13 | my $reset; |
---|
14 | my $interactive=1; |
---|
15 | |
---|
16 | GetOptions("process|p=s" => \@process, |
---|
17 | "help|h" => \$help, |
---|
18 | "reset|r=s" => \$reset, |
---|
19 | "interactive|i" => \$interactive); |
---|
20 | |
---|
21 | if($help) |
---|
22 | { |
---|
23 | print <<'END' |
---|
24 | Usage: gph [OPTIONS] |
---|
25 | |
---|
26 | Options: |
---|
27 | -p tag Process segments with this tag as nodes. |
---|
28 | -r tag Start new graph at this tag. |
---|
29 | -f filename Input file (NIE DZIALA). |
---|
30 | -o filename Output file (NIE DZIALA). |
---|
31 | -i Toggle interactive mode (default=on). |
---|
32 | END |
---|
33 | ; |
---|
34 | exit 0; |
---|
35 | } |
---|
36 | |
---|
37 | |
---|
38 | $|=1 if $interactive; |
---|
39 | |
---|
40 | my @prev; |
---|
41 | |
---|
42 | my $n=0; |
---|
43 | |
---|
44 | while(<>) |
---|
45 | { |
---|
46 | chomp; |
---|
47 | my $do=0; |
---|
48 | |
---|
49 | my @line = split /\s+/; |
---|
50 | |
---|
51 | if($line[2] eq $reset) |
---|
52 | { |
---|
53 | $n=0; |
---|
54 | @prev = (); |
---|
55 | } |
---|
56 | |
---|
57 | for my $p (@process) |
---|
58 | { |
---|
59 | $do=1 if $line[2] eq $p; |
---|
60 | } |
---|
61 | |
---|
62 | if($do) |
---|
63 | { |
---|
64 | @preds = (); |
---|
65 | shift @prev while @prev+0 && $prev[0]->[1] + $prev[0]->[2] < $line[0]; |
---|
66 | for my $p (@prev) |
---|
67 | { |
---|
68 | push(@preds, $p->[0]) if $p->[1] + $p->[2] == $line[0]; |
---|
69 | } |
---|
70 | push @prev, [$n, $line[0], $line[1]]; |
---|
71 | |
---|
72 | $gph=' gph:'.$n.':'.join(',',@preds); |
---|
73 | |
---|
74 | $n++; |
---|
75 | } |
---|
76 | else |
---|
77 | { |
---|
78 | for my $p (@prev) |
---|
79 | { |
---|
80 | if($p->[1]+$p->[2] == $line[0]) |
---|
81 | { |
---|
82 | $p->[2] += $line[1]; |
---|
83 | } |
---|
84 | } |
---|
85 | |
---|
86 | $gph=''; |
---|
87 | |
---|
88 | } |
---|
89 | |
---|
90 | print $_.$gph."\n"; |
---|
91 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.