TulorkMedlem sedan aug. 2004903 inlägg 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...
emissionMedlem sedan dec. 19996 721 inlägg Includen du använder är lite konstig. Ta bort raden "include <" och det avslutande ">"-tecknet på näst sista raden, och testa om det går bättre då.
TulorkMedlem sedan aug. 2004903 inlägg Jo jag vet. Jag glömde bara ta bort det ur koden. Jag har testat en massa grejjor. Men det funkar fortfarande inte..
emissionMedlem sedan dec. 19996 721 inlägg Vad använder du för att göra exe-filen? Version av Perl? Varför göra en exe-fil?
GunnarDMedlem sedan juni 20014 290 inlägg Lite OT men,
Raden "#!/usr/bin/perl" skall vara först i filen, det får inte vara någonting innan #! tecknen.
TulorkMedlem sedan aug. 2004903 inlägg 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.
emissionMedlem sedan dec. 19996 721 inlägg Provade ditt första skript med perl2exe, och det fungerade finfint.
TulorkMedlem sedan aug. 2004903 inlägg Jo, men det kostar en massa pengar.. ;D
emissionMedlem sedan dec. 19996 721 inlägg Vad är det för program som skapar exe-filen?
/r Aha, pl2exe! Eller?
TulorkMedlem sedan aug. 2004903 inlägg 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?
HansenMedlem sedan aug. 2000374 inlägg
Tulork skrev:
[..]Finns det inget gratis kompileringsprogram?
Perl Archive Toolkit
Randy Kobes tillhandahåller PPM paket för ActivePerl.
C:\>ppm install http://theoryx5.uwinnipeg.ca/ppms/PAR.ppd
Se http://search.cpan.org/dist/PAR-0.90/script/pp#EXAMPLES för dokumentation och användnings exempel.
