Re: [PERL] problem klippe en fil i stykker

[Ole Tange <sslug@sslug>]

On Wed, 13 Jun 2001, Valdemar Lemche wrote:

> hvis jeg har en fil som følgende:
> 
> ---SNIP---
> zone "test.com" {
>     type master;
>     file "master/com/test.com";
> };
> 
> zone "test.org" {
>     type master;
>     file "master/org/test.org";
> };
> 
> zone "test.net" {
>     type master;
>     file "master/net/test.net";
> };
> ---SNIP---

> og jeg vil have hvert "zone entry" behandlet for sig, hvordan får jeg så
> perl til at seperere ved hver "zone" istedet som i fx. nedstående
> exemple, hvor hver newline angiver et nyt entry?
> 
> ---SNIP---
> #!/usr/bin/perl -w
> open(NAMED_CONF,"named.conf");

$/="\n\n";

> @named_conf = <NAMED_CONF>;
> print "@named_conf\n";
> ---SNIP---

/Ole
-- 
There's a good chance I'd win the suit, but I'd go broke in the process.
         -- Problemet med softwarepatenter i en nøddeskal (Bruce Perens)