🚀 go-pugleaf

W dniu 13.08.2010 17:20, robert.giedrowiczWYTNIJTO@poczta.onet.pl pisze:
>> W pliku rekordy.txt mam takie wpisy:
>>
>> plik1.bat "D:\magazyn\program"
>> plik2.vbs "D:\magazyn\program"
>> plik1.bat "D:\magazyn\program"
>> plik2.vbs "D:\magazyn\program"
>> plik1.bat "D:\magazyn\program"
>> plik2.vbs "D:\magazyn\program"
>> itd. itd.
>>
>> W drugim pliku nazwy.txt mam wpisy:
>> 10
>> 20
>> 30
>> 40
>> 50
>> itd. itd.
>>
>> Efektem końcowym musi być podmiana wyrazu "magazyn", tak aby plik rekordy.txt
>> miał postać:
>>
>> plik1.bat "D:\10\program"
>> plik2.vbs "D:\10\program"
>> plik1.bat "D:\20\program"
>> plik2.vbs "D:\20\program"
>> plik1.bat "D:\30\program"
>> plik2.vbs "D:\30\program"
>> plik1.bat "D:\40\program"
>> plik2.vbs "D:\40\program"
>> plik1.bat "D:\50\program"
>> plik2.vbs "D:\50\program"
>> itd. itd.
>>
>> Jak to zrobić skryptem perlowym ?
>>
> idealnie by było gdyby skrypt wykonał taką prace że sam tworzy wpis na podstawie
> pliku nazwy.txt
> Czyli podaje mu:
> perl.skrypt nazwy.txt
> i po uruchomieniu powstaje plik rekordy.txt z zawartością:
> plik1.bat "D:\10\program"
> plik2.vbs "D:\10\program"
> plik1.bat "D:\20\program"
> plik2.vbs "D:\20\program"
> plik1.bat "D:\30\program"
> plik2.vbs "D:\30\program"
> plik1.bat "D:\40\program"
> plik2.vbs "D:\40\program"
> plik1.bat "D:\50\program"
> plik2.vbs "D:\50\program"
>
>
>
>

Wczytujesz zawartość obu plików do dwóch tablic (@t1, @t2), następnie w 
pętli for ($i = 0; $i < @t1; $i++) bierzesz element $i z @t1 i @t2, i 
podmieniasz przez $t2[$i] =~ s/magazyn/$t1[$i]/

-- 
Pozdrawiam,
Tomasz "rocku" K.