🚀 go-pugleaf

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

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/'

Pozdrawiam
	aLAN
 __ __ __  _ _  _ ___   _  _ ___ ___   ______         Alan Ghafour 
(_  |_)|_) | |\ |  | __ |\ | |_   |   [/~~~~\]    Network Administrator
__) |  | \ | | \|  |    | \| |__  |    |_()_|     alan@gdansk.sprint.pl
                                                http://www.sprint.pl/~alan

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

On 30 Apr 1997, Piotr Piatkowski wrote:

> : perl -pe `s/^(.{,73})(.*)/\1<EOL>\2/'
> 
> Że 73 a nie 74 to się zgodzę, natomiast po pierwsze nie ma potrzeby 
To nie bedzie taki sam string, tylko podobny, bo na 74 pozycji pojawi sie
linia zostanie zlamana na dwie, bez utraty informacji)
<EOL> (nie zakladam akurat, ze to ma byc End Of Line, a jezeli nawet, to

> 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).
A tu sie zgodze.

Pozdrawiam
	aLAN

Alan Ghafour <alan@gdansk.sprint.pl> wrote:
: On 30 Apr 1997, Piotr Piatkowski wrote:

: > : perl -pe `s/^(.{,73})(.*)/\1<EOL>\2/'
: > 
: > Że 73 a nie 74 to się zgodzę, natomiast po pierwsze nie ma potrzeby 
: To nie bedzie taki sam string, tylko podobny, bo na 74 pozycji pojawi sie
: linia zostanie zlamana na dwie, bez utraty informacji)
: <EOL> (nie zakladam akurat, ze to ma byc End Of Line, a jezeli nawet, to

Mógłbyś powyższe napisać jeszcze raz w jakimś zrozumiałym języku? 
(może być perl)

P.S. Ja nie wyciąłem niczego - to się właśnie tak kończyło.

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

On 2 May 1997, Piotr Piatkowski wrote:

> Alan Ghafour <alan@gdansk.sprint.pl> wrote:
> : On 30 Apr 1997, Piotr Piatkowski wrote:
> 
> : > : perl -pe `s/^(.{,73})(.*)/\1<EOL>\2/'
> 
> Mógłbyś powyższe napisać jeszcze raz w jakimś zrozumiałym języku? 
> (może być perl)
Sorry, cos mi sie pop^H^H^H skopalo. :-)
Chodzilo mi o to, ze $2 ma za zadanie wstawic to co pierwotnie bylo po
znaku 73. Teraz bardziej zrozumiale ?
W perlu to bylo by wlasnie mniej wiecej tak jak na gorze :-)

Pozdrawiam
	aLAN
 __ __ __  _ _  _ ___   _  _ ___ ___   ______         Alan Ghafour 
(_  |_)|_) | |\ |  | __ |\ | |_   |   [/~~~~\]    Network Administrator
__) |  | \ | | \|  |    | \| |__  |    |_()_|     alan@gdansk.sprint.pl
                                                http://www.sprint.pl/~alan

Alan Ghafour <alan@gdansk.sprint.pl> wrote:
: On 2 May 1997, Piotr Piatkowski wrote:

: > Alan Ghafour <alan@gdansk.sprint.pl> wrote:
: > : On 30 Apr 1997, Piotr Piatkowski wrote:
: > 
: > : > : perl -pe `s/^(.{,73})(.*)/\1<EOL>\2/'
: > 
: > Mógłbyś powyższe napisać jeszcze raz w jakimś zrozumiałym języku? 
: > (może być perl)
: Sorry, cos mi sie pop^H^H^H skopalo. :-)
: Chodzilo mi o to, ze $2 ma za zadanie wstawic to co pierwotnie bylo po
: znaku 73. Teraz bardziej zrozumiale ?

Zdanie jest zrozumiałe, ale - Twoja wersja robi tak, że wycina cały 
tekst i wstawia go zpowrotem. Werjsa s/^(.{73})/$1<EOL>/ bierze 
początek i go przetwarza, końca nie ruszając. Więc działa dokładnie 
tak samo (z zewnątrz, trudno powiedzieć jak to wygląda "od środka"), 
ale Twoja wersja zawiera zbędne dodatki. 

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