Help for this page

Select Code to Download


  1. or download this
    my @odds = (1,3,5,7,9);
    print pop(@odds);
    
  2. or download this
    use strict;
    use warnings;
    ...
    # Useless use of a constant (2) in void context ... line 19.
    # Useless use of a constant (4) in void context ... line 19.
    # Can't use string ("6") as an ARRAY ref while "strict refs" in use ..
    +. line 19.
    
  3. or download this
    $ErrorResponse = $xml->XMLin($objResponse->content, ForceArray => 1);
    @Errors = @{$ErrorResponse->{Errors}};