lang.pl 119 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl

use Lingua::Identify qw(:language_identification);

$text = <STDIN>;

$a = langof($text);

print $a;