mirror of
https://github.com/MacPaw/universal-detector.git
synced 2025-08-28 18:43:48 +02:00
17 lines
No EOL
282 B
Perl
17 lines
No EOL
282 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
my %charsets;
|
|
|
|
for(@ARGV)
|
|
{
|
|
open FILE,$_ or die;
|
|
$_=do {local $/; <FILE>};
|
|
|
|
# $charsets{$1}=1 while(/SequenceModel.*?=.*?\{[^}"]+"([^"]*)"[^}]+\}/gs);
|
|
$charsets{$1}=1 while(/"([A-Za-z0-9_\-]+)"/g);
|
|
}
|
|
|
|
print join "\n",sort keys %charsets;
|
|
print "\n"; |