W
Лучше проверять фаил все-таки.
Меня бы это устроило. Нет необходимости понимать, что файл обновился.
Не поделитесь?
Size: a a a
2020 October 06
SZ
Ты бы свою задачу описал
AS
B::Deparse?
Я хотел в однострочнике эту возможность, но в однострочнике код не выполняется с B::Deparse.
Если через отдельный файл, то как можно в B::Deparse весь package main положить как функцию (через coderef2text)?
Если через отдельный файл, то как можно в B::Deparse весь package main положить как функцию (через coderef2text)?
AS
Если отдельный файл, то можно будет open $0 сделать, но это как-то неинтересно...
AS
Я хотел в однострочнике эту возможность, но в однострочнике код не выполняется с B::Deparse.
Если через отдельный файл, то как можно в B::Deparse весь package main положить как функцию (через coderef2text)?
Если через отдельный файл, то как можно в B::Deparse весь package main положить как функцию (через coderef2text)?
В однострочнике тоже можно использовать coderef2text. Т.е. в однострочнике можно выполнить код с B::Deparse)
SZ
В однострочнике тоже можно использовать coderef2text. Т.е. в однострочнике можно выполнить код с B::Deparse)
Ты что ли сам с собой разговариваешь? :))
AS
Ты что ли сам с собой разговариваешь? :))
Что за провакация? Я просто поправил себя.
Раньше использовал deparse только так: perl -MO=Deparse ... Так код исполняться не будет.
Раньше использовал deparse только так: perl -MO=Deparse ... Так код исполняться не будет.
SZ
Что за провакация? Я просто поправил себя.
Раньше использовал deparse только так: perl -MO=Deparse ... Так код исполняться не будет.
Раньше использовал deparse только так: perl -MO=Deparse ... Так код исполняться не будет.
Ну так то не B, а O
AS
Верно
AS
Мне вообще-то удалось сделать, после того, как я прочитал код модуля O.
AS
$ cat 6.pl
#!/bin/env perl
use v5.20;
use B::Deparse;
my $output;
open(my $outHandle, '>', \$output) or die;
my $oldHandle = select $outHandle;
my $compilesub = B::Deparse::compile();
&$compilesub();
select $oldHandle;
close $outHandle;
say 'BEGIN!';
say $output;
say 'END!';
AS
Оказалось, что у B::Deparse есть функция compile. Это есть в документации по модулю O (в самом низу), но я видимо никогда не дочитывал до туда.
Вообщем в исходниках модуля O нашёл ответ.
Но мне решение как-то не очень нравится... Столько кода. Нету элегантности.
Вообщем в исходниках модуля O нашёл ответ.
Но мне решение как-то не очень нравится... Столько кода. Нету элегантности.
AS
Выше умные дядьки видимо писали про это, говоря про декомпиляцию, но я их не понял.
AG
В ограниченных объёмах можно так:
$_ = <DATA>;
seek *DATA, 0, 0;
print(<DATA>);
__DATA__
$_ = <DATA>;
seek *DATA, 0, 0;
print(<DATA>);
__DATA__
AG
Выше умные дядьки видимо писали про это, говоря про декомпиляцию, но я их не понял.
А зачем это тебе? Как то не могу придумать причину для этого кода
AS
А зачем это тебе? Как то не могу придумать причину для этого кода
Ну в кратце я готовлю подарок на ДР)
AG
Если perl -d тебя не смущает, то дока: https://perldoc.perl.org/perldebguts#Debugger-Internals
Пример:
BEGIN {
no strict;
for my $k (sort keys %main::) {
next if $k =~ m/::\z/;
next if $k !~ m/^_</;
say $k;
print grep defined, @{"$k"};
$|=1;
}
syscall 60, 0; # POSIX::exit(0);
}
запускать через perl -d « название скрипта »
Пример:
BEGIN {
no strict;
for my $k (sort keys %main::) {
next if $k =~ m/::\z/;
next if $k !~ m/^_</;
say $k;
print grep defined, @{"$k"};
$|=1;
}
syscall 60, 0; # POSIX::exit(0);
}
запускать через perl -d « название скрипта »
b
Подскажите, плз., модуль для поточного разжатия GZIP. Желательно в corelist ? Хотелось бы что-то вроде
my $gz = ..->new('/path/to/file.gz');
while(my $chunk = $gz->uncompress(2048)) {
...
}YK
IO::Uncompress::Gunzip