Help for this page

Select Code to Download


  1. or download this
    @bar = qw( one small step for man );
$foo = \@bar;
$foo->[1] = "big";
print "@bar";  # one big step for man
  2. or download this
    @bar = qw( one small step for man );
$foo = \@bar;
$foo = [qw( one big step for man )];
print "@bar";  # one small step for man
  3. or download this
    sub tie_session {
  my ($hash) = @_; 
...
  return $@ if $@;
  return $hash;  # not actually necessary, but it returns true
}
  4. or download this
    sub function {
  my ($hash) = @_;
  MyModule::tie_session($hash);
  $hash->{auth}->{user} = "jacques";
}