10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello.
System : opensuse leap 42.3
I have a bash script that build a text file.
I would like the last command doing :
print_cmd -o page-left=43 -o page-right=22 -o page-top=28 -o page-bottom=43 -o font=LatinModernMono12:regular:9 some_file.txt
where :
print_cmd ::= some printing... (1 Reply)
Discussion started by: jcdole
1 Replies
2. UNIX for Dummies Questions & Answers
How to use "mailx" command to do e-mail reading the input file containing email address, where column 1 has name and column 2 containing “To” e-mail address
and column 3 contains “cc” e-mail address to include with same email.
Sample input file, email.txt
Below is an sample code where... (2 Replies)
Discussion started by: asjaiswal
2 Replies
3. Shell Programming and Scripting
I have a bunch of random character lines like ABCEDFG. I want to find all lines with "A" and then change any "E" to "X" in the same line. ALL lines with "A" will have an "X" somewhere in it. I have tried sed awk and vi editor. I get close, not quite there. I know someone has already solved this... (10 Replies)
Discussion started by: nightwatchrenba
10 Replies
4. Shell Programming and Scripting
Hi Experts,
I have a string with colon delimited, want 2nd colon to be changed to a pipe.
data:
101:8:43:4:72:14:41:69:85:3:137:4:3:0:4:0:9:3:0:3:12:3:
I am trying with sed, but can change only 1 occurance:
echo "101:8:43:4:72:14:41:69:85:3:137:4:3:0:4:0:9:3:0:3:12:3:" | sed 's/:/|/2'... (5 Replies)
Discussion started by: rveri
5 Replies
5. Post Here to Contact Site Administrators and Moderators
Majority of the questions are pertaining file/string parsing w.r.t
sed
or
awk
It would be nice to have these two as their own sub category under shell-programming-scripting which can avoid lot of duplicate posts. (1 Reply)
Discussion started by: jville
1 Replies
6. Shell Programming and Scripting
logs:
"/home/abc/public_html/index.php"
"/home/abc/public_html/index.php"
"/home/xyz/public_html/index.php"
"/home/xyz/public_html/index.php"
"/home/xyz/public_html/index.php"
how to use "cut" or "awk" or "sed" to get the following result:
abc
abc
xyz
xyz
xyz (8 Replies)
Discussion started by: timmywong
8 Replies
7. Shell Programming and Scripting
Hi,
I have line in input file as below:
3G_CENTRAL;INDONESIA_(M)_TELKOMSEL;SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL
My expected output for line in the file must be :
"1-Radon1-cMOC_deg"|"LDIndex"|"3G_CENTRAL|INDONESIA_(M)_TELKOMSEL"|LAST|"SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL"
Can someone... (7 Replies)
Discussion started by: shis100
7 Replies
8. Shell Programming and Scripting
Input file:
2 aux003.net3.com error12
6 awn0117.net1.com error13
84 aux008 error14
29 aux001.ha.ux.isd.com error12
209 aux002.vm.ux.isd.com error34
21 alx0027.vm.net2.com error12
227 dux001.net5.com error123
22 us008.dot.net2.com error121
13 us009.net2.com error129Expected Output:
2... (4 Replies)
Discussion started by: sQew
4 Replies
9. Shell Programming and Scripting
hi All,
cat file_name | awk /^~/'{print $1","$2","$3","$4}' | sed -e 's/~//g'
Can this be done by using sed or awk alone (4 Replies)
Discussion started by: harshakusam
4 Replies
10. UNIX for Dummies Questions & Answers
Hi Friends,
Can any of you explain me about the below line of code?
mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'`
Im not able to understand, what exactly it is doing :confused:
Any help would be useful for me.
Lokesha (4 Replies)
Discussion started by: Lokesha
4 Replies
Net::DNS::Update(3) User Contributed Perl Documentation Net::DNS::Update(3)
NAME
Net::DNS::Update - Create a DNS update packet
SYNOPSIS
use Net::DNS::Update;
$update = Net::DNS::Update->new;
$update = Net::DNS::Update->new('example.com', 'IN');
$update->push(prerequisite => nxrrset('foo.example.com. A'));
$update->push(update => rr_add('foo.example.com. 86400 A 192.168.1.2'));
DESCRIPTION
"Net::DNS::Update" is a subclass of "Net::DNS::Packet", to be used for making DNS dynamic updates. Programmers should refer to RFC 2136
for the semantics of dynamic updates.
METHODS
new
$update = Net::DNS::Update->new;
$update = Net::DNS::Update->new('example.com');
$update = Net::DNS::Update->new('example.com', 'HS');
Returns a "Net::DNS::Update" object used to perform a DNS dynamic update operation. Specifically, it creates a packet with the header
opcode set to UPDATE and zone qtype to SOA (per RFC 2136, 2.3).
Programs must use the "push" method to add RRs to the prerequisite, update, and additional sections before performing the update.
Arguments are the zone name and the class. If the zone is omitted, the default domain will be taken from the resolver configuration. If
the class is omitted, it defaults to IN.
Future versions of "Net::DNS" may provide a simpler interface for making dynamic updates.
EXAMPLES
The first example below shows a complete program; subsequent examples show only the creation of the update packet.
Add a new host
#!/usr/bin/perl -w
use strict;
use Net::DNS;
# Create the update packet.
my $update = Net::DNS::Update->new('example.com');
# Prerequisite is that no A records exist for the name.
$update->push(prerequisite => nxrrset('foo.example.com. A'));
# Add two A records for the name.
$update->push(update => rr_add('foo.example.com. 86400 A 192.168.1.2'));
$update->push(update => rr_add('foo.example.com. 86400 A 172.16.3.4'));
# Send the update to the zone's primary master.
my $res = Net::DNS::Resolver->new;
$res->nameservers('primary-master.example.com');
my $reply = $res->send($update);
# Did it work?
if ($reply) {
my $rcode = $reply->header->rcode;
print 'Update ', $rcode eq 'NOERROR' ? "succeeded
" : "failed: $rcode
";
} else {
print 'Update failed: ', $res->errorstring, "
";
}
Add an MX record for a name that already exists
my $update = Net::DNS::Update->new('example.com');
$update->push(prerequisite => yxdomain('example.com'));
$update->push(update => rr_add('example.com MX 10 mailhost.example.com'));
Add a TXT record for a name that doesn't exist
my $update = Net::DNS::Update->new('example.com');
$update->push(prerequisite => nxdomain('info.example.com'));
$update->push(update => rr_add('info.example.com TXT "yabba dabba doo"'));
Delete all A records for a name
my $update = Net::DNS::Update->new('example.com');
$update->push(prerequisite => yxrrset('foo.example.com A'));
$update->push(update => rr_del('foo.example.com A'));
Delete all RRs for a name
my $update = Net::DNS::Update->new('example.com');
$update->push(prerequisite => yxdomain('byebye.example.com'));
$update->push(update => rr_del('byebye.example.com'));
Perform a signed update
my $key_name = 'tsig-key';
my $key_data = 'awwLOtRfpGE+rRKF2+DEiw==';
my $update = Net::DNS::Update->new('example.com');
$update->push(update => rr_add('foo.example.com A 10.1.2.3'));
$update->push(update => rr_add('bar.example.com A 10.4.5.6'));
$update->sign_tsig($key_name, $key_data);
Another way to perform a signed update
my $key_name = 'tsig-key';
my $key_data = 'awwLOtRfpGE+rRKF2+DEiw==';
my $update = Net::DNS::Update->new('example.com');
$update->push(update => rr_add('foo.example.com A 10.1.2.3'));
$update->push(update => rr_add('bar.example.com A 10.4.5.6'));
$update->push(additional => Net::DNS::RR->new("$key_name TSIG $key_data"));
Perform a signed update with a customized TSIG record
my $key_name = 'tsig-key';
my $key_data = 'awwLOtRfpGE+rRKF2+DEiw==';
my $tsig = Net::DNS::RR->new("$key_name TSIG $key_data");
$tsig->fudge(60);
my $update = Net::DNS::Update->new('example.com');
$update->push(update => rr_add('foo.example.com A 10.1.2.3'));
$update->push(update => rr_add('bar.example.com A 10.4.5.6'));
$update->push(additional => $tsig);
BUGS
WARNING: This code is still under development. Please use with caution on production nameservers.
COPYRIGHT
Copyright (c)1997-2002 Michael Fuhr.
Portions Copyright (c)2002-2004 Chris Reinhardt.
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::Resolver, Net::DNS::Header, Net::DNS::Packet, Net::DNS::Question, Net::DNS::RR, RFC 2136, RFC 2845
perl v5.16.2 2012-01-27 Net::DNS::Update(3)