$_ = <STDIN>;
print eval;
[download]

Solution is further simplified after matter, the final solution is in above post.

I cooked a little bit:

while (<STDIN>) {
    chomp;
    if ($_ eq "quit") {
        exit;
    }
    print eval "$_", "\n";
}
[download]

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  evalis a module? I don't want to use modules.

-@rocks

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: ", ( ($input*2)-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.