🚀 go-pugleaf

Alan Ghafour <alan@gdansk.sprint.pl> wrote:
: On 29 Apr 1997, Jaroslaw Strzalkowski wrote:

: > Piotr Blaszynski <sloniu@delta.ii.tuniv.szczecin.pl> wrote:
: > : Czy da rade w PERLu napisac programik (jesli tak to jak to zrobic), ktory
: > : bedzie dopisywal ciag znakow ( powiedzmy <EOL>, ale niekoniecznie ) na
: > : okreslonym miejscu w kazdej linii pliku, dajmy na to na 74 pozycji.
: > 
: > perl -pe 's/^(.{74})/$1<EOL>/'
: > -- 
: > Jaroslaw Strzalkowski, Uczelniane Centrum Informatyki AGH, Krakow
: A moze raczej
: perl -pe `s/^(.{,73})(.*)/\1<EOL>\2/'

Że 73 a nie 74 to się zgodzę, natomiast po pierwsze nie ma potrzeby 
dodawać tego drugiego kawałka (po co zamieniać string na taki sam 
string? tylko niepotrzebna robota), po drugie po prawiej stronie 
wyrażenia s/// zalecane jest używanie $n zamiast \n - te pierwsze 
powinny być stosowane raczej po lewej stronie (gdzie $n jest jeszcze 
niezdefiniowane).

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND