Article View: pl.comp.lang.perl
Article #217Re: Dopisywanie do pliku ciagu zakow, w kazdej linii.
From: Alan Ghafour
Date: Tue, 29 Apr 1997 17:27
Date: Tue, 29 Apr 1997 17:27
19 lines
1514 bytes
1514 bytes
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
Technical Details
Message-ID:
<Pine.GSO.3.96.970429192532.4013A-100000@netra.gdansk.sprint.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!news.nask.pl!netra.gdansk.sprint.pl!alanReferences:
<5k4efj$51t@info.nask.pl> <5k4lpg$l4m$1@galaxy.uci.agh.edu.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!news.nask.pl!netra.gdansk.sprint.pl!alan From: Alan Ghafour <alan@gdansk.sprint.pl> Newsgroups: pl.comp.lang.perl Subject: Re: Dopisywanie do pliku ciagu zakow, w kazdej linii. Date: Tue, 29 Apr 1997 19:27:03 +0200 Organization: Public NewsServer at NASK N.O.C. Lines: 20 Message-ID: <Pine.GSO.3.96.970429192532.4013A-100000@netra.gdansk.sprint.pl> References: <5k4efj$51t@info.nask.pl> <5k4lpg$l4m$1@galaxy.uci.agh.edu.pl> NNTP-Posting-Host: red.gdansk.sprint.pl Mime-Version: 1.0 In-Reply-To: <5k4lpg$l4m$1@galaxy.uci.agh.edu.pl> Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit