VG
передай аргумент и посмотри возврат, куда проще
Size: a a a
2020 March 10
VO
вроде норм, спасибо\
AP
s#[\001-\037]#printf"\\x%02x",ord$&#gsme
VO
передай аргумент и посмотри возврат, куда проще
а нихера. он @ печатает как \@
2020 March 11
AT
@ же печатный символ
VG
но матерный
VO
моему терминалу норм
AK
Товарищи! Как понять, что файл с сырцами на Perl - это именно они, а не злобная ккшка? :)
VO
никак
AK
А как же диплёрнинг?
ММ
А как же диплёрнинг?
пойдет, ща секу
ММ
А как же диплёрнинг?
ММ
вот пример по детектированию язка, в данном случае не программирования, но можно переделать под детект ЯП
ММ
либа вот
AK
Странно, что даже ohcount не детектит. Вообще наверное у самого Perl есть опция проверки файла на синтаксическую корректность и выхода. Должна быть...
AK
Во, -c...
AP
в первом приближении File::MMagic
VO
ну будет там перл. но при этом -- бред
AK
Очень плохо распознаёт, как и File::LibMagic