
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[216.73.217.4] |
![]() |
|
![]() |
Сообщ.
#1
,
|
|
![]() ![]() use File::MimeInfo::Magic; use IO::Scalar; $str = 'Мама мыла раму'; #$str = 'Mama myla ramy'; $SH = new IO::Scalar \$str; my $mime_type = mimetype($SH); print "$mime_type\n"; На выходе получаю "application/octet-stream" вместо желаемого "text/plain" ![]() ![]() Если добавить use utf8 и сконвертировать файл в utf8, то всё хорошо. Можно ли как-нибудь подружить его с cp1251? |