🚀 go-pugleaf

On Thu, 23 Sep 2010 09:23:43 +0200, Maciej Misiak wrote:

> 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 $_:

Może pod Windows. W moim unixowym manualu jest napisane:

       -0[octal/hexadecimal]
            specifies the input record separator ($/) as an octal or hexadecimal number.  If there are no digits, the
            null character is the separator.  Other switches may precede or follow the digits.  For example, if you
            have a version of find which can print filenames terminated by the null character, you can say this:

                find . -name ’*.orig’ -print0 | perl -n0e unlink

            The special value 00 will cause Perl to slurp files in paragraph mode.  The value 0777 will cause Perl to
            slurp files whole because there is no legal byte with that value.

czyli -0 nie wciągnie całego pliku, jeśli ten zawiera NUL, -0777 wciągnie.

> C:\scripts>perl -p0e "s/DANE/$ip/||s/.*//;$ip=$&" plik-NUMER1 plik-NUMER2

...albo:

$ cat plik-NUMER1 plik-NUMER2 | perl -0777 -pe 's/(.*?)\nip=DANE/ip=$1/' 

i zadziała (oczywiście zakładając, że pliki mają format dokładnie taki jak 
w oryginalnym pytaniu) :-)

-- 
Szymon Sokół (SS316-RIPE) -- Network Manager                                 B
Computer Center, AGH - University of Science and Technology, Cracow, Poland  O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982  F
Free speech includes the right not to listen, if not interested -- Heinlein  H