This repository has been archived on 2023-10-17. You can view files and clone it, but cannot push or open issues or pull requests.
|
#!/usr/bin/perl
|
|
|
|
foreach $fname (@ARGV) {
|
|
$tags = `fgrep \\label $fname`;
|
|
@tagsList = split('\n', $tags);
|
|
foreach $tag (@tagsList) {
|
|
$tag =~ /.*\\label{([^}]*)}/;
|
|
$tagName = $1;
|
|
print "$tagName\t$fname\t/label{$tagName}/\n";
|
|
}
|
|
}
|