https://slinkov.ru/openforum/vsluhforumID9/7258.html Хочу запустить perl скрипт (веб сервер) в chroot окружении.<br>Скопировал bash, perl, его модули и всё нужное для работаы в каталог /home/bunny. Но приложение отказывается работать правильно. Вот мои действия<br><br>$ sudo chroot /home/bunny<br>bash-3.2# ls<br>bin dev etc lib root usr<br>bash-3.2# cd root<br>bash-3.2# ls<br>index.html server.pl server.pl~<br>bash-3.2# cat server.pl<br>#!/usr/bin/perl<br>use IO::Socket::INET;<br><br>my $port = 8888;<br>my $ident = 'server';<br><br>my $serv = IO::Socket::INET-&gt;new(<br> Proto =&gt; 'tcp',<br> LocalPort =&gt; $port,<br> Listen =&gt; SOMAXCONN,<br> Reuse =&gt; 1,<br>) or die "Can't start server: $!";<br><br>print "[Server $0 accepting clients at http://localhot:$port/]\n";<br><br>sub sendfile {<br> my $client = shift;<br> my $file = shift;<br> open(FILE, $file);<br> while (&lt;FILE&gt;) { print $client $_ };<br> close FILE;<br>}<br><br>while (my $client = $serv-&gt;accept()) {<br> $client-&gt;autoflush(1);<br> <br> my $request = &lt;$client&gt;;<br> if ($request =~ m&#124;^GET /(.*) HTTP/1.[01]&#124;) {<br> if ($1 eq 'index.html' or $ https://slinkov.ru/openforum/vsluhforumID9/7258.html#3 Tue, 18 Mar 2008 00:51:19 GMT Ну посмотри исходный код perl и всех используемых им либ, может узнаешь. Если неохота смотреть, то на всякий случай напоминаю что ряд встроенных функций работает с локалью<br> https://slinkov.ru/openforum/vsluhforumID9/7258.html#2 Mon, 17 Mar 2008 15:48:12 GMT &gt;Запустите обоими способами и сравните вывод <br>&gt;strace perl server.pl 2&gt;&1 &#124; perl -ne '/open\("(.+)"/;print $1,"\n"' &#124; sort &#124;uniq &#124; xargs ls <br>&gt;Могет быть поможет <br><br>Это результат при запуске с chroot():<br><br>$ strace perl server.pl 2&gt;&1 &#124; perl -ne '/open\("(.+)"/;print $1,"\n"' &#124; sort &#124;uniq &#124; xargs ls<br>ls: /usr/lib/locale/locale-archive: No such file or directory<br>ls: /usr/lib/locale/ru_UA.UTF-8/LC_ADDRESS: No such file or directory<br>ls: /usr/lib/locale/ru_UA.UTF-8/LC_COLLATE: No such file or directory<br>ls: /usr/lib/locale/ru_UA.UTF-8/LC_CTYPE: No such file or directory<br>ls: /usr/lib/locale/ru_UA.UTF-8/LC_IDENTIFICATION: No such file or directory<br>ls: /usr/lib/locale/ru_UA.UTF-8/LC_MEASUREMENT: No such file or directory<br>ls: /usr/lib/locale/ru_UA.UTF-8/LC_MESSAGES: No such file or directory<br>ls: /usr/lib/locale/ru_UA.UTF-8/LC_MONETARY: No such file or directory<br>ls: /usr/lib/locale/ru_UA.UTF-8/LC_NAME: No such file or directory<br>ls: /usr/lib/locale/ru_UA.UTF-8/LC_NUMERIC https://slinkov.ru/openforum/vsluhforumID9/7258.html#1 Sun, 16 Mar 2008 20:01:59 GMT Запустите обоими способами и сравните вывод<br>strace perl server.pl 2&gt;&1 &#124; perl -ne '/open\("(.+)"/;print $1,"\n"' &#124; sort &#124;uniq &#124; xargs ls <br>Могет быть поможет<br>