blob: 76173b828eae918ab6e34d6c2744dd70081a1e80 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/perl
my $file;
while ($file = shift @ARGV) {
# print "Processing file $file...\n";
open(IN, "$file") || die "Unable to open file $file";
$state = "";
$line=0;
while(<IN>) {
$line++;
chomp;
if($state eq "") {
if(/xmlSecError\((.*)/) {
$state = "$file,$line," . $1;
}
} else {
if(/(.*);/) {
$_ = $state . $1;
$state = "";
while(/\t/) {
s/\t//;
}
while(/\, /) {
s/\, /\,/;
}
while(/\,/) {
s/\,/\;/;
}
print "$_\n";
} else {
$state = $state . $_;
}
}
}
close IN;
}
|