Perl-oder Python-Skript: Konvertiert Datum von dd/mm/yyyy auf yyyy-mm-dd

Wenn haben Sie garantiert wohlgeformte Daten, die aus nichts anderem als singleton-Datum in der DD-MM-YYYY format, dann funktioniert das:

# FIRST METHOD
my $ndate = join("-" => reverse split(m[/], $date));

Dass die arbeiten an einem $date holding "07/04/1776", versäumt es aber, auf "das 17/01/2010 und 01/17/2010 es". Verwenden Sie stattdessen:

# SECOND METHOD
($ndate = $date) =~ s{
    \b
      ( \d \d   )
    / ( \d \d   )
    / ( \d {4}  )
    \b
}{$3-$2-$1}gx;

Wenn Sie lieber eine "grammatische" regex, so dass es leichter zu pflegen und zu aktualisieren, Sie können stattdessen diese:

# THIRD METHOD
($ndate = $date) =~ s{
    (?&break)

              (?<DAY>    (?&day)    )
    (?&slash) (?<MONTH>  (?&month)  )
    (?&slash) (?<YEAR>   (?&year)   )

    (?&break)

    (?(DEFINE)
        (?<break> \b     )
        (?<slash> /      )
        (?<year>  \d {4} )
        (?<month> \d {2} )
        (?<day>   \d {2} )
    )
}{
    join "-" => @+{qw<YEAR MONTH DAY>}
}gxe;

Schließlich, wenn Sie Unicode-Daten, möchten Sie vielleicht, um ein bisschen mehr aufpassen.

# FOURTH METHOD
($ndate = $date) =~ s{
    (?&break_before)
              (?<DAY>    (?&day)    )
    (?&slash) (?<MONTH>  (?&month)  )
    (?&slash) (?<YEAR>   (?&year)   )
    (?&break_after)

    (?(DEFINE)
        (?<slash>     /                  )
        (?<start>     \A                 )
        (?<finish>    \z                 )

        # don't really want to use \D or [^0-9] here:
        (?<break_before>
           (?<= [\pC\pP\pS\p{Space}] )
         | (?<= \A                )
        )
        (?<break_after>
            (?= [\pC\pP\pS\p{Space}]
              | \z
            )
        )
        (?<digit> \d            )
        (?<year>  (?&digit) {4} )
        (?<month> (?&digit) {2} )
        (?<day>   (?&digit) {2} )
    )
}{
    join "-" => @+{qw<YEAR MONTH DAY>}
}gxe;

Können Sie sehen, wie jede dieser vier Ansätze führt bei der Konfrontation mit dem Beispiel für die Eingabe von Zeichenfolgen wie diese:

my $sample  = q(17/01/2010);
my @strings =  (
    $sample,  # trivial case

    # multiple case
    "this $sample and that $sample there",

    # multiple case with non-ASCII BMP code points
    # U+201C and U+201D are LEFT and RIGHT DOUBLE QUOTATION MARK
    "from \x{201c}$sample\x{201d} through\xA0$sample",

    # multiple case with non-ASCII code points
    #   from both the BMP and the SMP 
    # code point U+02013 is EN DASH, props \pP \p{Pd}
    # code point U+10179 is GREEK YEAR SIGN, props \pS \p{So}
    # code point U+110BD is KAITHI NUMBER SIGN, props \pC \p{Cf}
    "\x{10179}$sample\x{2013}\x{110BD}$sample",
);

Nun lassen $date eine foreach iterator durch das array, erhalten wir diese Ausgabe:

Original is:   17/01/2010
First method:  2010-01-17
Second method: 2010-01-17
Third method:  2010-01-17
Fourth method: 2010-01-17

Original is:   this 17/01/2010 and that 17/01/2010 there
First method:  2010 there-01-2010 and that 17-01-this 17
Second method: this 2010-01-17 and that 2010-01-17 there
Third method:  this 2010-01-17 and that 2010-01-17 there
Fourth method: this 2010-01-17 and that 2010-01-17 there

Original is:   from “17/01/2010” through 17/01/2010
First method:  2010-01-2010” through 17-01-from “17
Second method: from “2010-01-17” through 2010-01-17
Third method:  from “2010-01-17” through 2010-01-17
Fourth method: from “2010-01-17” through 2010-01-17

Original is:   ?17/01/2010–?17/01/2010
First method:  2010-01-2010–?17-01-?17
Second method: ?2010-01-17–?2010-01-17
Third method:  ?2010-01-17–?2010-01-17
Fourth method: ?2010-01-17–?2010-01-17

Nun nehmen wir an, dass Sie eigentlich tun passen wollen, die nicht-ASCII-Zeichen. Zum Beispiel:

   U+660  ARABIC-INDIC DIGIT ZERO
   U+661  ARABIC-INDIC DIGIT ONE
   U+662  ARABIC-INDIC DIGIT TWO
   U+663  ARABIC-INDIC DIGIT THREE
   U+664  ARABIC-INDIC DIGIT FOUR
   U+665  ARABIC-INDIC DIGIT FIVE
   U+666  ARABIC-INDIC DIGIT SIX
   U+667  ARABIC-INDIC DIGIT SEVEN
   U+668  ARABIC-INDIC DIGIT EIGHT
   U+669  ARABIC-INDIC DIGIT NINE

oder sogar

 U+1D7F6  MATHEMATICAL MONOSPACE DIGIT ZERO
 U+1D7F7  MATHEMATICAL MONOSPACE DIGIT ONE
 U+1D7F8  MATHEMATICAL MONOSPACE DIGIT TWO
 U+1D7F9  MATHEMATICAL MONOSPACE DIGIT THREE
 U+1D7FA  MATHEMATICAL MONOSPACE DIGIT FOUR
 U+1D7FB  MATHEMATICAL MONOSPACE DIGIT FIVE
 U+1D7FC  MATHEMATICAL MONOSPACE DIGIT SIX
 U+1D7FD  MATHEMATICAL MONOSPACE DIGIT SEVEN
 U+1D7FE  MATHEMATICAL MONOSPACE DIGIT EIGHT
 U+1D7FF  MATHEMATICAL MONOSPACE DIGIT NINE

Also stellen Sie sich vor Sie haben einen Termin in mathematical monospace-Ziffern, wie folgt:

$date = "\x{1D7F7}\x{1D7FD}/\x{1D7F7}\x{1D7F6}/\x{1D7F8}\x{1D7F6}\x{1D7F7}\x{1D7F6}";

Den Perl-code funktioniert nur gut auf, dass:

Original is:   ??/??/????
First method:  ????-??-??
Second method: ????-??-??
Third method:  ????-??-??
Fourth method: ????-??-??

Ich denke, Sie werden feststellen, dass Python hat eine ziemlich Gehirn‐beschädigt Unicode-Modell, dessen mangelnde Unterstützung für abstrakte Zeichen und Zeichenfolgen unabhängig von Inhalt macht es unglaublich schwierig zu schreiben, Dinge wie diese.

Es ist auch schwer zu schreiben, gut lesbar reguläre Ausdrücke in Python, wo Sie entkoppeln die Erklärung der Teilausdrücke von Ihrer Ausführung, da (?(DEFINE)...) Blöcke werden nicht unterstützt es. Heck, Python gar nicht unterstützt Unicode-Eigenschaften. Es ist einfach nicht geeignet für Unicode regex arbeiten, weil dieser.

Aber hey, wenn Sie denken, dass ist schlecht in Python im Vergleich zu Perl (und es ist sicherlich), versuchen Sie einfach eine andere Sprache. Ich habe nicht eines gefunden, das nicht noch schlimmer für diese Art von Arbeit.

Wie Sie sehen, laufen Sie in echte Probleme, wenn Sie Fragen, für regex-Lösungen aus mehreren Sprachen. Zunächst die Lösungen sind schwer zu vergleichen wegen der verschiedenen regex-Aromen. Aber auch, weil keine andere Sprache vergleichen können mit dem Perl-für Kraft, Expressivität und Wartbarkeit in seinen regulären Ausdrücken. Dies kann noch deutlicher werden, sobald beliebige Unicode ins Bild.

Also, wenn Sie nur wollte, Python, sollten Sie gebeten haben, nur dass. Ansonsten ist es ein furchtbar unlauteren Wettbewerb, Python fast immer verlieren; es ist einfach zu chaotisch, um Dinge wie diese korrekt in Python, geschweige denn beide richtige und sauber. Dass die Fragen mehr, als es produzieren kann.

Im Gegensatz dazu, Perl-regexes excel auf beiden.

InformationsquelleAutor tchrist

Gehen mit Perl: die datetime Python-Paket ist einfach gebrochen. Sie konnte nur tun Sie es mit regexes zu tauschen, das Datum Teile um, zB

echo "17/01/2010" | perl -pe 's{(\d+)/(\d+)/(\d+)}{$3-$2-$1}g'

Wenn Sie brauchen, um zu analysieren, Daten (Z. B. berechnen Sie den Tag der Woche oder andere Kalender-Typ-Operationen), Blick in DateTimeX::Einfach (Sie können es mit apt-get unter Ubuntu):

perl -MDateTimeX::Easy -e 'print DateTimeX::Easy->parse("17/01/2010")->ymd("-")'

InformationsquelleAutor DomQ

Perl:

my $date =~ s/(\d+)\/(\d+)\/(\d+)/$3-$2-$1/;

InformationsquelleAutor Frost.baka

In herrlichen perl-oneliner form:

echo 17/01/2010 | perl -p -e "chomp;  join('-', reverse split /\//);"

Aber im ernst ich würde es so machen:

#!/usr/bin/env perl
while (<>) {
    chomp;
    print join('-', reverse split /\//), "\n";
}

Die Arbeit wird auf einem Rohr, konvertieren und drucken ein Datum pro Zeile ein.

InformationsquelleAutor Sorpigal