Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...

if ("h@" =~ /(\@)/ ) { print $1 }
if ("h@t" =~ /(\@)/ ) { print $1 }
  2. or download this
    Possible unintended interpolation of @t in string at ./scratch.pl line
+ 6.
Global symbol "@t" requires explicit package name at ./scratch.pl line
+ 6.
Execution of ./scratch.pl aborted due to compilation errors.
  3. or download this
    #!/usr/bin/perl
use strict;
...

if ('h@' =~ /(\@)/ ) { print $1 }
if ('h@t' =~ /(\@)/ ) { print $1 }