From 060e8ee05ad8f746baaf40b953483a397cfce9cb Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Fri, 7 Jul 2023 10:42:07 +0300
Subject: [PATCH] Perl REPL
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Ð ÐµÑÐ¸Ð» Ð¿Ð¾ÑÑÐ°ÑÐ°ÑÑÑÑ Ð¿ÐµÑÐµÐµÐ·Ð¶Ð°ÑÑ Ð½Ð° Perl Ð² ÐºÐ°ÑÐµÑÑÐ²Ðµ Ð¸Ð½ÑÐµÑÐ°ÐºÑÐ¸Ð²Ð½Ð¾Ð³Ð¾
Ð¸Ð½ÑÐµÑÐ¿ÑÐµÑÐ°ÑÐ¾ÑÐ° Ð²Ð¼ÐµÑÑÐ¾ Python. ÐÐ´Ð¸Ð½ ÐºÐ°Ð»ÑÐºÑÐ»ÑÑÐ¾Ñ
(d65882c3c5decb9e2216d7a8de98c1d422c2c42d) Ð²ÑÑ ÑÐ°Ð²Ð½Ð¾ Ð¼Ð½Ðµ Ð½Ðµ Ð·Ð°Ð¼ÐµÐ½ÑÐ»
Ð²ÑÐµÐ¼Ñ Ð¾Ñ Ð²ÑÐµÐ¼ÐµÐ½Ð¸ Ð·Ð°Ð¿ÑÑÐºÐ°ÐµÐ¼ÑÐ¹ python, Ð³Ð´Ðµ Ð¸ ÑÑÐ¾-ÑÐ¾ Ð²/Ð¸Ð· hex Ð½Ð°Ð´Ð¾ Ð¿ÐµÑÐµÐ²ÐµÑÑÐ¸,
UTF-8 (Ð´Ðµ)ÐºÐ¾Ð´Ð¸ÑÐ¾Ð²Ð°ÑÑ, ÑÐ°ÑÑÐ¸ ÑÑÑÐ¾ÑÐµÐº ÐºÐ°Ðº-ÑÐ¾ Ð¿Ð¾ÑÐ°ÑÐ¾Ð²Ð°ÑÑ, Ð¸ Ñ.Ð´., Ð¸ Ñ.Ð´..
Ð Ð¿Ð¾ÑÐµÐ¼Ñ Ñ ÑÑÐ¾ Ð´ÐµÐ»Ð°Ñ Ð² ÑÑÐ¾Ð»Ñ Ð¼Ð½Ðµ Ð½ÐµÐ½Ð°Ð²Ð¸ÑÑÐ½Ð¾Ð¼ Python? ÐÐµÐ¿Ð¾ÑÑÐ´Ð¾Ðº. Ð£Ð¶ ÑÑÐ¾
ÑÑÐ¾, Ð½Ð¾ Ð´Ð»Ñ ÑÑÑÐ¾ÑÐµÐº Perl Ð¸Ð´ÐµÐ°Ð»ÑÐ½Ð¾ Ð´Ð¾Ð»Ð¶ÐµÐ½ Ð¿Ð¾Ð´ÑÐ¾Ð´Ð¸ÑÑ.

ÐÐ»Ñ ÑÐ´Ð¾Ð±Ð½Ð¾Ð³Ð¾ Ð¸Ð½ÑÐµÑÐ°ÐºÑÐ¸Ð²Ð½Ð¾Ð³Ð¾ REPL-Ð° Ð¼Ð½Ð¾Ð³Ð¸Ðµ Ð¿ÑÐµÐ´Ð»Ð°Ð³Ð°ÑÑ Ð·Ð°Ð¿ÑÑÐºÐ°ÑÑ Ñ -de1
(debug Ð¸ Ð²ÑÐ¿Ð¾Ð»Ð½ÐµÐ½Ð¸Ðµ Ð¿ÑÐ¾Ð³ÑÐ°Ð¼Ð¼Ñ "1"). Ð Ð½ÑÐ¼ ÐµÑÑÑ "x" ÐºÐ¾Ð¼Ð°Ð½Ð´Ð° Ð´Ð»Ñ Ð¿Ð¾ÐºÐ°Ð·Ð°
Ð²ÑÑÐºÐ¸Ñ ÑÐ»Ð¾Ð¶Ð½ÑÑ ÑÑÑÑÐºÑÑÑ. ÐÐ¾ Ð½Ð°Ð´Ð¾ Ð´ÐµÐ»Ð°ÑÑ "p" ÑÑÐ¾Ð±Ñ Ð²ÑÐ²ÐµÑÑÐ¸ Ð·Ð½Ð°ÑÐµÐ½Ð¸Ðµ
Ð¿ÐµÑÐµÐ¼ÐµÐ½Ð½Ð¾Ð¹. Ð ÑÐ¾ÑÐµÑÑÑ, ÐºÐ°Ðº Ð² Python, ÑÑÐ¾Ð±Ñ Ð¿Ð¾ÑÐ»ÐµÐ´Ð½ÐµÐµ Ð·Ð½Ð°ÑÐµÐ½Ð¸Ðµ Ð²ÑÐ²Ð¾Ð´Ð¸Ð»Ð¾ÑÑ.

ÐÐ°ÑÑÐ» ÑÐµÑÐµÐ¿Ñ Ñ "say eval"-Ð¾Ð¼. ÐÐ±ÐµÑÐ½ÑÐ» Ð² rlwrap, Ð°Ð²ÑÐ¾Ð¼Ð°ÑÐ¸ÑÐµÑÐºÐ¸ Ð¸Ð¼Ð¿Ð¾ÑÑÐ¸ÑÑÑ
Encode Ð¸ Data::Dumper Ñ Ð´Ð¾Ð±Ð°Ð²Ð»ÐµÐ½Ð¸ÐµÐ¼ Ð°Ð»Ð¸Ð°ÑÐ° "x":

    rlwrap --substitute-prompt "> " \
    perl -MEncode -MData::Dumper \
        -e '*x = \&Dumper; $_dummy = $x;' \
        -e '$Data::Dumper::Useqq = 1;' \
        -wnE 'say eval()//$@'
-- 
2.50.0