Re: Pomoc s Perlem

From: Ivanek (zlutypes@seznam.cz)
Date: 13. 05. 2003, 20:52 CEST


> muze mi nekdo poradit jak v Perlu nactu cely soubor naraz do promenne?
> Je na to nejaka takova funkce? Potrebuju mit v promenne jako retezec
> cely soubor presne tak jak je na disku.
> Diky, Kalumet.

Fce 'na to' neni, protoze si ji muzes napsat. Moznych reseni je samozrejme
spousta, jedno z nich je treba tohle:

sub file2str{
	my($file);
	{
		local(*INPUT,$/);
		open(INPUT,@_[0]) or die "Sorry, can't open @_[0]\r\n";
		binmode(INPUT);
		$file=<INPUT>;
	}
return $file;
}

A pak proste udelas treba:

$myfile=&file2str('./mujsoubor.ext');

BTW: pokud ti ve ve fci chybi zavreni souboru, tak nechybi... :). Soubor
se zavre sam, protoze po opusteni bloku zanikne handler.

Ivanek. 



______________________________________________________________________
Reklama:
On-line úvěr bez poplatku na http://www.burinka.cz! Přišel čas půjčit si na bydlení pohodlně.



This archive was generated by hypermail 2.1.3 : 13. 05. 2003, 20:52 CEST