Re: Re: Re: Input/Output through the Keyboard

Replies are listed 'Best First'.
Re: Re: Re: Re: Input/Output through the Keyboard by pg (Canon) on Nov 13, 2002 at 05:58 UTC
Solution is further simplified after matter, the final solution is in above post.	[reply]
Re: Re: Re: Re: Input/Output through the Keyboard by pg (Canon) on Nov 13, 2002 at 06:15 UTC
I cooked a little bit: `while (<STDIN>) { chomp; if ($_ eq "quit") { exit; } print eval "$_", "\n"; }` [download]	[reply] [d/l]
Re^3 Input/Output through the Keyboard by @rocks (Scribe) on Nov 13, 2002 at 06:24 UTC
Hmm... This is interesting. I was thinking more on the lines of something that had to do with `foreach` except only dealing with the one variable you enter because of course your only enter one line. Something like:? `#!/usr/bin/perl<P> $input=<>; foreach $input++1;` [download] but of course that doesn't work! I need to use `foreach` on arrays not scalars and I think I messed up the foreach thing too. A programmer told me that `eval`is a module? I don't want to use modules. -@rocks	[reply] [d/l] [select]
Re^4: Input/Output through the Keyboard by peschkaj (Pilgrim) on Nov 25, 2002 at 17:28 UTC
eval() is part of the standard distribution of PERL. If you wanted to allow the program to keep running until the user exits you could use something like this: `#!/usr/bin/perl $\| = 1; while( ) { print "Number, plz: "; $input = <>; chomp $input; print "\nOutput is: ", ( ($input2)-1 ), "\n"; }` [download] That seemed to work on my system. If you make something idiot-proof, eventually someone will make a better idiot.* I am that better idiot.	[reply] [d/l]


more useful options
	PerlMonks