blob: e44c27dcf3a604ce0ebc533be25e2f872fd8faa0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl
open (INF, $ARGV[0]);
`addvs -c ./`;
while (<INF>) {
$line = $_;
$line =~ s/[\r\n]//g;
$line =~ /(.+\d+:\d+:?) +(.*)/;
$ref = $1;
$ver = $2;
open (BUF, ">buffer");
print BUF "$ver";
close (BUF);
$x = `addvs -a ./ \"$ref\" buffer`;
print "$ref\n";
}
close (INF);
|