perl -e 'use Devel::CheckOS qw(os_is); use open os_is("Unix")? ":locale" :
os_is("Windows") ? do { require Win32::Codepage; (":std", ":encoding(".
Win32::Codepage::get_encoding().")" ) }: ();'Что мешает сделать так? 2013/10/28 Ilya Chesnokov <[email protected]> > 28 октября 2013 г., 19:08 пользователь Nikolay Mishin <[email protected]> написал: > >> ну я еще люблю модули, поэтому так >> >> BEGIN { >> use Devel::CheckOS qw(os_is); >> > > Ха-ха ) Порадовал этот модуль. У него в description: > > A learned sage once wrote on IRC: > $^O is stupid and ugly, it wears its pants as a hat > > > -- > Best regards, > Ilya Chesnokov > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > > -- Best regards, Ruslan.
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
