Jag har lyckats omvandla en .pl till en .exe men problemet är att när man kör exe filen hoppar den över alla moment utom det sista, vilket är:
exec ("C:/windows/clock.avi");
Måste jag använda npgon slags include och hur gör jag det isåfall? Mitt script ser ut såhär:
#############################################################################################
#!/usr/bin/perl
include <
my $Har = 'Har Kommer Lite';
my $Rakne = 'Rakneovningar';
my $Johan = 'Johan';
my $Erik = 'Erik';
print "\n\n${Har}\t$Rakne till $Johan och $Erik\n\n";
#############################################################################################
print "Vad ar 10010011 i decimalform: ";
$ans = <STDIN>;
chop $ans;
if ($ans eq '147') { print "Ratt\n\n";}
else { print "Fel!! Ratt svar ar 147\n";}
#############################################################################################
print "Vad ar 224 i Binarform: ";
$ans2 = <STDIN>;
chop $ans2;
if ($ans2 eq '11100000') { print "Ratt\n\n";}
else { print "Fel!! Ratt svar ar 11100000\n";}
#############################################################################################
print "Vad ar 255 i Binarform: ";
$ans3 = <STDIN>;
chop $ans3;
if ($ans3 eq '11111111') { print "Ratt\n\n";}
else { print "Fel!! Ratt svar ar 11111111\n\n";}
#############################################################################################
print "Vad ar 53 - 21: ";
$ans4 = <STDIN>;
chop $ans4;
if ($ans4 eq '32') { print "Ratt\n\n";}
else { print "Fel!! Ratt svar ar 32\n";}
#############################################################################################
print "Vad ar 325792 * 23 - 10 + 1.53: ";
$ans5 = <STDIN>;
chop $ans5;
if ($ans5 eq '7493207,53') { print "Ratt\n\n";}
else { print "Fel!! Ratt svar ar 7493207,53\n";}
#############################################################################################
print "GRATTIS, DU KLARADE DET, HAR FAR DU EN PRESENT";>
exec ("C:/windows/clock.avi");
Jag vet, det är ett rätt så töntigt script, men jag har gjort detta pga jag vill kunna bemästra if, else grejjet...
allt det ni säger har jag redan testat. använder active state och sen enginsite för att editera. Jag vill göra en .exe fil av det hela för att folk som inte har perl ska kunna köra den...
Strunt i den koden då, vi tar en annan jag skrivit. Vad är det enklaste sättet att få denna .pl fil till en fungerande .exe fil
#!/usr/bin/perl
$a = "\n<<<Start>>>";
$b = "---------------------------------------->\n";
$c = "\n<<<Slut>>>\n";
print "$a\n";
print "$b\n";
$min_fil = "C:/Documents and Settings/Stoffe G/start-meny/program/Autostart/rofl.txt";
print "Content-type:text/html\n\n";
open(UTDATA,">$min_fil") || &Fatal;
print UTDATA "<html>\n<head><title>!!!Stoffe!!</title></head>";
print UTDATA <<EndText;
<body bgcolor="457236">
<p>!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!
</body>
</html>
EndText
close(UTDATA);
print "Filen <a href='$min_fil'>$min_fil</a> Is Alive ;D.";
sub Fatal {
print "Men va fan, kan inte öppna filen $min_fil för skrivning."
}
print "$a\n";
print "$b\n";
$min_fil2 = "C:/Documents and Settings/Stoffe G/start-meny/program/Autostart/rofl2.txt";
print "Content-type:text/html\n\n";
open(UTDATA,">$min_fil2") || &Fatal;
print UTDATA "<html>\n<head><title>!!!Stoffe!!</title></head>";
print UTDATA <<EndText;
<body bgcolor="457236">
<p>!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!
</body>
</html>
EndText
close(UTDATA);
print "Filen <a href='$min_fil2'>$min_fil2</a> Is Alive ;D.";
sub Fatal {
print "Men va fan, kan inte öppna filen $min_fil2 för skrivning."
}
$min_fil3 = "C:/Documents and Settings/Stoffe G/start-meny/program/Autostart/rofl3.txt";
print "Content-type:text/html\n\n";
open(UTDATA,">$min_fil3") || &Fatal;
print UTDATA "<html>\n<head><title>!!!Stoffe!!</title></head>";
print UTDATA <<EndText;
<body bgcolor="457236">
<p>!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!MWUHAHAHAHA!!!!!!!
</body>
</html>
EndText
close(UTDATA);
print "Filen <a href='$min_fil3'>$min_fil3</a> Is Alive ;D.";
sub Fatal {
print "Men va fan, kan inte öppna filen $min_fil3 för skrivning."
}
Detta är inget rent script precis utan bara ihopkladdat. Men det funkar i alla fall. Testa gärna det. Se dock till att tabort filerna från autostarten efter ni kört det.
Jag använde tinyperl.. Men jag såg det nu att det bara funkar om man har .pl filen och .exe filen i samma mapp... Finns det inget gratis kompileringsprogram?
