Сгенерировать из двух файлов...

[1een]

Парни, как сделать такую штуку?
Есть два файла, в одном такие сроки типа:

Orange
Apple
Pine

А другом такие:

Eat x
X Suck
Buy x

То есть переменная и в начале, и в конце, по разному.
А мне в итоге надо вот так:

Eat Orange
Orange Suck
Buy Orange
Eat Apple
Apple Suck
Buy Apple
Eat Pine
Pine Suck
Buy Pine

Строк в итоге будут много, так что php может и помереть по дороге.

[imgreen]

Сообщение от Drunk Monk

только не принт, а $f=fopen("newfile.txt", "a"); fwrite($f, $newkey); fclose($f);

А то браузер лопнет

и файл, где миллионы строк читать построчно, хотя если на нормальной машине запускать, то и так пойдет

[dovgan]

ну да, лучше в файл сохранять

[dveredel]

Сообщение от Drunk Monk

только не принт, а $f=fopen("newfile.txt", "a"); fwrite($f, $newkey); fclose($f);

А то браузер лопнет

Если файл в цикле несколько миллионов раз открывать \ закрывать, то что нибудь другое тоже стопудово лопнет ...

[dovgan]

Сообщение от dveredel

Если файл в цикле несколько миллионов раз открывать \ закрывать, то что нибудь другое тоже стопудово лопнет ...

а кто мешает открыть его в начале и в цикле писать?

[imgreen]

Сообщение от dveredel

Если файл в цикле несколько миллионов раз открывать \ закрывать, то что нибудь другое тоже стопудово лопнет ...

а зачем его открывать/закрывать в цикле?
перед циклом открыл, после цикла закрыл

[dveredel]

Сообщение от imgreen

а зачем его открывать/закрывать в цикле?
перед циклом открыл, после цикла закрыл

Это Дранк предложил, а не я ) См. цитату

[Drunk Monk]

Ну ТС уж как-нибудь разберется

[1een]

Вариант-доделка Дранка пишет пустой файл

А в варианте от huanpedro я вставил {zamena} вместо X - выдает ошибку (со скобками что-то, синтакс еррор)

[huanpedro]

Все пашет, видимо заменил X не так.
вот попробуй здесь:
# file.pl
$zamena="X";
$/="\n";
$all="";
$i=0;
open FILE, "<keys.txt";
open FIL, "<sub.txt";
while($line=<FILE>)
{
chomp($line);
while($lin=<FIL>)
{
chomp($lin);
$lin=~s/$zamena/$line/g;
$all .= $lin."\n";
$i++;
if($i>1000)
{
open FFILE,"+>>out.txt";
print FFILE $all;
close FFILE;
$i=0;
$all="";
}
}
}
close FIL;
close FILE;
if($all ne "")
{
open FFILE,"+>>out.txt";
print FFILE $all;
close FFILE;
$i=0;
$all="";
}
print "ok";

[Drunk Monk]

Тут Капитан просил передать, что переменная $newkey пустая, пока ей не присвоить какое-нить значение