- or download this
use warnings;
use strict;
...
PerlUnitSync::Init(0,0);
my $writeDir=PerlUnitSync::GetWritableDataDirectory();
print "writeDir=$writeDir\n";
- or download this
E:\test>perl test.pl
E:\test>writeDir=E:\test\
- or download this
E:\test>perl test.pl
writeDir=D:\Documents\My Games\Spring\