VPF::Выдача на STDOUT - Форум программистов

tishaishii

Дата 22.2.2007, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

Воюю с IndigoStar perl2exe. Оно не хочет хорошо компилить DBD::ODBC и Win32::ODBC. Главная цель - закрыть код.
Придумал писать <DATA> в темповский файл и исполнять его, после - удалять. Не сильно хороший вариант, но работает.
Скрипт после DATA печатает по-ходу работы всякие-разные строчки, но основная программа печатает всё это только после завершения проги после DATA.

Задача в том, чтобы писать realtime (в реальном времени) строчки, которые выдаёт программа после DATA.

Код

$|=1;

my($dir)=grep length, @ENV{+qw(TEMP TMP)};
die "System error #1\n" unless $dir;
my$tmp=$dir."\\".time;
open my$fh, '>'.$tmp;binmode $fh;print $fh <DATA>;close $fh;
print foreach `perl ${tmp}`;
unlink $tmp;

__END__
use Win32::ODBC;
use Win32::Clipboard;
use IO::Handle;
use DBI;
#..........

Nab

Дата 23.2.2007, 00:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37

По моему Есть модули в иерархии Acme::* на CPAN для шифрования исходников, мож кто подскажет точное имя модуля...

Добавлено @ 00:38
Вот еще раз глянул и нашел
Acme::Enc

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

tishaishii

Дата 23.2.2007, 06:31 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

Я подумал, скорее мне не шифрование надо, мне надо выдачу в реальном времени в STDOUT с другого скрипта (вообще с вызова system). Абсфуцировать код я и сам смогу.

Это сообщение отредактировал(а) tishaishii - 23.2.2007, 06:39

tishaishii

Дата 23.2.2007, 07:16 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

Ладно, вспомнил и нашёл решение:

Код


$|=1;

my($dir)=grep length, @ENV{+qw(TEMP TMP)};
die "System error #1\n" unless $dir;
my$tmp=$dir."\\".time;
open my$fh, '>'.$tmp;binmode $fh;print $fh <DATA>;close $fh;
open my$fh, "|perl ${tmp}";binmode $fh;
print <$fh>;
close $fh;
unlink $tmp;

__END__
$|=1;
my$i=10;
while($i--) {
    print $i, "\n";
    sleep 2;
}

tishaishii

Дата 27.2.2007, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

Да, работает мой вариант.
Но как, всё-таки, преодолеть вариант DBD::ODBC и Win32::ODBC одновременно, да ещё не расставаясь с perl2exe?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »