However, your regex doesn't work

You're right here. I deleted a " by accident. Here's the fix:

$rrstring =~ s/^((?:[^\n";]+|"(?:[^\n"\\]|\\[^\n])*")*);[^\n]*$/$1/mg;
                        ^
                        was missing

[download]
I also disagree with you assertion that the patch won't allow backslashed quotes within TXT RDATA.

It completely ignores backslashes, so I knew there was a problem. I was only wrong in how it fails. Your patch does allow backslashes, but it incorrectly finds the end of the quoted string.

Here's a string where it fails to work:

# Here's the simplest case where it fails:
# $expect = "\"Joe\"";
# $rdata  = $expect . " ; \"comment\"";

$expect = "\"John \\\"The Wiz\\\" Doe; programmer\"";
$rdata  = $expect . " ; \"comment\"";

print("Input:  ", $rdata,  $/);
print("Expect: ", $expect, $/);

if(($rdata)=~m[;]) {
                if(($rdata)=~m[^(".*")($|\s*;)]) {
                    $rdata = $1;
                } else {
                    ($rdata)=~s/;.*//g;
                }
            }

print("Get:    ", $rdata, $/);

__END__
output
======
Input:  "John \"The Wiz\" Doe; programmer" ; "comment"
Expect: "John \"The Wiz\" Doe; programmer"
Get:    "John \"The Wiz\" Doe; programmer" ; "comment"

[download]

btw, the /g in ($rdata)=~s/;.*//g; is not necessary.

In reply to Re^3: Net::DNS::RR patch by ikegami
in thread Net::DNS::RR patch by slife

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.