Please edit your code and wrap it in [code] tags! (See the top of the WIKI editor.)
Based on your first sample (corrected by Scott), here is something that works with the indention:
The sub() strips the comma at the end if the next line has got less indention.
I am having a problem here. We are having several problems in regards to hung process's on unix (HPUX box), caused by my RF equipment (Mobile data capture units). these contact the host via a simply telnet session and locks the system?
Is it a timeout problem as the timeout is disabled on the host. (5 Replies)
I wish to substituite a string on each line but ONLY if it appears within double-quotes:
this_string="abc#def#geh" # Comment here
I wish to change the "#" characters within the double quoted string to "_":
this_string="abc_def_geh" # Comment here
... but as you see, the "comment" hash... (2 Replies)
Hey guys im trying to get this if statement to work and i dont know whats wrong. can anybody help?
if($author=~/\A+\Z/i)&&(length($author!=0))
{
print " $author validation correct"
}
elsif($author!=~/\A+\Z/i)&&(length($author=0))
{
$author='BLANK';
}
else
{
... (1 Reply)
Suppose I have two files 1.txt and 2.txt.
My aim is to find (Total execution time/Number of executions)
then sort the result as in decreasing order.
Can anyone provide me any shell/perl/awk script or a Command to do that in faster way ?
1.txt :
===============================
Number of... (4 Replies)
I have created a dummy file -demo.txt
On my machine-A (oslevel-5300-08) I can display the file content in HEX format through VI editor using :%!xxd but on other machine-B (oslevel - 5300-06) , I get error as "sh: xxd: not found."
machine-A:
$ cat demo.txt
Hello World !
I can display... (7 Replies)
guys,
I need a steer in the right direction for this issue. it would be great if anyone of you can help me out.
i have a textfile where i want to swap the lines based on the user input.
The textfile is looks like the
#file 1 name
TB
#file 1 ID
1000
#
#file for ID1 system1... (3 Replies)
hi there
I have a view which is working fine, but i have been told that i need to make sure the resulting output excludes all rows with nic_status equal to the string "removed".
Does anybody know in which part of the code below i would place the conditional ...
WHERE nic_status !=... (4 Replies)
Hi all, I just signed up to the forums, although, I have lurked on here for awhile. Anyways, my issue is I am trying to get awk to spit out something I can use without having to spend hours in excel hell haha. So, I used sed to replace the spaces with semicolons and redirected that to a file. ... (6 Replies)
Hi.,
I need to ask question for expect script.
I have prompt like #
and very long script (orachk).
I added to expect script line
set prompt "(%|#|\\\$) $"
and insert into it also piece of code
----
expect {
timeout {
puts "Running..."
exp_continue
}
... (0 Replies)
Discussion started by: beckss
0 Replies
LEARN ABOUT DEBIAN
net::dns::question
Net::DNS::Question(3pm) User Contributed Perl Documentation Net::DNS::Question(3pm)NAME
Net::DNS::Question - DNS question class
SYNOPSIS
"use Net::DNS::Question"
DESCRIPTION
A "Net::DNS::Question" object represents a record in the question section of a DNS packet.
METHODS
new
$question = Net::DNS::Question->new("example.com", "MX", "IN");
Creates a question object from the domain, type, and class passed as arguments.
RFC4291 and RFC4632 IP address/prefix notation is supported for queries in in-addr.arpa and ip6.arpa subdomains.
parse
($question, $offset) = Net::DNS::Question->parse($data, $offset);
Parses a question section record at the specified location within a DNS packet. The first argument is a reference to the packet data. The
second argument is the offset within the packet where the question record begins.
Returns a Net::DNS::Question object and the offset of the next location in the packet.
Parsing is aborted if the question object cannot be created (e.g., corrupt or insufficient data).
qname, zname
print "qname = ", $question->qname, "
";
print "zname = ", $question->zname, "
";
Returns the domain name. In dynamic update packets, this field is known as "zname" and refers to the zone name.
qtype, ztype
print "qtype = ", $question->qtype, "
";
print "ztype = ", $question->ztype, "
";
Returns the record type. In dymamic update packets, this field is known as "ztype" and refers to the zone type (must be SOA).
qclass, zclass
print "qclass = ", $question->qclass, "
";
print "zclass = ", $question->zclass, "
";
Returns the record class. In dynamic update packets, this field is known as "zclass" and refers to the zone's class.
print
$question->print;
Prints the question record on the standard output.
string
print $qr->string, "
";
Returns a string representation of the question record.
data
$qdata = $question->data($packet, $offset);
Returns the question record in binary format suitable for inclusion in a DNS packet.
Arguments are a "Net::DNS::Packet" object and the offset within that packet's data where the "Net::DNS::Question" record is to be stored.
This information is necessary for using compressed domain names.
COPYRIGHT
Copyright (c) 1997-2002 Michael Fuhr.
Portions Copyright (c) 2002-2004 Chris Reinhardt.
Portions Copyright (c) 2003,2006-2009 Dick Franks.
All rights reserved.
This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO perl(1), Net::DNS, Net::DNS::Resolver, Net::DNS::Packet, Net::DNS::Update, Net::DNS::Header, Net::DNS::RR, RFC 1035 Section 4.1.2
perl v5.14.2 2009-12-30 Net::DNS::Question(3pm)