Исходное сообщение
"Релиз языка программирования Perl 5.34.0" Отправлено привет, 21-Май-21 14:55
я тоже заинтересовался и посмотрел что это такое генерит вот такую запускалку и всего то: @rem = '--*-Perl-*-- @set "ErrorLevel=" .... @if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl @if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH. @goto endofperl @rem '; #!/usr/local/bin/perl == код скрипта == __END__ :endofperl @set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel% совершенно непонятно зачем оно нужно

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> я тоже заинтересовался и посмотрел что это такое > генерит вот такую запускалку и всего то: > @rem = '--*-Perl-*-- > @set "ErrorLevel=" > .... > @if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl > @if %ErrorLevel% == 9009 @echo You do not have Perl in your > PATH. > @goto endofperl > @rem '; > #!/usr/local/bin/perl > == код скрипта == > __END__ > :endofperl > @set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit > %ErrorLevel% > совершенно непонятно зачем оно нужно
	Введите код, изображенный на картинке: