Jahr aus Datum extrahieren
| ID | 149 |
|---|---|
| Link Reference | Not set |
| Link Credits | Not set |
| Link Technical Documentation | Not set |
| PlCodelang | Perl |
| PlGroup | Datum, Zeit |
| PlItemTitle | Jahr aus Datum extrahieren |
| Code | use POSIX qw/EXIT_SUCCESS EXIT_FAILURE/; # Datum Vorbereitung: my $DateTime = POSIX::strftime('%c', localtime(time)); my ($Date, $Time) = split(/\s+/, $DateTime); my ($Day, $Month, $Year) = split(/\./, $Date); my ($Hour, $Minute, $Second) = split(/:/, $Time ); my $Datum = "$Year"."$Month"."$Day"; #oder # my $Datum = "$Day"."$Month"."$Year"; my $Uhrzeit = "$Hour".":"."$Minute".":"."$Second"; |
| Result Example |