mirror of
https://github.com/kastdeur/dotfiles.git
synced 2025-06-18 05:06:38 +02:00
11 lines
239 B
Perl
Executable file
11 lines
239 B
Perl
Executable file
#!/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";
|
|
}
|
|
}
|