Znachi poneje dosta neshta v perl zasega sa novost za men (imam poveche opit s php i mysql) iskam da popitam neshto

Reshil sum da si napravia edin news script obache kogato zapochnah da obmisliam strukturata na bazata danni izkochiha niakolko vuprositelni.

da kajem che napravia neshto podobno kato tablica news v mysql (v sluchaia shte bude file primerno news.dat) i novinite se zapisvat po slednia nachin

avtor|news title|news body|date

taka znachi ako polzvah mysql vsichko shteshe da si bude nared zashtoto zadavam niakakva komanda da mi selectne samo purvite 5 rows (purvite 5 novini) i e ok obache tuk triabva s open() funkciata da otvoria celia file i sled tova da si igraia sumati vreme sus arrays i hashes... do tuk dobre no da kajem che niakoi boji den novinite vzemat che stanat 5000 (pri edin mysql server tova ne e nikakuv problem) no tuk ako fila vzeme che stane 30-40 mb i pri vseki request tozi file triabva da se loadva v handler i da se zapisva v array i t.n....

znachi vuprosa mi e v tozi sluchai tova shte povliae li znachitelno na performance-a na servera i shte vzima li strashno mnogo pamet? (veroiatno da) ako da to kak moga da se oturva ot tozi problem?

a i ima li nachin da kajem

open(DATA, "./news.dat");
my @data = <DATA>;
close(DATA);

tova neshto otgore vmesto da otvaria celia file da otvori samo purvite 5 reda ot fila

Що не пробваш нещо такова (предполагам че си на сървър, който е под Linux, Unix и т.н.) :
$news = `head ./news.dat` ;
Само не мога да се сетя как се задаваше колко реда да отдели head... виж в man page на командата. Пък ако искаш от края -> tail по същия начин. Дано помогне

ami ako oste ne si si nameril reshenie:

1. head se polzva taka:

head -n 5 news.dat

2. taka susto vzimash purvite 5 reda ot faila:

open (F,"tmp.txt");



for ($i = 0 ; $i<5 ; $i++ ){



   $tmp = <F>;

   push (@text,$tmp)

}



close (F);

aha iasno
mersi
ami ne polzvam mysql zashtoto go niama instaliran na servera a hosta nikoga niama da go sloji (strashni skeptici sa)

oste edin variant na sastoto:

open(IFILE, "test.txt");
while($. < 5) {$line = <IFILE>; push(@arr, $line);}
close(IFILE);

mersi, dosta mi pomognahte
a sluchaino da znaete tochno kak deistva open() funkciata
toest kogato se poiavi na bial sviat handlera tova znachi li che sudurjanieto na fila e zaredeno niakade v pametta ili prosto samo ima otvorena vruzka kum tozi file?

mne
samo poluchavash handler i tova - kato v C i drugite ezici