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