From ce8da7c4e7b75c5a4c2950eb5a44715751918d7a Mon Sep 17 00:00:00 2001
From: stderr64 <linuxwizard@voidnet.dy.fi>
Date: Mon, 11 Sep 2023 01:30:07 +0300
Subject: First commit

---
 perlsh.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 perlsh.pl

(limited to 'perlsh.pl')

diff --git a/perlsh.pl b/perlsh.pl
new file mode 100755
index 0000000..db2168d
--- /dev/null
+++ b/perlsh.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+use POSIX;
+use IO::File;
+use Term::ReadLine;
+
+my $term_prompt = Term::ReadLine->new( "perlsh" );
+my $p_line = "";
+
+while ( true ){
+    $p_line = $term_prompt->readline( "\e[95mperlsh>\e[0m " );
+    if ( $p_line eq "quit" or $p_line eq "q" ){
+        undef $p_line;
+        exit( 0 );
+    }
+    if ( defined($p_line) and length($p_line) > 0 ){
+        eval( $p_line );
+        $p_line = "";
+    }
+}
-- 
cgit v1.2.3-86-g962b