Warum erhalte ich Warnungen "nicht initialisierter Wert", wenn ich Date :: Manips UnixDate in einem Sortierblock verwende?

Question

Verwandte/möglich Duplikat: Why do I get "uninitialized value" warnings when I use Date::Manip's sortByLength?

Dieser Codeblock:

my @sorted_models = sort { 
    UnixDate($a->{'year'}, "%o") <=> 
    UnixDate($b->{'year'}, "%o") 
} values %{$args{car_models}}; 

Erzeugung hielt die folgenden Fehler Warnung:

 
Use of uninitialized value in length at /.../Date/Manip.pm line 244. 

Date::Manip ist ein CPAN-Modul. Und Linie 244 von Date :: Manip wird im folgenden Code-Block gefunden:

# Get rid of a problem with old versions of perl 
no strict "vars"; 
# This sorts from longest to shortest element 
sub sortByLength { 
    return (length $b <=> length $a); 
} 
use strict "vars"; 

Aber dann einschließlich dieser (Ausdruck der tatsächlichen Unix Date-Wert an die Konsole im Logger) vor dem Code-Block zu sortieren die Werte:

foreach (values %{$args{car_models}}) { 
    $g_logger->info(UnixDate($_->{'year'},"%o")); 
} 

entfernt, um die Fehler Warnungen vollständig. Warum? Und was ist eine gute Lösung, anstatt all diese Protokollierungsanweisungen zu machen?

HINWEIS: Keiner der sortierten Werte ist undefiniert, denn wenn ich sie im Logger ausgedruckt habe, konnte ich sehen, dass jeder von ihnen einen numerischen Wert hatte.

Answer 1

So habe ich die Zeile Code meine Daten zu speichern:

my @sorted_models = sort { $g_logger->info(Dumper{a=>$a,b=>$b}); 
         UnixDate($a->{'year'}, "%o") <=> 
         UnixDate($b->{'year'}, "%o"); } 
         values %{$args{car_models}}; 

konnte ich $ a und $ b ONCE-Dump, dann habe ich die Fehler wie> 50 Mal, gefolgt von einem Dump $ a und $ b für etwa 20 mal (ich habe 10 Elemente in meinem Array)

Answer 2

Etwas stimmt nicht mit Date :: Manip in der Art, wie es spezielle Variablen lokalisiert. Versuchen Sie Date_Init() aufzurufen, bevor Sie sortieren. Es scheint, das Problem zu lösen:

use strict; 
use warnings; 

use Data::Dumper; 
use Date::Manip qw(UnixDate Date_Init); 
my $cars_ref = { 
    mazda => {model => 'mazda', year => '2008' }, 
    toyota => {model => 'toyota', year => '2001' }, 
    mitsu => {model => 'mitsu', year => '2005' } 
}; 

Date_Init(); # Initialize Date::Manip first! 

my @models = 
    sort { 
    UnixDate($a->{year}, '%o') <=> UnixDate($b->{year}, '%o'); 
    } values %$cars_ref; 
print Dumper \@models; 

Ausgang:

$VAR1 = [ 
      { 
      'model' => 'toyota', 
      'year' => '2001' 
      }, 
      { 
      'model' => 'mitsu', 
      'year' => '2005' 
      }, 
      { 
      'model' => 'mazda', 
      'year' => '2008' 
      } 
     ]; 

Answer 3

ich ein letztes Mal versuchen werde dies so klar wie möglich zu beantworten.

Erstens, wenn alle Zeitstempel wie 2008-08-07T22:31:06Z sind, gibt es keine Notwendigkeit, sie durch UnixDate als Standard sort zur Karte cmp verwendet, wird sie richtig sortieren.

 
C:\Temp> cars 
Sorted *without* using UnixDate: 
$VAR1 = [ 
      { 
      'year' => '2008-08-07T21:31:06Z' 
      }, 
      { 
      'year' => '2008-08-07T23:31:06Z' 
      }, 
      { 
      'year' => '2009-08-07T22:31:06Z' 
      } 
     ]; 
Sorted using UnixDate: 
$VAR1 = [ 
      { 
      'year' => '2008-08-07T21:31:06Z' 
      }, 
      { 
      'year' => '2008-08-07T23:31:06Z' 
      }, 
      { 
      'year' => '2009-08-07T22:31:06Z' 
      } 
     ]; 

Keine Warnungen, keine Fehler ... Ergo, alles, was Sie auf dieser Seite gesetzt haben ist:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Data::Dumper; 
use Date::Manip; 

my %args = (
    car_models => { 
     a => { year => '2009-08-07T22:31:06Z' }, 
     b => { year => '2008-08-07T23:31:06Z' }, 
     c => { year => '2008-08-07T21:31:06Z' }, 
    }, 
); 

my @sorted_cmp = sort { 
    $a->{year} cmp $b->{year} 
} values %{ $args{car_models}}; 

print "Sorted *without* using UnixDate:\n"; 
print Dumper \@sorted_cmp; 

my @sorted_dm = sort { 
    UnixDate($a->{year}, '%o') <=> UnixDate($b->{year}, '%o') 
} values %{ $args{car_models}}; 

print "Sorted using UnixDate:\n"; 
print Dumper \@sorted_dm; 

Ausgang (nach TZ in cmd Einstellung Date::Manip zu besänftigen) ein großes Durcheinander von einem roten Hering. Außerdem erklärt das immer noch nicht, woher die 1249998666 in your other question stammt.