Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2017-01-21 16:51 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (185 votes). Check out past polls.