Datum/Uhrzeit stellen: gibt's da ne API-Funktion? - #12282 (Windows)

steffenw

2004-02-06 23:52

User since
2003-08-15
692 Artikel
BenutzerIn

Gleich hat's nicht funktioniert, eine paar use'e fehlten und die Kommas im qw{} waren zu viel. Und jetzt funktioniert es. Es stellt die Zeit auf heute, 23:38:30 Uhr. Ich bin davon ausgegangen, daß ich den Wochentag nicht unbedingt angeben muß.

Code: (dl )

#!perl
use strict;
use warnings;
use Win32::API;
use Win32::API::Struct;
Win32::API::Struct->typedef(SYSTEMTIME => qw{
   WORD wYear
   WORD wMonth
   WORD wDayOfWeek
   WORD wDay
   WORD wHour
   WORD wMinute
   WORD wSecond
   WORD wMilliseconds
});

Win32::API->Import('kernel32', 'BOOL SetSystemTime(SYSTEMTIME lpPoint)');
my $systime = Win32::API::Struct->new('SYSTEMTIME');

# dann kann man mit $systime->{wYear} = 2004, etcpp. die Werte setzen
# und dann die Funktion aufrufen

@{$systime}{qw/wYear wMonth wDay wHour wMinute wSecond wMilliseconds/} = qw/2004 2 6 22 38 30 0/;

SetSystemTime($systime);

\n\n

$SIG{USER} = sub {love 'Perl' or die};