Другая строчка на перле

> На рабочей системе проверять боюсь, виртуальной под рукой нет.

Что за дешевая отмазка? man chroot.

perl -e '|:-{)'
syntax error at -e line 1, near "|"
Missing right curly or square bracket at -e line 1, at end of line
Execution of -e aborted due to compilation errors.

Что-то не похоже это на perl

Ты где ее взял? Это же моя строчка для презывания ЖоБе в тред через либастрал и стирание случайных сообщений. Каюсь, использовал несколько раз

#!/usr/sbin/astralsh

|:-{)

exit();

> man chroot.

И? Как в нём забайндить рабочие /usr, /dev, /bin и прочие так, чтобы увидеть результат rm -rf /*, но не порушить систему.

Достаточно хоть немного знать перл чтобы понять что эта строчка выполнится с ошибкой.

>> man chroot.

> И? Как в нём забайндить рабочие /usr, /dev, /bin и прочие так, чтобы увидеть результат rm -rf /*, но не порушить систему.

man ln, man mount

Если ты не собирался пускать эту хрень под рутом, конечно.

> Если ты не собирался пускать эту хрень под рутом, конечно.

Конечно, собирался. Иначе какой смысл? :)

> Достаточно хоть немного знать перл чтобы понять что эта строчка выполнится с ошибкой.

Спасибо.

> Конечно, собирался. Иначе какой смысл? :)

Тогда man cp

:D

виртуалка.. не?

$ perl -MO=Deparse -e '|:-{)' syntax error at -e line 1, near "|" Missing right curly or square bracket at -e line 1, at end of line -e had compilation errors. ;

Это больше похоже не однострочник на шелле:

:(){:&:};:

> Это больше похоже не однострочник на шелле

> :(){:&:};:

FIX: :(){:&:;};:

> :(){:|:&};:

fixed

> Тогда man cp

У меня столько места на диске нет (15Г) :(

это смайлик.

>> Тогда man cp
> У меня столько места на диске нет (15Г) :(

Плохо читал man: cp -l

>>> Тогда man cp

>> У меня столько места на диске нет (15Г) :(

> Плохо читал man: cp -l

Это не сработает. Но это и не нужно - базовая система занимает относительно немного.

>Но это и не нужно - базовая система занимает относительно немного.
Ну и тогда man ldd до кучи:)

Это же шелл, к перлу никакого отношения не имеет... Причём невалидная строчка.

>> Но это и не нужно - базовая система занимает относительно немного.

> Ну и тогда man ldd до кучи:)

Это всегда хорошая идея, но нет необходимости - /etc, /bin и /sbin можно копировать полностью :)

>/etc, /bin и /sbin можно копировать полностью :)
Можно простеньким скриптом все что нужно копирнуть и не тащить ничего лишнего.

> Можно простеньким скриптом все что нужно копирнуть и не тащить ничего лишнего.

Ну если подходить к вопросу серьезно, нужно что-то типа debootstrap. Но как-то кажется, что это overkill в данном случае.

> Плохо читал man: cp -l

Спасибо, про него забыл. Только там разные разделы.

> нужно что-то типа debootstrap. Но как-то кажется, что это overkill в данном случае.

В генту это Stage3, но всё так же. С одной стороны -- необходимо, с другой -- перебор и долго. Нет ли чего проще?

> Нет ли чего проще?

Ну если совсем просто и тупо (только учти, что всё надо делать от рута):

D=~/chroot/

mkdir $D

cp -r /etc /bin /sbin /lib $D

cp --parents -r /usr/lib/perl* /usr/bin/perl* $D

tar cf - /dev/* | (cd $D; tar xf -) # мне лень создавать только нужные девайсы

Пускаем ту самую команду:

chroot $D perl -e '|:-{)'

perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
        LANGUAGE = (unset),
        LC_ALL = (unset),
        LANG = "en_US.UTF-8"
    are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
syntax error at -e line 1, near "|"
Execution of -e aborted due to compilation errors.

И, чисто прикола ради:

chroot $D bash -c 'rm -rf /*'

Спасибо.