Liste in Tabellenformat umwandeln - #185095 (Allgemeines zu Perl)

Rambo

2016-07-18 09:02

User since
2003-08-14
803 Artikel
BenutzerIn

user image

Guten Morgen euch allen,
endlich komme ich wieder dazu an meinem Script zu arbeiten.
Ich habe noch ein kleines Problem bei dem ich noch mal eure Hilfe benötige. Habe schon im Forum nach allmöglichen for Schleifen geschaut aber noch nicht das richtige gefunden.
Mein Problem lautet wie folgt.
Wenn ich in einem Array Daten in eine Rohform habe die ich dann in einer for Schleife verarbeite, wie gelange ich dann am ende für jede für jeden Parameter an das gesuchte Ergebnis?
Hier der Beispiel Code:

Code: (dl )

my $parm = "131130381022593331";
my $parm2 = "131121778351196949";
my @parm = ($parm, $parm2);

foreach my $wintime (@parm) {
    my $unix_epoch = win_to_unix_epoch($wintime);
    my ($year, $month, $day, $hour, $minute, $second) = (localtime $unix_epoch)[5,4,3,2,1,0];
    $year  += 1900;
    $month += 1;
    ($month, $day, $hour, $minute, $second) = map { sprintf '%02d', $_ } $month, $day, $hour, $minute, $second;
    my $LL= join('-', $day, $month, $year) . ' ' . join(':', $hour, $minute, $second);
    print $LL."\n";
    
}

sub win_to_unix_epoch {
    # Actually hundreths of nanoseconds at this point...
    my $nanoseconds = shift;
    # Get seconds
    my $seconds = $nanoseconds / 10_000_000;
    # This magic number is the difference between Unix and Windows epoch.
    my $unix_epoch = $seconds - 11644473600;
    # Return the Unix epoch for use with localtime().
    return $unix_epoch;
}

Ergebnis:

Code: (dl )

1
2

15-07-2016 08:35:02
05-07-2016 09:37:15

Ich möchte das $LL in in zwei einzelnen Strings aufgeschlüsselt werden die dann weiterverabeitet werden können.
Die Ausgabe sollte dann sein:

Code: (dl )

1
2

$parm_neu = "Datum und Zeit aus $parm";
$parm_neu2 = "Datum und Zeit aus $parm2";

Hoffe das ist Verständlich Ausgedrückt.
Danke euch im Voraus.
VG R