Help for this page

Select Code to Download


  1. or download this
    @diary_entry = keys %{$diary_data[0]};
    for $temp (@diary_entry) {
        print "$temp\n";
    }
    
  2. or download this
    $ ./send_referral.pl 0000079100
    Diary ID: 536870914
    timestamp
    value
    user
    
  3. or download this
    print "$temp: $diary_data[0]{$temp}\n";
    
  4. or download this
    $ ./send_referral.pl 0000079100
    Diary ID: 536870914
    ...
    Argument "NWORLASTE800 LOGIN FAILED\nNWORLASTE801 LOGIN FAIL\n\nWA..."
    + isn't numeric in helem at ./send_referral.pl line 201.
    Bad index while coercing array into hash at ./send_referral.pl line 20
    +1.
    $
    
  5. or download this
    @diary_entry = values %{$diary_data[0]};
    print "@diary_entry\n";
    
  6. or download this
     # Another try:
        my %hash = %{$diary_data[0]};
    ...
        for $temp (@diary_entry) {
            print "$temp\n";
        }