URL: https://linuxfr.org/forums/programmation-perl/posts/besoin-d-aide-pour-mon-premier-script-en-perl-parser-un-fichier-bind
Title: Besoin d'aide pour mon premier script en perl: parser un fichier BIND
Authors: Orwell
Date: 2015年07月07日T17:57:18+02:00
License: CC By-SA
Tags: bind9
Score: 0
Bonjour à tous,
Je suis tout nouveau en perl et je viens du monde ms.
Ne connaissant que vbs et powershell il faudra être patient avec moi.
Bon voilà mon besoins:
Je dois faire des modifications massive d'enregistrements DNS dans 15 zones Bind9.7.
En entrée j'ai un fichier csv qui se compose ainsi.
RecordName,Type,NewIP
SERVER1,A,YYYY
server2,A,YYYY
L'idée algorithmique serait la suivante:
```sh
#------debut script ------------------
 $csvfile = readcsv(/tmp/csv)
 $zonefile = open (/var/cache/bind/mydomain.com)
 
 foreach ($row in $csvfile)
 {
 $RowMemberTab = split ($row,[,]) /* split la ligne dans un tableau ,separateur = , */
 
 foreach ($record in $zonefile)
 {
 $recordMemberTab = split ($record, [blank space]) /* Split la ligne dans un tableau séparateur = espace blanc */ 
 
 if $recordMemberTab(1) match $RowMemberTab(1)
 {
 print ( ";" + $record -> $zonefile) /* duplique la ligne en insérant ; en debut de ligne)
 delete ( $record -> $zonefile) /* supprime la ligne */
 print $RowMemberTab(1) + \t + $RowMemberTab(2) + $RowMemberTab(3) -> $zonefile 
 /* ecrit une nouvelle ligne avec les infos du csv et separateur tabulation */
 }
 else 
 {
 print ( $RowMemberTab(1) + \t + $RowMemberTab(2) + $RowMemberTab(3) -> $zonefile )
 }
 next 
 }
 }
 $zonefile.write()
 $zonefile.close()
#---------- fin script -------------------
```
Mais je ne sais pas la traduire en perl.
Un coup de main serait le bien venu
Merci par avance de votre aide
0rwell
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/besoin-d-aide-pour-mon-premier-script-en-perl-parser-un-fichier-bind.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/besoin-d-aide-pour-mon-premier-script-en-perl-parser-un-fichier-bind.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>