1x pouzita promenna?

Jan Kasprzak kas na informatics.muni.cz
Čtvrtek Březen 18 14:55:47 MET 1999


	Zdravim,

	pisu tady takove WWW rozhrani k archivu diskusnich listu
(viz http://odysseus.linux.cz/cgi-bin/indexmsg.cgi?list=linux) a mam
drobny problem:

	Rozhodl jsem se, ze to udelam obecne a konfigurovatelne. To jest
kdyz nekdo zada ...?list=cokoli, tak aby se dalo dohledat, jestli je
to platny list, kde ma archiv, kde ma databazi, atd. Proto jsem si rekl,
ze konfiguracni soubor bude v podstate perlovy skript, ktery ja tam budu
requirovat:

---------------------------------------------------------
#!/usr/bin/perl -w
#
package Conf;
%archive = (
	'linux' => '/home/ezmlm/linux/archive',
);
%dbdir = (
	'linux' => '/home/ezarchive/linux',
);
1;
---------------------------------------------------------

	Pouziti uvnitr ruznych skriptu, ktere patri k tomu prohlizeci
archivu, bych si predstavoval takto:

...
unshift (@INC, '/cfgdir');
require 'ezarchive.cfg'; # Vyse uvedeny soubor

die "Parameter error"
	unless defined($Conf::archive{$list});
...

	Problem je, ze pokud to pouziju takto, nadava mi perl, ze Conf::archive
je pouzito v hlavnim programu pouze jednou a ze je to mozny preklep.
Pokud na konci uvedu "%Conf::archive = ()" nebo podobny nesmysl, uz je
spokojeny.

1) Jak je zvykem pouzivat konfiguracni soubory, psane primo v Perlu?
2) Pokud je v poradku vyse popsane pouziti konfiguracniho souboru,
	jak co nejcisteji zamezit podobnym warningum?

-Yenya

--
\ Jan "Yenya" Kasprzak <kas at fi.muni.cz>       http://www.fi.muni.cz/~kas/
\\ PGP: finger kas at aisa.fi.muni.cz   0D99A7FB206605D7 8B35FCDE05B18A5E //
\\\             Czech Linux Homepage:  http://www.linux.cz/              ///
///    I hope AFS dies a slow and painful death with people migrating    \\\
//     to better alternatives (coda, whatever).      --Linus Torvalds     \\


Další informace o konferenci Perl