Opened by pomaranc at 2012-02-10 14:38
Müsste das ganze dann so aussehen?
Da passiert gar nichts. Fenster geht auf und wieder zu. Ich hab das so verstanden, dass dadurch irgendeine Ausgabe erfolgt anhand der man sehen kann warum es nicht geht?
Last edited: 2012-02-19 13:10:45 +0100 (CET)
Code: (dl
)
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 "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");
Da passiert gar nichts. Fenster geht auf und wieder zu. Ich hab das so verstanden, dass dadurch irgendeine Ausgabe erfolgt anhand der man sehen kann warum es nicht geht?
Last edited: 2012-02-19 13:10:45 +0100 (CET)