Help for this page

Select Code to Download


  1. or download this
    use Term::ReadLine; 

...
    if (!$history) { $term->addhistory($_) if /\S/;
    }
}
  2. or download this
     
myshell> @test = (a,b,c,d)
myshell> print "@test";
myshell> a b c d
  3. or download this
     
myshell> open OUT, '>/tmp/test';
myshell> print OUT "Hello world !"; close OUT