https://opennet.dev/openforum/vsluhforumID9/8381.html Есть скрипт на перле, который берет из базы значение в cp1251, а затем должен сделать<br><br>system("mkdir reports/$string")<br><br>Вот только на FreeBSD и на Linux cp1251 распознается вопросиками(или всякими /399/411) и не создают нормально папки. Я пробовал что-то вида:<br><br>$res_string=`system("iconv -f cp1251 -t utf-8 $string")<br><br>для преобразования кодировок, но это тоже мало помогло. Есть ли какой-нибудь другой способ оперирования кодировками в perl? Либо другой вариант решения?<br>Еще мне понадобится создавать файл с содержимым из базы, так что придется научиться преобразовывать кодировку из Perl.<br> https://opennet.dev/openforum/vsluhforumID9/8381.html#5 Wed, 05 Aug 2009 13:40:04 GMT Судя по всему локаль у тебя юникодная, ну так и выбирай из базы сразу в utf8. Смотри мануал к мускулу на предмет SET NAMES<br> https://opennet.dev/openforum/vsluhforumID9/8381.html#4 Wed, 05 Aug 2009 08:35:06 GMT Ладно, отрезал регуляркой.<br> https://opennet.dev/openforum/vsluhforumID9/8381.html#3 Wed, 05 Aug 2009 08:21:45 GMT Еще такой вариант:<br>use Encode;<br>$content = decode('utf8', $content);<br>в данном случае декодирование $content из utf8 во внутреннее представление, т.е. в cp1251 например, если сам скрипт в cp1251. Есть там и обратная функция encode соответственно.<br>Почитайте доку по модулю Encode.<br> https://opennet.dev/openforum/vsluhforumID9/8381.html#2 Wed, 05 Aug 2009 08:06:50 GMT Спасибо, действительно получилось. Но почему-то при таком:<br><br>[code]my $stu = $dbh-&gt;prepare(qq{SELECT name FROM users WHERE gid='$squid_gid'});<br>$stu-&gt;execute();<br>while (my ($squid_name) = $stu-&gt;fetchrow_array()) {<br> $res_string = system("echo $squid_name &#124; iconv -f cp1251 -t utf8");<br> print " $res_string";<br> }[/code]<br>перед результатом возникает гадкий "0":<br><br>[code]0Просветова Светлана Дмитриевна<br>0Кузнецова Галина Федоровна<br>0Карпышева Елена Юрьевна<br>0Чайка Елена Сергеевна<br>0Маланьина Екатерина Николаевна<br>0Буклова Елена Александровна<br>0Астанина Мария Александровна[/code]<br> https://opennet.dev/openforum/vsluhforumID9/8381.html#1 Wed, 05 Aug 2009 07:23:52 GMT О почему собственно ?<br>&gt;<br>&gt;$res_string=`system("iconv -f cp1251 -t utf-8 $string") <br>&gt;<br><br>Здесь нужно<br><br>$res_string=`system("echo $string&#124;iconv -f cp1251 -t utf-8");<br><br><br>