afb81b8278
Some checks failed
Docker. / Ubuntu (push) Has been cancelled
User-agent updater. / User-agent (push) Failing after 15s
Lock Threads / lock (push) Failing after 10s
Waiting for answer. / waiting-for-answer (push) Failing after 22s
Close stale issues and PRs / stale (push) Successful in 13s
Needs user action. / needs-user-action (push) Failing after 8s
Can't reproduce. / cant-reproduce (push) Failing after 8s
20 lines
303 B
Perl
Executable File
20 lines
303 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
my $file = "";
|
|
my $first = 1;
|
|
my $emit = 0;
|
|
|
|
while(<>) {
|
|
if ($first) {
|
|
$_ =~ m/^#\s*\d+\s+"(.*)"/;
|
|
$file = $1;
|
|
$first = 0;
|
|
} elsif ($_ =~ m/^#\s*\d+\s+"(.*)"/) {
|
|
$emit = ($1 eq $file);
|
|
} elsif ($emit) {
|
|
print $_;
|
|
}
|
|
}
|