File: lskeys.pl

package info (click to toggle)
feh 3.11.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,540 kB
  • sloc: ansic: 13,134; perl: 968; makefile: 221; sh: 37
file content (20 lines) | stat: -rwxr-xr-x 319 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

use autodie;

my @keys;

open(my $fh, '<', 'src/keyevents.c');
while (my $line = <$fh>) {
	chomp($line);
	if ($line =~ qr{
			if \s \( \! strcmp \( action , \s " (?<key> [^"]+ ) " \)\) }x) {
		push(@keys, $+{key});
	}
}
close($fh);

say join("\n", sort @keys);