🚀 go-pugleaf

> > chcialbym zassac zawartosc z jednego pliku do drugiego czyli mam:
> > 
> > plik-NUMER1 - a w srodku wpisane 192.168.0.10
> > 
> > plik-NUMER2 - a w srodku wpisane:
> > 
> > ip=DANE
> > /sbin/iptables -t nat -I PREROUTING -p tcp -s $ip
> > 
> > efekt koncowy jaki chcialbym uzyskac to plik-NUMER3 o zawartosci:
> > 
> > ip=192.168.0.10
> > /sbin/iptables -t nat -I PREROUTING -p tcp -s $ip
> 
> No cóż, otwieranie pliku, wczytywanie zawartości i zapisywanie w innym pliku to
> w pierwszym lepszym tutorialu mógłbyś doczytać.
> Jak już będziesz miał zawartość pierwszego pliku w jednej zmiennej i zawartość
> drugiego pliku w drugiej zmiennej to w dowolnym tutorialu o regexpach doczytasz
> sobie jak znaleźć ciąg znaków i zamienić na inny. Hint: w regexpie nie będzie
> żadnych specjalnych flag. Prosty prymitywny find i replace.
> 
> Oczywiście można pogolfować...
> perl -pe "s/$ip.*/$ip=$_;''/e;s/DANE/$ip/" plik-NUMER1 plik-NUMER2 > plik-NUMER3

Swoją drogą człowiek się całe życie uczy...
Spodziewałem się, że i takie coś zadziała:

C:\scripts>perl -p0e "s/(.*)ip=DANE/ip=$1/" plik-NUMER1 plik-NUMER2

a tu lipa.
Więc żeby skorzystać z "dodatkowego" feature, że p0 wciąga po jednym pliku do $_:
C:\scripts>perl -p0e "s/DANE/$ip/||s/.*//;$ip=$&" plik-NUMER1 plik-NUMER2

-- 
grizzley

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