Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Pressing Delete key ends Term::ReadLine loop

by cord-bin (Friar)
on May 20, 2014 at 17:30 UTC ( #1086832=note: print w/ replies, xml ) Need Help??

in reply to Pressing Delete key ends Term::ReadLine loop

I always use Term::ReadLine in conjunction with Term::Readline::Perl and Term::ReadLine::Gnu, the first one creates an interface for the others and is recommend to install all of them. Here’s a nice shell you can have with Term::ReadLine
use Term::ReadLine; my $shell = Term::ReadLine->new('myshell'); $_ = $shell->Features(); my $history = ${%$_}{autohistory}; $SIG{INT} = 'IGNORE'; while(1) { my $return; $command = $shell->readline('myshell> '); { local $SIG{INT} = sub {die 'End';}; $return = eval($command); } if (!$history) { $term->addhistory($_) if /\S/; } }
You could play with :
myshell> @test = (a,b,c,d) myshell> print "@test"; myshell> a b c d
myshell> open OUT, '>/tmp/test'; myshell> print OUT "Hello world !"; close OUT

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1086832]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2016-07-31 08:30 GMT
Find Nodes?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?

    Results (269 votes). Check out past polls.