Size: a a a

2020 November 29

W

Warstone in Modern::Perl
Потому что иначе perl -MACME::HelloWorld -e '' тоже будет ответом.
источник

W

Warstone in Modern::Perl
В теории должно было сработать:
#!perl -e 'print "Hello, World!"'
Но не работает, к сожалению из-за того что -e в файле низзя.
источник

W

Warstone in Modern::Perl
Если кто-нибудь придумает как это сделать - тегните меня.
источник

AK

Andrey Konovalov in Modern::Perl
Задача больше про баги в парсинге sloc'а, чем про код...
источник

SZ

Sergey Zhmylove in Modern::Perl
Warstone
Жаль что в #!perl нельзя -e
Можно, если правильно
источник

W

Warstone in Modern::Perl
А примерчик можно, а то я не допер...
источник

IB

Ivan Bessarabov in Modern::Perl
Sergey Zhmylove
Можно, если правильно
Получаю ошибку

Can't emulate -e on #! line at script.pl line 1.

https://perlbanjo.com/aa7fe9682a
источник

AK

Andrey Karepin in Modern::Perl
Warstone
Надо придумать как самого себя на stdin подать
1 >&0
источник

W

Warstone in Modern::Perl
Через перл
источник

AK

Andrey Konovalov in Modern::Perl
В Perl есть Source Filter'ы, позволяющие, например, программу на awk исполнять интерпретатором Perl...
источник

AK

Andrey Konovalov in Modern::Perl
Соответственно, нельзя ли использовать Source filter для тупо удаления "#" в начале всех строк, кроме тех, где после # идёт !?
источник

SZ

Sergey Zhmylove in Modern::Perl
Ivan Bessarabov
Получаю ошибку

Can't emulate -e on #! line at script.pl line 1.

https://perlbanjo.com/aa7fe9682a
$ cat s
#!/usr/bin/perl -eprint-asdf
$ ./s
-asdf$
$
источник

SZ

Sergey Zhmylove in Modern::Perl
На солярисе тоже работает
источник

IB

Ivan Bessarabov in Modern::Perl
Класс
источник

IB

Ivan Bessarabov in Modern::Perl
у меня на маке тоже работает
источник

SZ

Sergey Zhmylove in Modern::Perl
Ну на лине и фре тоже, естественно
источник

IB

Ivan Bessarabov in Modern::Perl
хаха
источник

IB

Ivan Bessarabov in Modern::Perl
сделал
источник

IB

Ivan Bessarabov in Modern::Perl
был уверен что это невозможо =)
источник

IB

Ivan Bessarabov in Modern::Perl
$ cat script.pl
#!/usr/bin/perl -Esay(Hello.chr(44).chr(32).world.chr(33))
$ ./script.pl
Hello, world!
источник