Sorry about that.. it's the classic problem with representing path (and a quite common rookie mistake :-) ). If you use one backslash in front of a character, it may be interpreted as an escape character. So you need to escape the escape character behaviour by introducing another backslash.. so, the right way to do it would be:
And single quotes are used in perl if you want to mean the literal sense of a string. Something like WYSIWYG in a variable. So $current_date will be exactly represented as $current_date inside a single quote. To interpret variables inside a string, use double quotes.
Dear Experts,
Please help to teach me how to add the filename into the file content so that i can get the output below:-
Actually the file name
***************New output that I want***************
=====2005-11-12=====
EVENTS-20050912 03:33:37 ALARM: BTSSPAN-277-1 30-18013... (2 Replies)
Dear Experts,
Please help to teach me how to add the filename into the file content.
Actually the file name are EVENTS-20050912.
***************New output that I want***************
EVENTS-20050912 03:33:37 ALARM: BTSSPAN-277-1 30-18013
EVENTS-20050912 12:10:28 ALARM: BTSSPAN-297-2... (1 Reply)
Hi,
I have 24 .dat files something like below. The file name starts with “abc” followed by two digit month and two digit year. Is there a way to grab the month and year from each filename and append it to the end of each line. Once this is done I want to combine all the files into file... (1 Reply)
:confused:
Hi, I posted here before for adding up of datafile name each time, here is an example:
#!/bin/bash
cutdfname="data11.dbf"
newname=$(echo "${cutdfname}" |tr "" "" |tr "#_@-" "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" |tr -s "x")
num=$(echo $newname |cut -d"." -f1|awk... (5 Replies)
Hi
i need help in adding leading zero to filenames
e.g file name in my folder are
1_234sd.txt
23_234sd.txt
the output i need is
001_234sd.txt
023_234sd.txt
can i do this shell scripting
please help (2 Replies)
Hi,
I am a relative new bee in scripting. I need to develop a script such that the code would iterate through each file in a source directory and append every line of the file with '|' and the corresponding file filename.
eg
INPUT file IF927_1.dat -
H|abc... (4 Replies)
Hi ,
Can any one please tell me, how can we add the file name as column using sed.
right now we are using the below awk command for adding the file name as column but when we are calling this script from datastage it is deleting the file data..very weird raised a support ticket with datastage.... (2 Replies)
Dear experts,
I'm using solaris 5.10 and bash. I want to zip file "Amount.txt" to "Amount.zip" and rename it to "Amount_<prev_month>_<this year>.zip". For example, file for this month should be renamed to "Amount_06_2012.zip", for next month it should be "Amount_07_2012.zip". I have no problem... (8 Replies)
I have a string:
Code
time=20170303122334
I need the result:
20170303.122334
I did:
CODE:
ttdotss=`echo ${time} |sed 's\(.|{8\}\)/|1 /g'`
Result
sed: Function s\(.|{8\}\)/|1 /g cannot be parsed.
Could you please help me to resolve this issue?
Thanks for contribution (2 Replies)
Discussion started by: digioleg54
2 Replies
LEARN ABOUT MOJAVE
net::dns::domain
Net::DNS::Domain(3) User Contributed Perl Documentation Net::DNS::Domain(3)NAME
Net::DNS::Domain - Domain Name System domains
SYNOPSIS
use Net::DNS::Domain;
$domain = new Net::DNS::Domain('example.com');
$name = $domain->name;
DESCRIPTION
The Net::DNS::Domain module implements a class of abstract DNS domain objects with associated class and instance methods.
Each domain object instance represents a single DNS domain which has a fixed identity throughout its lifetime.
Internally, the primary representation is a (possibly empty) list of ASCII domain name labels, and optional link to an arbitrary origin
domain object topologically closer to the DNS root.
The computational expense of Unicode character-set conversion is partially mitigated by use of caches.
METHODS
new
$object = new Net::DNS::Domain('example.com');
Creates a domain object which represents the DNS domain specified by the character string argument. The argument consists of a sequence of
labels delimited by dots.
A character preceded by represents itself, without any special interpretation.
Arbitrary 8-bit codes can be represented by followed by exactly three decimal digits. Character code points are ASCII, irrespective of
the character coding scheme employed by the underlying platform.
Argument string literals should be delimited by single quotes to avoid escape sequences being interpreted as octal character codes by the
Perl compiler.
The character string presentation format follows the conventions for zone files described in RFC1035.
name
$name = $domain->name;
Returns the domain name as a character string corresponding to the "common interpretation" to which RFC1034, 3.1, paragraph 9 alludes.
Character escape sequences are used to represent a dot inside a domain name label and the escape character itself.
Any non-printable code point is represented using the appropriate numerical escape sequence.
fqdn
@fqdn = $domain->fqdn;
Returns a character string containing the fully qualified domain name, including the trailing dot.
xname
$xname = $domain->xname;
Interprets an extended name containing Unicode domain name labels encoded as Punycode A-labels.
Domain names containing Unicode characters are supported if the Net::LibIDN module is installed.
label
@label = $domain->label;
Identifies the domain by means of a list of domain labels.
string
$string = $object->string;
Returns a character string containing the fully qualified domain name as it appears in a zone file.
Characters which are recognised by RFC1035 zone file syntax are represented by the appropriate escape sequence.
origin
$create = origin Net::DNS::Domain( $ORIGIN );
$result = &$create( sub{ new Net::DNS::RR( 'mx MX 10 a' ); } );
$expect = new Net::DNS::RR( "mx.$ORIGIN. MX 10 a.$ORIGIN." );
Class method which returns a reference to a subroutine wrapper which executes a given constructor in a dynamically scoped context where
relative names become descendents of the specified $ORIGIN.
BUGS
Coding strategy is intended to avoid creating unnecessary argument lists and stack frames. This improves efficiency at the expense of code
readability.
Platform specific character coding features are conditionally compiled into the code.
COPYRIGHT
Copyright (c)2009-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::LibIDN, Net::DNS, RFC1034, RFC1035, RFC5891, Unicode Technical Report #16
perl v5.18.2 2014-01-16 Net::DNS::Domain(3)