Search & Replace also increment SOA

Hi,

Wondering if someone help with writing a perl script to do this:

Before:
;BIND DUMP V8
$ORIGIN com.
metropolitanbathtile 86400 IN NS ns1.ly.com. ;Cl=2
86400 IN NS ns2.ly.com. ;Cl=2
86400 IN SOA ns1.ly.com. webmaster.friend.ly.net. (
2005011101 10800 3600 604800 86400 ) ;Cl=2
86400 IN A 12.167.149.135 ;Cl=2
$ORIGIN metropolitanbathtile.com.
* 86400 IN A 12.167.149.135 ;Cl=2

After:

;BIND DUMP V8
$ORIGIN com.
metropolitanbathtile 86400 IN NS ns1.ly.net. ;Cl=2
86400 IN NS ns2.ly.net. ;Cl=2
86400 IN SOA ns1.ly.net. webmaster.friend.ly.net. (
2005011102 10800 3600 604800 86400 ) ;Cl=2
86400 IN A 12.167.149.135 ;Cl=2
$ORIGIN metropolitanbathtile.com.
* 86400 IN A 12.167.149.135 ;Cl=2


--- replace ly.com to ly.net
--- if mail.ly.com exist, then replace with email.ly.net
--- increment serial: 2005011101 to 2005011102


I know I can do this easily with sed but don't know how to increment the
serial number.

Thx in advance


_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Search & Replace also increment SOA

--===============1345993790==
Content-Type: multipart/alternative;
boundary="-----------------------------1174693890"


-------------------------------1174693890
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit


hi hawk --

In a message dated 3/23/2007 4:42:38 P.M. Eastern Standard Time,
Hawk@Friend.ly.Net writes:

> Hi,
>
> Wondering if someone help with writing a perl script to do this:
>
> Before:
> ;BIND DUMP V8
> $ORIGIN com.
> metropolitanbathtile 86400 IN NS ns1.ly.com. ;Cl=2
> 86400 IN NS ns2.ly.com. ;Cl=2
> 86400 IN SOA ns1.ly.com. webmaster.friend.ly.net. (
> 2005011101 10800 3600 604800 86400 ) ;Cl=2
> 86400 IN A 12.167.149.135 ;Cl=2
> $ORIGIN metropolitanbathtile.com.
> * 86400 IN A 12.167.149.135 ;Cl=2
>
> After:
>
> ;BIND DUMP V8
> $ORIGIN com.
> metropolitanbathtile 86400 IN NS ns1.ly.net. ;Cl=2
> 86400 IN NS ns2.ly.net. ;Cl=2
> 86400 IN SOA ns1.ly.net. webmaster.friend.ly.net. (
> 2005011102 10800 3600 604800 86400 ) ;Cl=2
> 86400 IN A 12.167.149.135 ;Cl=2
> $ORIGIN metropolitanbathtile.com.
> * 86400 IN A 12.167.149.135 ;Cl=2
>
>
> --- replace ly.com to ly.net
> --- if mail.ly.com exist, then replace with email.ly.net
> --- increment serial: 2005011101 to 2005011102
>
>
> I know I can do this easily with sed but don't know how to increment the
> serial number.
>
> Thx in advance


try something like this (assuming input is in file named ``before''):

C:\@Work\Perl\hawk@friend.ly.net>perl -pe
"s/(?<=ly\.)com/net/g;
s/mail\.ly\.com/email\.ly\.net/g;
my $sn = qr/2005\d{6}/; s/($sn)/ $1 + 1 /eg" before > after

define $sn to be whatever matches unambiguously with your serial number.
be aware that s/mail\.ly\.com/email\.ly\.net/g; is a little dangerous in
that
something like ``email.ly.com'' will become ``eemail.ly.net''. maybe put a
\b word boundary assertion in front of the pattern,
i.e., s/ \b mail\.ly\.com / email\.ly\.net /xg;

hth -- bill walters





************************************** AOL now offers free email to everyone.
Find out more about what's free from AOL at http://www.aol.com.

-------------------------------1174693890
Content-Type: text/html; charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable





Arial"=20
bottomMargin=3D7 leftMargin=3D7 topMargin=3D7 rightMargin=3D7> e_document=20
face=3DArial color=3D#000000 size=3D2>