neco jako include

[Ondrej Koala Vacha]

On Sat, 9 Jun 2001, Milan Šorm wrote:

>
> primo include neexistuje

skoda; nevrhl bych neco jako

use include *list*;

>
> tedy:
>
> open INCLUDE,$file; $include = join '',<INCLUDE>; close INCLUDE; eval $include;
>

Berme jako priklad, ze chci udelat include 'use strict;'
pokud dam eval 'use strict' do bloku BEGIN {} pak nefunguje (ani bez toho
eval), predpokladam ze proto, ze plati do konce bloku BEGIN.

Mimo blok se zase zpracuje az pri behu, a to je pozde :(

Takze si nezbyva prat a cekat na tu direktivu.

-- 
Ondrej Koala Vacha