🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: Wyciąganie danych z pliku

#39770
From: Grzegorz Szyszlo
Date: Fri, 22 Oct 2004 08:37
22 lines
1700 bytes
Twelve Hungry Mammoths wrote:

>>perl -ne "print substr($1.(' ' x 10,0,10),substr($2.(' ' x
> 
> 10,0,10),substr($3.(' ' x 10,0,10),"\n" if /X\(\n+\)=(\S*)\s(\S*)\s(\S*)/"
> plik>wyniki
> 
>>(linia sie pewnie polamala, posklejaj sobie)
> 
> dzizas... perldoc -f printf

w watku przyznalem sie bez bicia, ze o istnieniu printf zapomnialem :)
zreszta do takich celow zazwyczaj uzywam kilku prostych samodzielnie
zrobionych funkcji typu left($1,20), center($1,50), right($1,30)
itp, tyle ze do jednowierszowcow one sie nie nadaja.

btw. zamiast  substr($3.(' ' x 10,0,10)  (rownanie do lewej)
moznaby uzyc
$3.(' ' x (10-length($3)) , ale jesli $3 bedzie mialo wiecej niz 10 znakow
to wyrazenie zglupieje.

znik.
Technical Details
Message-ID: <clagua$r3k$1@news.lublin.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!lublin.pl!news.lublin.pl!not-for-mail
References: <slrn.pl.cn6mjp.mcv.tomjas@perrun.ha1rtr.agh.edu.pl> <ckvo6p$hra$1@news.lublin.pl> <cl91fp$lmg$1@news.dialog.net.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!lublin.pl!news.lublin.pl!not-for-mail
From: Grzegorz Szyszlo <znik@wbc.lublin.pl>
Newsgroups: pl.comp.lang.perl
Subject: Re: Wyciąganie danych z pliku
Date: Fri, 22 Oct 2004 10:37:46 +0200
Organization: lubman
Lines: 23
Message-ID: <clagua$r3k$1@news.lublin.pl>
References: <slrn.pl.cn6mjp.mcv.tomjas@perrun.ha1rtr.agh.edu.pl> <ckvo6p$hra$1@news.lublin.pl> <cl91fp$lmg$1@news.dialog.net.pl>
NNTP-Posting-Host: user.wbc.lublin.pl
Mime-Version: 1.0
X-Trace: news.lublin.pl 1098434314 27764 212.182.104.10 (22 Oct 2004 08:38:34 GMT)
X-Complaints-To: abuse@news.lublin.pl
NNTP-Posting-Date: Fri, 22 Oct 2004 08:38:34 +0000 (UTC)
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030721 Debian/1.4-1.nobse.2
X-Accept-Language: pl, en-us
In-Reply-To: <cl91fp$lmg$1@news.dialog.net.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit