Perl terminal experiments

experimenting with Perl terminal modules on Windows

Author: supkoder

.gitignore

@@ -0,0 +1 @@
+local/*

bin/menu.pl

@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Win32::Console::ANSI;
+use Term::ANSIMenu;
+
+sub exec_item {
+  my $itemnr = shift;
+
+  print "Executing item";
+  print " ($itemnr)" if defined $itemnr;
+  print "...\n";
+  sleep 1;
+}
+
+sub help_item {
+  my $itemnr = shift;
+
+  print "Item help";
+  print " ($itemnr)" if defined $itemnr;
+  print "...\n";
+  sleep 1;
+}
+
+sub standard_help {
+  my $itemnr = shift;
+
+  print "Standard help";
+  print " ($itemnr)" if defined $itemnr;
+  print "...\n";
+  sleep 1;
+}
+
+my $menu = Term::ANSIMenu->new(width  => 40,
+                               help   => [['', \&standard_help],
+                                          ['hint 1', \&help_item],
+                                          ['hint 2', \&standard_help],
+                                          ['hint 3', undef]
+                                         ],
+                               title  => 'Menu testing',
+                               items  => [['1', ' First menu item', \&exec_item],
+                                          ['2', ' This string is just too long to fit in the normal terminal width and thus it will be clipped.'],
+                                          ['3', ' Man', sub { system "type cpanfile" }]
+                                         ],
+                               status => 'Status',
+                               prompt => '>>');
+
+$menu->print_menu();
+while (my $key = $menu->read_key()) {
+  last unless defined $menu->do_key($key);
+  $menu->update_status('') if $key eq 'S';
+  $menu->update_status('New status') if $key eq 's';
+  $menu->update_prompt('') if $key eq 'P';
+  $menu->update_prompt('New prompt: ') if $key eq 'p';
+}
+$menu->pos($menu->line_after_menu() + 1, 1);
+

bin/test.pl

@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use utf8;
+
+#use Win32::Console::ANSI;
+use Curses::UI;
+
+#use Term::ANSIMenu;
+#
+#my $menu = Term::ANSIMenu->new(
+#                             width  => 40,
+#                             help   => [['', \&standard_help],
+#                                        ['hint 1', \&help_item],
+#                                        [ undef, \&standard_help],
+#                                        ['hint 3', undef]
+#                                       ],
+#                             title  => 'title',
+#                             items  => [
+#                                ['1', 'First menu item', \&exec_item],
+#                                ['2', 'This string is just too long to fit in a normal terminal and thus it will be clipped.'],
+#                                ['3', '', sub { system "man man" }]
+#                             ],
+#                             status => 'status',
+#                             prompt => 'prompt: ');
+# 
+#$menu->print_menu();
+#while (my $key = $menu->read_key()) {
+#  last unless defined $menu->do_key($key);
+#  $menu->update_status('') if $key eq 'S';
+#  $menu->update_status('New status') if $key eq 's';
+#  $menu->update_prompt('') if $key eq 'P';
+#  $menu->update_prompt('New prompt: ') if $key eq 'p';
+#}
+#$menu->pos($menu->line_after_menu() + 1, 1);
+
+#----------------------------------------------------------------------------
+#use Term::ANSIColor;
+#print color 'bold blue';
+#print "This text is bold blue.\n";
+#print color 'reset';
+#print "This text is normal.\n";
+#print colored ("Bold yellow on magenta.\n", 'bold yellow on_magenta');
+#print "This text is normal.\n";
+#----------------------------------------------------------------------------
+#use Term::ANSIScreen qw/:color :cursor :screen/;
+#locate 1, 1; print "@ This is (1,1)", savepos;
+#print locate(24,60), "@ This is (24,60)"; loadpos;
+#print down(2), clline, "@ This is (3,16)\n";
+#color 'black on white'; clline;
+#print "This line is black on white.\n";
+#print color 'reset'; print "This text is normal.\n";
+#print colored ("This text is bold blue.\n", 'bold blue');
+#print "This text is normal.\n";
+#print colored ['bold blue'], "This text is bold blue.\n";
+#print "This text is normal.\n";

cpanfile

@@ -0,0 +1,3 @@
+requires 'Win32::Console::ANSI';
+requires 'Term::ANSIScreen';
+requires 'Term::ANSIMenu';

cpanfile.snapshot

@@ -0,0 +1,24 @@
+# carton snapshot format: version 1.0
+DISTRIBUTIONS
+  Win32-Console-ANSI-1.10
+    pathname: J/JL/JLMOREL/Win32-Console-ANSI-1.10.tar.gz
+    provides:
+      Win32::Console::ANSI 1.10
+    requirements:
+      ExtUtils::MakeMaker 0
+      Win32::Pipe 0
+      Win32::Process 0
+  Win32-Pipe-0.025
+    pathname: J/JD/JDB/Win32-Pipe-0.025.tar.gz
+    provides:
+      Win32::Pipe 0.025
+    requirements:
+      ExtUtils::MakeMaker 0
+      perl 5.006
+  Win32-Process-0.16
+    pathname: J/JD/JDB/Win32-Process-0.16.tar.gz
+    provides:
+      Win32::Process 0.16
+    requirements:
+      ExtUtils::MakeMaker 0
+      perl 5.006

install.bat

@@ -0,0 +1,2 @@
+carton install
+pause

menu.bat

@@ -0,0 +1 @@
+perl -Ilocal\lib\perl5 bin\menu.pl

test.bat

@@ -0,0 +1 @@
+perl -Ilocal\lib\perl5 bin\test.pl