«

Hi All,

I'm looking to write a perl script to edit TTL's in zone files. Ideally, I'd like to write it as:

../script -f <filename> <newTTL>

and

../script -d <directoryname> <newTTL>

to either edit just one file or all files in a directory.

I've installed and read the perldoc information on DNS::ZoneParse but still don't see how to set it up to edit the TTL.

Questions:

- Is DNS::ZoneParse indeed the best way to obtain the desired functionality or is there a better way to do this?

- Does anyone have a code snippet that they've used to edit TTL's?

Any guidance is greatly appreciated.

TIA,

Herb

>>>>> "hb" == herbert burnswell <> writes:

hb> I'm looking to write a perl script to edit TTL's in zone files.
hb> Ideally, I'd like to write it as:

hb> ./script -f <filename> <newTTL>

hb> and

hb> ./script -d <directoryname> <newTTL>

hb> to either edit just one file or all files in a directory.

as a start, look at edit_file in File::Slurp on cpan. it makes it easy
to edit any file with one call. so if that dns module works for you on a
string in ram, it will be easy to write the whole thing.

uri

On 2012-05-04 23:21, <> wrote:
> I'm looking to write a perl script to edit TTL's in zone files. Ideally, I'd like to write it as:
>
> ./script -f <filename> <newTTL>
>
> and
>
> ./script -d <directoryname> <newTTL>
>
> to either edit just one file or all files in a directory.

Not a direct answer to your question, but it may simplify the problem:

If you want all the records in the zone file to have the same TTL,
add a $TTL directive at the top and omit the TTL in the individual
records.

hp


--
_ | Peter J. Holzer | Deprecating human carelessness and
|_|_) | Sysadmin WSR | ignorance has no successful track record.
| | | |
__/ | http://www.hjp.at/ | -- Bill Code on

On Friday, May 4, 2012 4:21:12 PM UTC-7, herbert....@gmail.com wrote:
> Hi All,
>
> I'm looking to write a perl script to edit TTL's in zone files. Ideally, I'd like to write it as:
>
> ./script -f <filename> <newTTL>
>
> and
>
> ./script -d <directoryname> <newTTL>
>
> to either edit just one file or all files in a directory.
>
> I've installed and read the perldoc information on DNS::ZoneParse but still don't see how to set it up to edit the TTL.
>
> Questions:
>
> - Is DNS::ZoneParse indeed the best way to obtain the desired functionality or is there a better way to do this?
>
> - Does anyone have a code snippet that they've used to edit TTL's?
>
> Any guidance is greatly appreciated.
>
> TIA,
>
> Herb



On Friday, May 4, 2012 4:21:12 PM UTC-7, herbert....@gmail.com wrote:
> Hi All,
>
> I'm looking to write a perl script to edit TTL's in zone files. Ideally, I'd like to write it as:
>
> ./script -f <filename> <newTTL>
>
> and
>
> ./script -d <directoryname> <newTTL>
>
> to either edit just one file or all files in a directory.
>
> I've installed and read the perldoc information on DNS::ZoneParse but still don't see how to set it up to edit the TTL.
>
> Questions:
>
> - Is DNS::ZoneParse indeed the best way to obtain the desired functionality or is there a better way to do this?
>
> - Does anyone have a code snippet that they've used to edit TTL's?
>
> Any guidance is greatly appreciated.
>
> TIA,
>
> Herb

Hi,

Thanks for the replies... I am investigating the suggestions and will have to figure out what works best for my needs. I was hoping this might be a bit more straight forward than it appears to be.

Thanks again,

Herb

Herb,

what is it that you actually want to do?

Incrementing or what?

el


On 2012-05-09 01:03 , wrote:
[...]
>
> Hi,
>
> Thanks for the replies... I am investigating the suggestions and will have to figure out what works best for my needs. I was hoping this might be a bit more straight forward than it appears to be.
>
> Thanks again,
>
> Herb


--
If you want to email me, replace nospam with el