Article View: pl.comp.lang.perl
Article #231Re: trywialne zadanie: hosts 2 dns (dluzsze)
From: Artur Czechowski
Date: Mon, 05 May 1997 08:56
Date: Mon, 05 May 1997 08:56
32 lines
1519 bytes
1519 bytes
In pl.comp.lang.perl Ziemek Borowski <ziembor@digilab.com.pl> wrote:
> czy mozna (no poza jakas glupia konstukcja:
[cut]
> w perlu stosowac w jakis sposob separatory pol (FS w awku)
Poczytaj manual do perlfunc i poszukaj opisu funkcji split.
A jak Ci się nie chce czytać manuala to zobacz to poczytaj poniższy kawałek:
#!/usr/bin/perl
open HOST,"/etc/hosts";
while (<HOST>) {
chop;
s/\t/ /g;
s/ +/ /g;
s/^ +//g;
if (! ((/^#/)||(/^$/)) ) {
@linia=split(/ /);
for($i=1;$i<=$#linia;$i++) {
if ($i==1) {
print "$linia[$i]\t\tIN A\t$linia[0]\n";
} else {
print "$linia[$i]\t\tIN CNAME\t$linia[1]\n";
}
}
}
}
close HOST;
Pozdrówka
--
Artur Czechowski, arturcz@cyf.gov.pl, Instytut Energii Atomowej, Świerk
http://www.cyf.gov.pl/~arturcz/
Technical Details
Message-ID:
<5kk7bk$3jm$1@l3xhp.cyf.gov.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!news.radio.cz!europa.clark.net!newsfeeds.sol.net!nntp.uio.no!ict.pwr.wroc.pl!cyf.gov.pl!l3xhp.cyf.gov.pl!not-for-mailReferences:
<5kjapb$kap@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!news.radio.cz!europa.clark.net!newsfeeds.sol.net!nntp.uio.no!ict.pwr.wroc.pl!cyf.gov.pl!l3xhp.cyf.gov.pl!not-for-mail From: arturcz@cyf.gov.pl (Artur Czechowski) Newsgroups: pl.comp.lang.perl Subject: Re: trywialne zadanie: hosts 2 dns (dluzsze) Date: 5 May 1997 08:56:20 GMT Organization: Instytut Energii Atomowej Lines: 32 Message-ID: <5kk7bk$3jm$1@l3xhp.cyf.gov.pl> References: <5kjapb$kap@info.nask.pl> NNTP-Posting-Host: l3xhp.cyf.gov.pl Mime-Version: 1.0 X-WWW: http://www.cyf.gov.pl/~arturcz/ X-Newsreader: TIN [UNIX 1.3 unoff BETA release 960901] Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit