Help for this page

Select Code to Download

Select or download this
our $var;
Select or download this
use vars qw( $var );
Select or download this
use warnings;
Select or download this
#!perl -w
Select or download this
$func_ref[3]($var);
Select or download this
$func_ref[3]->($var);
Select or download this
$param_ref = \@_;
Select or download this
$param_ref = [ @_ ];
Select or download this
$_++ for values %hash;
Select or download this
$hash{$_}++ for keys %hash;
Select or download this
$_++ for @hash{keys %hash};
Select or download this
use bytes;

Select or download this

$INC{ 'bytes.pm' }++ 
  if $] < 5.006;
use bytes;

Select or download this

open my $fh, "<$filename" 
  or die "Cannot read $filename: $!";

Select or download this

my $fh = do { local *FH; *FH };
open $fh, "<$filename" 
  or die "Cannot read $filename: $!";

Select or download this
$object->$method;
Select or download this
$object->$method();