בperl מיועד למערכת שיש בה dig, (שקיים בכל מחשב LINUX)
#!/usr/bin/perl -w
my $NS = `dig +short -t NS $ARGV | head -1`;
chomp $NS;
my $MX = `dig @$NS +short -t MX $ARGV`;
print $MX;
|
אני בודק מי הAUTHORITY שאחראי, לוקח רק את הראשון, ואז עושה
שאילתת MX, ומחזיר את כל התשובות.
אפשר עם רוצים תשובה נקייה, לשנות את הdig השני ולכתוב:
my $MX = `dig @$NS +short -t MX $ARGV | head -1 | cut -d" " -f1`;
chomp $MX
|
וזה יחתוך את המספר המוביל, ויתן תשובה בודדת ללא newline
כך אפשר להכניס התשובה לתוך תוכנית אחרת.
זה כל-כך פשוט יותר, על מערכת לינוקס.
DRYICE
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
