Сообщество Чайников

Вопрос

Как сделать, чтобы программка написанная на Perl запускалась в windows-e с расширением .exe ? Что именно надо сделать, чтобы программа имела расширение .exe и запускалась ? В общем, чтобы работала не из ДОСа.

Ответ

Есть специальный компилятор для Perl perl2exe компелит из Перловых исходников выполняемые файлы. Ссылка www.indigostar.com

Из конференции Expert_FAQ

Декомпилит обратно :)

#!/usr/bin/perl
$dir = @ARGV[0];
open (data, "$dir");
binmode(data);
system ("mkdir src.$dir");
#seek (data, 671420,0);
$f=0;
while ($line = ){
if ( $line =~ m/(\w+\.\w*pl).\n/g or $line =~
m/(\w+\.\w*pm).\n/g) {
$name=$1;
$cur_d=tell(data);
$f=1;
print ("\n offset: $cur_d ");
} elsif ( $f == 1 and $line =~ m/\-(\d+)/) {
print ("Found file: $name ");
print ("length: $1\n");
$f=2;
$cur=tell(data);
$len=$1;
} elsif ( $f == 2 ) {
open(new, ">src.$dir/$name");
seek (data, $cur, 0);
read (data,$tmp,$len);
$tmp = decrypt ($tmp);
print new $tmp;
$f=0;
}
}
sub decrypt {
($text) = @_;
$key = "For more information visit www.indigostar.com";
$key_len = length($key);
$len = length($text);
$offset = 0;
while ($offset <= ($len)){
$str = substr($text, $offset, $key_len)
; $len_s = length($str);
$key = substr($key, 0, $len_s);
$crypt_t = $str ↑ $key;
$crypt = "$crypt"."$crypt_t";
$offset = $offset+$key_len;
}
return $crypt;
}

igorsd