会python真的可以为所欲为0(回)
395天前
这里还有人吗1(回)
580天前这里还有人吗0(回)
580天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
805天前到处都是羊，不想上班0(回)
885天前
鸽子
0(回)
889天前#----------------------------- |
use Term::ReadLine; |
$term = Term::ReadLine->new ( "APP DESCRIPTION" ); |
$OUT = $term->OUT || *STDOUT; |
$term->addhistory ( $fake_line ); |
$line = $term->readline ( PROMPT ); |
print $OUT "Any program output\n"; |
#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl -w |
# vbsh - very bad shell |
use strict; |
use Term::ReadLine; |
use POSIX qw ( :sys_wait_h ); |
my $term = Term::ReadLine->new ( "Simple Shell" ); |
my $OUT = $term->OUT() || *STDOUT; |
my $cmd; |
while ( defined ( $cmd = $term->readline ( '$ ' ) ) ) |
{ |
my @output = `$cmd`; |
my $exit_value = $? >> 8; |
my $signal_num = $? & 127; |
my $dumped_core = $? & 128; |
printf $OUT "Program terminated with status %d from signal %d%s\n", |
$exit_value, $signal_num, |
$dumped_core ? " (core dumped)" : ""; |
print @output; |
$term->addhistory ( $seed_line ); |
} |
#----------------------------- |
$term->addhistory ( $seed_line ); |
#----------------------------- |
$term->remove_history ( $line_number ); |
#----------------------------- |
@history = $term->GetHistory; |
#----------------------------- |
