podmiana wyrazu z pliku lista.txt

Thread View: pl.comp.lang.perl

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by robert.giedrowiczWYTNIJTO Fri, 13 Aug 2010 15:14

#51964

Author: robert.giedrowiczWYTNIJTO
Date: Fri, 13 Aug 2010 15:14

38 lines
1701 bytes

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 ?


-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl

Re: podmiana wyrazu z pliku lista.txt

#51965

Author: robert.giedrowiczWYTNIJTO
Date: Fri, 13 Aug 2010 15:20

56 lines
2289 bytes

> 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"




-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl

Re: podmiana wyrazu z pliku lista.txt

#51966

Author: Tomasz "rocku" K.
Date: Sat, 14 Aug 2010 17:48

63 lines
2595 bytes

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.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads