PERL:


PERL: - . 58


(Squote = ' FINIS') ="s/"\s+//gm;

. we will have peace, when you and all you works have perished--and the works of your dark master to whom you would deliver us You are a liar, Saruman, and a corrupter of men's hearts. --Theoden in /usr/src/perl/taint.c

FINIS Squote =~ s/\s+--/\n--; #

, eval , ­ , . , ­ eval, .

, ­ . , @@@ :

if ($REMEMBER_THE_MAIN) <

$perl_main_C = dequote' MAIN_INTERPRETER_LOOP';

@@@ mt

@@@ runops() {

@@@ SAVEI32(runlevel);

@@@ runlevel++,

@@@ while ( op = (*op->op_ppaddr)() ) ;

@@@ TAINT.N0T;

@@@ return 0;

@@@ >

MAIN_INTERPRETER_LOOP # }

.

sub dequote;

$poem = dequoteEVER_ON_AND_ON;

Now far ahead the Road has gone, And I must follow, if I can, Pursuing it with eager feet,

Until it joins some larger way Where may paths and errands meet. And whither then9 I cannot say.

--Bilbo in /usr/src/perl/pp_ctl.


50 1

EVER_ON_AND_ON

print "Here's your poem:\n\n$poem\n ';

:

Here's your poem:

Now far ahead the Road has gone,

And I must follow, if I can, Pursuing it with eager feet,

Until it joins some larger way Where may paths and errands meet.

And whither then? I cannot say.

--Bilbo in /usr/src/perl/pp_ctl.c

dequote ­. . ­ , (), . .