Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 12 lines (10 sloc) 239 Bytes
#!/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";
}
}