---
title: ".pl till .exe"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/137682-pl-till-exe"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Tulork"
published: "2005-11-15T16:09:52.000Z"
updated: "2005-12-02T15:54:41.000Z"
replies: 10
views: 730
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/perl-ruby/137682-pl-till-exe"
---

# .pl till .exe

## #1 — Tulork, 2005-11-15T16:09Z

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...

Permalänk: https://www.webforum.nu/p/137682

## #2 — emission, 2005-11-15T18:07Z

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å.

Permalänk: https://www.webforum.nu/p/1710823

## #3 — Tulork, 2005-11-15T19:19Z

Jo jag vet. Jag glömde bara ta bort det ur koden. Jag har testat en massa grejjor. Men det funkar fortfarande inte..

Permalänk: https://www.webforum.nu/p/1710943

## #4 — emission, 2005-11-15T19:38Z

Vad använder du för att göra exe-filen? Version av Perl? Varför göra en exe-fil?

Permalänk: https://www.webforum.nu/p/1710953

## #5 — GunnarD, 2005-11-15T20:07Z

Lite OT men,

Raden "#!/usr/bin/perl" skall vara först i filen, det får inte vara någonting innan #! tecknen.

Permalänk: https://www.webforum.nu/p/1710984

## #6 — Tulork, 2005-11-15T21:22Z

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.

Permalänk: https://www.webforum.nu/p/1711030

## #7 — emission, 2005-11-15T21:27Z

Provade ditt första skript med perl2exe, och det fungerade finfint.

Permalänk: https://www.webforum.nu/p/1711036

## #8 — Tulork, 2005-11-15T21:30Z

Jo, men det kostar en massa pengar.. ;D

Permalänk: https://www.webforum.nu/p/1711038

## #9 — emission, 2005-11-15T21:34Z

Vad är det för program som skapar exe-filen?

/r Aha, pl2exe! Eller?

Permalänk: https://www.webforum.nu/p/1711043

## #10 — Tulork, 2005-11-16T15:15Z

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?

Permalänk: https://www.webforum.nu/p/1711323

## #11 — Hansen, 2005-12-02T15:54Z

> **Tulork skrev:**
>
> \[..\]Finns det inget gratis kompileringsprogram?

[Perl Archive Toolkit](http://search.cpan.org/dist/PAR-0.90/)

[Randy Kobes](http://theoryx5.uwinnipeg.ca/) tillhandahåller [PPM paket](http://theoryx5.uwinnipeg.ca/ppms/) 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.

Permalänk: https://www.webforum.nu/p/1721032

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/137682-pl-till-exe