Iskam da zamestvam opredelen tekst v tekstov fail.Podredbata e slednata :

fraza1 -> "zna4enie1" "zna4enie2" ...
fraza2 -> "zna4enie1" "zna4enie2" ...
Po princip podredbata nqma zna4enie.Moga da go napravq i sas Tie , no v windowsa nqma TIEARRAY, a samo TIEHASH.Ne iskam da svalqm novi moduli za celta zashtoto programata ima cel da e universalna i da moje da se izpylnqva bez da se svalqt dopylnitelni moduli.
Ta... da se vyrna na problema.
Vseki pat shte se dobavq novo zna4enie v zavisimost ot frazata. Sas substitution mislq da go napravq,no neshto ne moga da ucelq to4no kak da otvorq faila(a sym go pravil tova nqkoga i to mnogo pati).Dali ne e zaradi Windowsa.Probvah:
open(FH,"+< file.txt") - tuk nishto ne se promenq
open(FH,"+> file.txt") - tuk se iztriva faila
open(FH,"+>> file.txt") - tuk sashto nishto ne se promenq
sysopen(FH,"file.txt",O_RDWR| O_APPEND) - kakto i tuk

izpolzvam primerno:
$newstring ="zna4enie3";
while (<FH>) {
s#\S+\s->\s(.*)#$1 $newstring#;
}
Mnogo shte sym vi blagodaren ako mi kajete nqkoi siguren na4in.

use Tie::File;

$file = 'myfile.dict';
$phrase = "fraza242";
$additionalmeaning = ' "An Additional Meaning of Phrase 242"';

tie @file, 'Tie::File', $file or die "Could not tie file $file because $!";

(tied @file)->autodefer(1);

for (@array)
{
if (/^$phrase/) { $_ .= $additionalmeaning; }
}


RTFM!
--sdg

Blagodaq mnogo.Az tova go 4etoh i vav perlfaq i vav www.perlmonks.org , no si mislq nqma li da zaeme mnogo pamet tozi masiv sled kato tezi danni po nqkoe vreme shte stanat golemi,zashtoto sled edin takyv cikal,koito shte mine prez celiq fail samiqt masiv shte sydyrja faila?

Прочети внимателно документацията на Tie::File и сам ще си отговориш на въпроса :-)


RTFM!
--sdg

Oshte v na4aloto na dokumentaciqta si otgovorih :))
The file is not loaded into memory, so this will work even for gigantic files.
I m/u drugoto tozi modul mi vyrshi idealna rabota.Blagodarq ti mnogo