Скрипт, печатающий свой исходный код

[young]

Скрипт, печатающий свой исходный код

Как написать скрипт, который распечатает свой исходный код не используя файловые операции?

 

[Фанат]

зачитайте весь список, пжлуйста...

 

[young]

Фанат
Не бузи. Кроме тебя всем все понятно

PS: Вот решение этой задачи на ~50 языках
http://www.nyx.net/~gthompso/quine.htm

PHP в том списке пока нет

 

[Long]

young, а чем тебе файловые операции неугодили?

 

[Сергей123]

Long, по ссылке ходил? Это не практическая проблема...

 

[nikolayd]

$a= Array();
$a[0]='<?$a=Array();';
$a[1]='['; 
$a[2]=']';
$a[3]='\'';
$a[4]='\\'; 
$a[5]='=';
$a[6]='$a';
$a[7]=';';
$a[8]='';
$a[9]='for($i=0;$i<10;$i++) echo(($i==0?$a[0]:$a[8]).$a[6].$a[1].$i.$a[2].$a[5].$a[3].((($i==3)||($i==4))?$a[4]:$a[8]).$a[$i].$a[3].$a[7].($i==9?$a[9]:$a[8]));?>';
for($i=0;$i<10;$i++) echo ($i==0?$a[0]:$a[8]).$a[6].$a[1].$i.$a[2].$a[5].$a[3].((($i==3)||($i==4))?$a[4]:$a[8]).$a[$i].$a[3].$a[7].($i==9?$a[9]:$a[8]);

Переделка как раз из ссылки из джаваскриптовского кода.

 

[Сергей123]

nikolayd, а второе решение на JavaScript своеобразное, да?

[чушь отменяется] Вообще, есть мысль, что файл, в котором только HTML, имеющий расширение, которое заставит web-сервер отдать этот файл PHP - будет решением. [/чушь отменяется]

 

[MICKRON]

Синтаксис:

<?php
//ваш код...>
[пропущеный закрывающий тег]

Все и выведется

 

[Фанат]

не отменяыется.
я именно это имел в виду.
стандартное окружение, в котором языку приходитс я работать.

 

[young]

nikolayd
не приянят.
печатает код, отличный от исходного

 

[nikolayd]

Где же он отличается - только что проверил 1 в 1.
ну если конечно \n не принимать во внимание .

 

[Сергей123]

Фанат, а, действительно...
Не HTML (корректный HTML в общем случае не ПОКАЗЫВАЕТСЯ), просто текст (например, файл с расширением .php, содержащий текст "зачитайте весь список, пжлуйста...").
Это... , young, Фанат первым ответил правильно.

 

[young]

Проблема решена

<? $a='<? $a=';$b=';echo $a,chr(39),$a,chr(39),chr(59),chr(36),chr(98),chr(61),chr(39),$b,chr(39),$b; ?>';echo $a,chr(39),$a,chr(39),chr(59),chr(36),chr(98),chr(61),chr(39),$b,chr(39),$b; ?>

nikolayd
У тебя нет например открывающих/закрывающих тегов

 

[nikolayd]

выше внес изменения теперь и теги есть.

 

[Фанат]

Бресь Сергей,я не уверен, что это соответствует условиям конкурса. Да и не ответ это, в общем.
Да и соревноваться я ни с кем не хочу

 

[Eugene Bond]

young, это слишком типовое решение, которое есть для каждого языка из списка. Надо думать что-нть покрасивше..


ЗЫ: мне питоновское понравилось:

a = ['print "a =", a', 'for s in a: print s']
print "a =", a
for s in a: print s

 

[Фанат]

ага, те же мысли, что и у Жени.
в перловый раздел я даже боюсь заглядывать

 

[[ Z ]]

Как вариант:

<?
printf($a = '<?
printf($a = %c%s%c, 39, $a, 39);
?>', 39, $a, 39);
?>

 

[young]

[ Z ]
Красивый вариант

 

[bars_g]

young
приведенный, кстати, в разделе [Perl] =) Которого так боится Фанат ;-)