Ruzne chovani

[Honza Pazdziora]

On Tue, May 06, 2003 at 01:51:08AM +0200, Jindroush wrote:
> Hi,
> 
> vidi nekdo na prvni pohled chybu v nasledujicim kodu? U me to funguje
> okay, kolegovi se to tvari, jako by ten vstupni soubor mel 0 delku,
> proste ten readline asi hned vrati undef. Vim, ze v tech filehandlech
> plavu, ale kdyz me to tady na 5.6.1 (ActiveState 626) chodi a kolegovi v
> praci na 5.6.1 (ActiveState 631?) ne.
> 
> sub open()
> {
> 	my $self = $_[0];
> 	my $fname = $_[1];
> 
> 	local *FH;
> 
> 	close( FH );
> 	if( ! open FH, $fname )
> 	{
> 		die "Can't open infile '$fname'! ($&)\n";
> 	}
> 
> 	$$self{ handle } = \*FH;
> }
> 
> sub close()
> {
> 	my $self = $_[0];
> 	close $self->{ handle };
> }
> 
> sub getline()
> {
> 	my $self = $_[0];
> 	return readline( *{ $$self{ handle } } );
> }

Nejak tomu prikladu chybi nejaky kod, ktery by se spoustel ...

Kazdopadne neni lepsi pouzit IO::Handle, FileHandle, nebo podobne
reseni, kde byste se vubec s temy typegloby nemusel zalamovat?

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