🚀 go-pugleaf

On Mon, 5 May 1997, napisalem:

> przynam sie ze nie czuje sie sie zbyt pewnie zadajac to pytanie... 
> (jako koder czy tym bardziej programista jestem zupelnym ignorantem) 
> stoi przede mna nastepujace zadanie: 
> napisac jakis programik konwerujacy /etc/hosts do plikow dns 
>
jakby ktos biegly w pismie (sorry... perlu) chcial rzucic okiem na 
moje wypociny i powidziec gdzie tkwi blad...
to zapraszam:
http://www.digilab.com.pl/~ziembor/perl/

-- Ziemek Borowski

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/

On 5 May 1997, Artur Czechowski wrote:

> 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:
kawalek wyglada zachecajaco... 
trzeba bedzie jeszcze tylko (na pierwszy rzut mego niedoswiadczczonego oka
pobisac rev.dns a tutaj glownie mnie awk/bash zawiod ;-) 
w kazdym badz razie za recepte i RTFman dzieki....

-- Ziemek Borowski
http://www.digilab.com.pl/pl.comp.www/faq.htm 

Ziemek Borowski <ziembor@digilab.com.pl> wrote:
: przynam sie ze nie czuje sie sie zbyt pewnie zadajac to pytanie... 
: (jako koder czy tym bardziej programista jestem zupelnym ignorantem) 
: stoi przede mna nastepujace zadanie: 
: napisas jakis programik konwerujacy /etc/hosts do plikow dns 

Zamiast grzebać się w /etc/hosts bezpośrednio, użyj funkcji 
gethostent() (man perlfunc) Oczywiście wcześniej musisz wyciągnąć 
sobie listę hostów, ale potem już łatwiej jest użyć gethostent, która
od razu wrzuca co trzeba do odpowiednich zmiennych.

: czy mozna w perlu stosowac w jakis sposob separatory pol (FS w awku) 
: i to to najlepiej ,,podwojne'' tj. coby separatorem byla zarowno
: spacja, tabulator (i ich zbitka) jak i kropka i co za tym idzie
: ,,identyfikatory pol'' typu $1 itp. (tj. w tym wypadku:
: $[1-4] na IPv4 $5 na nazwe hosta a $6-do spacji na domene) 

my @tab = split / \t\./;

powoduje podzielenie tekstu w $_ (jeżeli ma być co innego, można 
podać jako drugi argument) za pomocą separatorów zdefiniowanych jako 
wyrażenie reguralne podane po split. Czyli powyższe dzieli linijkę w 
miejscach gdzie są spacje, kropki, tabulatory, lub ich dowolna 
kombinacja. Później odwoływać się można przez $tab[0], $tab[1], 
etc...

: mam nadzieje ze jasno sie wyslowilem... ;-) 

Niespecjalnie :->  Ale ja chyba też niezbyt...

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