🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #216

Re: Dopisywanie do pliku ciagu zakow, w kazdej linii.

#216
From: Jaroslaw Strzalkowski
Date: Tue, 29 Apr 1997 11:24
8 lines
1043 bytes
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
Technical Details
Message-ID: <5k4lpg$l4m$1@galaxy.uci.agh.edu.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!ict.pwr.wroc.pl!agh.edu.pl!agh.edu.pl!not-for-mail
References: <5k4efj$51t@info.nask.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!ict.pwr.wroc.pl!agh.edu.pl!agh.edu.pl!not-for-mail
From: js@galaxy.uci.agh.edu.pl (Jaroslaw Strzalkowski)
Newsgroups: pl.comp.lang.perl
Subject: Re: Dopisywanie do pliku ciagu zakow, w kazdej linii.
Date: 29 Apr 1997 13:24:32 +0200
Organization: University of Mining & Metallurgy
Lines: 8
Message-ID: <5k4lpg$l4m$1@galaxy.uci.agh.edu.pl>
References: <5k4efj$51t@info.nask.pl>
NNTP-Posting-Host: galaxy.uci.agh.edu.pl
X-Newsreader: TIN [UNIX 1.3 unoff BETA 970307; sun4m SunOS 5.5.1]
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit