Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
String
Integer
1
  2. or download this
    my $x = <STDIN>;
print "String\n" if ($x =~ /\w/);
...
String
Argument "e\n" isn't numeric in exponentiation (**) at tmp.pl line 13,
+ <STDIN> line 1.
1
  3. or download this
    my $x = <STDIN>;
$x *= 1;
...
String
Integer
4