02-22-2009
I know my solution works. I read your question, I understood your question, I tested my code, then I posted a reply. The other guy simply did not understand the question, we are all guilty of that at times.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello,
I am trying to output the values in an array to a file. The output needs to be formated such that each array value is left jusified in a field 8 character spaces long. Also, no more than 6 fields on a line. For example:
@array= 1..14;
Needs to be output to the file like so:
1 ... (4 Replies)
Discussion started by: seismic_willy
4 Replies
2. Shell Programming and Scripting
I am not sure if this is doable. I am trying to open and print the content of the file by replacing all instances fo perl to PERL . This is my code but it is
giving me the number count instead of the actual lines with changes.
open (PERLHISTORY, 'sample.txt') or die "The file sample.txt could... (3 Replies)
Discussion started by: jxh461
3 Replies
3. Shell Programming and Scripting
Hi
can anyone suggest me how to write a file containing values,... say
19
20
21
22
..
40
to an array @array = (19, 20, ... 40)
-- Thanks (27 Replies)
Discussion started by: meghana
27 Replies
4. Shell Programming and Scripting
Hi everyone
I have one question about using array in perl. let say I have several log file in one folder.. example
test1.log
test2.log
test3.log
and the list goes on..
how to make an array for this file? It suppose to detect log file in the current directory and all the log file will... (3 Replies)
Discussion started by: sayachop
3 Replies
5. Shell Programming and Scripting
How to store the content from array to either "row-column" or "column-row" order? (0 Replies)
Discussion started by: kavi.mogu
0 Replies
6. Shell Programming and Scripting
I'm using Mail::Internet module, which will basically filter through email content and extract the body of the message
my perl script to extract the body of the email
#!/usr/bin/perl -w
use Mail::Internet;
@lines = <STDIN>;
$mi_obj = new Mail::Internet();
... (2 Replies)
Discussion started by: amlife
2 Replies
7. Shell Programming and Scripting
Hi, as the title, I have an array @f_lines with gene information in it. How can I put the content of @f_lines into a file so that I can read it?
I tried this:
open(OUTPUT, "file"); # put gene information in this file;
@f_lines = ("gene1", "gene2", "gene3"...); # gene information;
print... (3 Replies)
Discussion started by: lyni2ULF
3 Replies
8. Shell Programming and Scripting
Hi All,
I have a file content like this.
#<clear_category_list>
#<include file="SUITE:Provision-FLEXPONDER_FAC.inc">
#<include file="CAT:SYSTEM:SAS_U23.inc">
#<include file="CAT:PRIORITY:10.inc">
#<include file="CAT:FAC_TYPE:OC48.inc">
#<include file="CAT:FAC_TYPE:OC192.inc">... (2 Replies)
Discussion started by: Syed Imran
2 Replies
9. Shell Programming and Scripting
Hi All,
I wanted to write a perl script to read the content in a file,the file content is either 0 (zero) OR 1. The idea is like this.
If (content =1), then it will proceed to perform some step. and then update the file content to 0(zero)
else
if (content =0), it will update the content to... (11 Replies)
Discussion started by: hploh
11 Replies
10. Shell Programming and Scripting
Hi,
I created a skript in ksh which generate a file with semicolon as separator, this is an example of the file a created:
example content file:
hello;AAAA;2014-08-17
hello;BBBB;2014-08-17
hello;CCCC;2014-08-17
I would need to compare the content in of the second column of this file... (3 Replies)
Discussion started by: jmartin
3 Replies
LEARN ABOUT OSX
net::dns::question
Net::DNS::Question(3) User Contributed Perl Documentation Net::DNS::Question(3)
NAME
Net::DNS::Question - DNS question record
SYNOPSIS
use Net::DNS::Question;
$question = new Net::DNS::Question('example.com', 'A', 'IN');
DESCRIPTION
A Net::DNS::Question object represents a record in the question section of a DNS packet.
METHODS
new
$question = new Net::DNS::Question('example.com', 'A', 'IN');
$question = new Net::DNS::Question('example.com');
$question = new Net::DNS::Question('192.0.32.10', 'PTR', 'IN');
$question = new Net::DNS::Question('192.0.32.10');
Creates a question object from the domain, type, and class passed as arguments. One or both type and class arguments may be omitted and
will assume the default values shown above.
RFC4291 and RFC4632 IP address/prefix notation is supported for queries in both in-addr.arpa and ip6.arpa namespaces.
decode
$question = decode Net::DNS::Question($data, $offset);
($question, $offset) = decode Net::DNS::Question($data, $offset);
Decodes the question record at the specified location within a DNS wire-format packet. The first argument is a reference to the buffer
containing the packet data. The second argument is the offset of the start of the question record.
Returns a Net::DNS::Question object and the offset of the next location in the packet.
An exception is raised if the object cannot be created (e.g., corrupt or insufficient data).
encode
$data = $question->encode( $offset, $hash );
Returns the Net::DNS::Question in binary format suitable for inclusion in a DNS packet buffer.
The optional arguments are the offset within the packet data where the Net::DNS::Question is to be stored and a reference to a hash table
used to index compressed names within the packet.
qname, zname
$qname = $question->qname;
$zname = $question->zname;
Returns the question name attribute. In dynamic update packets, this attribute is known as zname() and refers to the zone name.
qtype, ztype
$qtype = $question->qtype;
$ztype = $question->ztype;
Returns the question type attribute. In dynamic update packets, this attribute is known as ztype() and refers to the zone type.
qclass, zclass
$qclass = $question->qclass;
$zclass = $question->zclass;
Returns the question class attribute. In dynamic update packets, this attribute is known as zclass() and refers to the zone class.
print
$object->print;
Prints the record to the standard output. Calls the string() method to get the string representation.
string
print "string = ", $question->string, "
";
Returns a string representation of the question record.
COPYRIGHT
Copyright (c)1997-2002 Michael Fuhr.
Portions Copyright (c)2002-2004 Chris Reinhardt.
Portions Copyright (c)2003,2006-2011 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, Net::DNS, Net::DNS::DomainName, Net::DNS::Packet, RFC 1035 Section 4.1.2
perl v5.16.2 2012-01-27 Net::DNS::Question(3)