how to handle "up movement key" in perl

[John]

hi folks,
I have this perl script which reads the user inputs,
"
...
while(<STDIN>) {
    ...
    @inputs = split(" ", $_);
    if (scalar(@inputs) == 1 ) {
        if ($_ =~ /\?/) { &help; }
        elsif (/      /)
{ &print_previous_input }                        ### <==what should I
put between "/  /"
        ...
    }
}
"
where you can see, during the "elsif" line , when user clicks the "up
movement key" on keyboard, I want to print out the input that he
previously entered, but I don't know how what should I put in the
" /   / " area.

Any clues for that. I am using linux machines, with PERL 5.8.8.


Chun



-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/