Obsah otvoreneho suboru sa nevypise

[Honza Pazdziora]

On Fri, Jun 10, 2005 at 09:22:23AM +0200, Pavel Kosarnik wrote:
> 
> nepouzivam perl aktivne. Mam vsak jednu app(addns.pl pre dyndns klienta), 
> ktora by mala byt s tymto kodom trivialne funkcna:
> 
> sub get_host_cache
> {
>         open(CACHE, $files{'cache'}) or output("warning: could not open cache 
> file!",1,2);
>         my @lines = <CACHE>;
>         print @lines;
>         close(CACHE);
> ..
> }
> kde $files{'cache'}=/home/user/addns.db
> 
> Vysledkom nie je ziadny vystup.

Pridejte na zacatek te funkce radek

	print STDERR "Opening [$files{'cache'}]\n";

at vidime, jestli se ta funkce vubec vola a jakou hodnotu ma ten hash
%files (je to globalni promenna, zda se, takze ji mohl zmenit kdokoli)
v okamziku volani, a taky at vidime, jestli z te veci dostanete vubec
nejaky vystup (STDOUT muze byt v te chvili presmerovany).

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, large Web systems, XML/XSL, ...
		Only self-confident people can be simple.