"installationsscript" in perlein script schreiben - #78627 (Allgemeines zu Perl)

the-loader

2007-07-18 22:35

User since
2006-08-28
25 Artikel
BenutzerIn
[default_avatar]

hallo,
ich möchte gern ein script schreiben was das aktuelle script kopiert und dann mit einen parrameter der den path zum aktuellen script enthält ausführt.
das klappt auch soweit gut... nur das script was ausgeführt wird erstellt die datei (test.txt) da wo das alte script ist (irgentwo bei mir auf den desktop...) woher kommt das?

mein ansatz:

Code: (dl )

use Tie::File;
if ($0 !~ /system32\\temp123/ ) { temp(); }
tie @test, 'Tie::File', "test.txt";


sub temp {
    system("md %windir%\\system32\\temp123");
    my $filename = $0;
    $filename =~ s/.*\\//g;
    system("copy \"$0\" %windir%\\system32\\temp123\\$filename");
    system("start %windir%\\system32\\temp123\\$filename del \"$0\"");
    exit;
}