|
@@ -12,8 +12,7 @@ filter_exprs() {
|
12
|
12
|
| perl -ne '
|
13
|
13
|
next unless m/\b([a-zA-Z]\w*\s*=\s*\w+)\b/;
|
14
|
14
|
print "$1\n";
|
15
|
|
- ' \
|
16
|
|
- | debug_pipe ex_lookalikes
|
|
15
|
+ '
|
17
|
16
|
}
|
18
|
17
|
|
19
|
18
|
|
|
@@ -25,8 +24,7 @@ filter_ids() {
|
25
|
24
|
| perl -ne '
|
26
|
25
|
next unless m/\b([a-zA-Z]\w*#\w+)\b/;
|
27
|
26
|
print "$1\n";
|
28
|
|
- ' \
|
29
|
|
- | debug_pipe id_lookalikes
|
|
27
|
+ '
|
30
|
28
|
}
|
31
|
29
|
|
32
|
30
|
|
|
@@ -35,8 +33,7 @@ filter_tags() {
|
35
|
33
|
# Hack "tags" like bug123 out of the text
|
36
|
34
|
#
|
37
|
35
|
tr ' ' '\n' \
|
38
|
|
- | grep -E '^[a-zA-Z]+[0-9]+$' \
|
39
|
|
- | debug_pipe tag_lookalikes
|
|
36
|
+ | grep -E '^[a-zA-Z]+[0-9]+$'
|
40
|
37
|
}
|
41
|
38
|
|
42
|
39
|
|
|
@@ -44,8 +41,7 @@ filter_kws() {
|
44
|
41
|
#
|
45
|
42
|
# Hack out lines that look like kw expressions
|
46
|
43
|
#
|
47
|
|
- grep -Ee '^[a-zA-Z]\w*\s+[^=]' -e '^[a-zA-Z]\w*$' \
|
48
|
|
- | debug_pipe kw_lookalikes
|
|
44
|
+ grep -Ee '^[a-zA-Z]\w*\s+[^=]' -e '^[a-zA-Z]\w*$'
|
49
|
45
|
}
|
50
|
46
|
|
51
|
47
|
|
|
@@ -57,8 +53,7 @@ filter_uris() {
|
57
|
53
|
| perl -ne '
|
58
|
54
|
next unless m|(\bhttps?://[[:alnum:]_:/.?#&+,%@=;~-]+)\b|;
|
59
|
55
|
print "$1\n";
|
60
|
|
- ' \
|
61
|
|
- | debug_pipe uri_lookalikes
|
|
56
|
+ '
|
62
|
57
|
}
|
63
|
58
|
|
64
|
59
|
|