Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+34 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
VBoxManage.exe modifyvm "NameDerVM" --biossystemtimeoffset [ZeitInMillisekunden]
+33 replies
+2 replies![[Homepage]](/battie/theme/default/homepage.gif)
Time::HiRes benutzen
+30 replies
2012-02-10T14:08:28 biancaIch verwende gern Date::Calc.
Da gibt es Mktime() womit man aus dem Datum den Zeitwert errechnet.
Time::Local und Time::Local::timelocal($s, $m, $h, $D, $M, $Y); (<-hoffentlich ohne Tippfehler...).
+29 replies
+28 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl use strict; use warnings; use Date::Calc 'Date_to_Time'; my $command='VBoxManage.exe modifyvm "NameDerVM" --biossystemtimeoffset %u'; my $date='14.10.2011'; my $time=time(); $time-=Date_to_Time(reverse(split(/\./,$date)),0,0,0); $time*=1000; $command=sprintf($command,$time); exec($command) or die(qq[ERROR exec "$command" ($!)\n]); die("Something went wrong!\n");
+3 replies
+2 replies
+24 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
use Date::Calc 'Date_to_Time';
my $command='"C:\Program Files\Oracle\VirtualBox\VBoxManage.exe" modifyvm "Neue VM" --biossystemtimeoffset %u';
my $date='14.10.2011';
my $time=time();
$time-=Date_to_Time(reverse(split(/\./,$date)),0,0,0);
$time*=1000;
$command=sprintf($command,$time);
exec($command) or die(qq[ERROR exec "$command" ($!)\n]);
die("Something went wrong!\n");
+23 replies
+22 replies
+21 replies
+3 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+17 replies1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
use Date::Calc 'Date_to_Time';
my $command='"C:\Program Files\Oracle\VirtualBox\VBoxManage.exe" modifyvm "Adobe Acrobat" --biossystemtimeoffset -%s';
my $date='14.10.2011';
my $time=time();
$time-=Date_to_Time(reverse(split(/\./,$date)),0,0,0);
$time*=1000;
$command=sprintf($command,$time);
[b]
$command[/b] exec($command) or die(qq[ERROR exec "$command" ($!)\n]);
die("Something went wrong!\n");
+16 replies1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#!/usr/bin/perl use strict; use warnings; use Date::Calc 'Date_to_Time'; my $command='"C:\Program Files\Oracle\VirtualBox\VBoxManage.exe" modifyvm "Adobe Acrobat" --biossystemtimeoffset -%s'; my $date='14.10.2011'; my $time=time(); $time-=Date_to_Time(reverse(split(/\./,$date)),0,0,0); $time*=1000; $command=sprintf($command,$time); print "!! $command !!\n"; exec($command); die(qq[ERROR exec "$command" ($!)\n]);
+15 replies
+14 replies
+13 replies
+12 replies
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
Teilbaum:
![[Powered by Battie]](/battie/img/powered.png)
