I need to resolve IP to names in a text file. I was thinking of using some unix commands. Ksh.
Text in file contains a lot of these entries:
Code:
..
20 6 <166>%ASA-6-302013: Built inbound TCP connection 12690562 for inside2:10.86.6.20/3678 (10.86.6.20/3678) to inside:10.107.22.12/1947 (10.107.22.12/1947)
20 6 <166>%ASA-6-302013: Built inbound TCP connection 12690562 for inside2:10.100.6.20/3678 (10.86.6.20/3678) to inside:10.107.22.12/1947 (10.107.22.12/1947)
..
I would like to get this result:
Code:
..
20 6 <166>%ASA-6-302013: Built inbound TCP connection 12690562 for inside2:10.86.6.20/3678 (10.86.6.20/3678) to inside:10.107.22.12/1947 <SERVERA> (10.107.22.12/1947)
20 6 <166>%ASA-6-302013: Built inbound TCP connection 12690562 for inside2:10.100.6.20/3678 <SERVERC> (10.86.6.20/3678) to inside:10.107.22.12/1947 <SERVERB> (10.107.22.12/1947)
..
So the script should nslookup IP and add the text. But if the IP starts with = 10.86.6 , do not resolve the ip address.
Is that possible ?
Thanks in advanced.
regards
Hasselhaven
Moderator's Comments:
Please use next time code tags for your code and data
I am trying to map the information from the gensyms command, Its gives information about the various symbols info like symbol type, addr offset, and the main libraries addr starting point. My problem is , how do I map this 32 bit addr to a 64 bit addr, I am trying to extract Segment # information... (0 Replies)
I'm trying to strip any garbage that may be at the end of my text file and that part is working. The problem only seems to be with the really long lines in the file. When the head command is executed I am directing the output to a new file. The new file always get a null in the 4096 position but... (2 Replies)
:confused:Dears ,
I have text file I need to insert the subscriber number at position 32, and need to keep the next field at position 53 (no increasing of the record lenght), I mean I just want to replace the spaces at position 32 with subscirber number .
for example
A B
A ... (1 Reply)
am running the small script below.
count_a=48
count_b=48
if ; then
echo "Count matched"
else
echo "count not matched"
fi
I got the below output.
/bin/ksh: [48: not found
count not matched
It was giving the same error when I ran in another box. But I inculded /bin/ksh in the... (10 Replies)
Dear Members,
I have a table in Oracle DB and one of its column name is INFO which has data in text format which we need to fetch in a script and create an xml file of a new table from the input.
The contents of a single cell of INFO column is like:
Area:app - aam
Clean Up Criteria:... (0 Replies)
Hello Members,
I have to create a script to parse a text file in the following format:
Increment By:1
Max Value:999999
Related Table: Dummy_table
Related Table Column: dummy_id
Sequence Name: dummy_table_1SQ
Start With:1
and create an xml file from the above text file using KSH... (4 Replies)
Dear Members,
I am using the attached script to convert a input file delimited by '|' to excel.
However, while processing the attribute change_reason, the whole content of the text under change_reason is not displayed completely in the cell in excel. It is truncated after only first few words.... (1 Reply)
I want to insert text into a file using ksh script. The text is going above a closing </body> tag. In the text are two variables.
I thought I found how to do it, inexplicably still, using awk, but ran into some problems and time has gone by too fast. The problems using awk came when I added... (4 Replies)
This seems pretty simple, but I cant figure it out. I get stumped on the simple things.
I am running two commands
1) take a listing a directory of files, and filter out the doc_name (which is in a series of extracted files), and place it in a file.
ls -l | awk '{print $9}' | grep... (5 Replies)
Discussion started by: jeffs42885
5 Replies
LEARN ABOUT DEBIAN
time::y2038
Time::y2038(3pm) User Contributed Perl Documentation Time::y2038(3pm)NAME
Time::y2038 - Versions of Perl's time functions which work beyond 2038
SYNOPSIS
use Time::y2038;
print scalar gmtime 2**52; # Sat Dec 6 03:48:16 142715360
DESCRIPTION
On many computers, Perl's time functions will not work past the year 2038. This is a design fault in the underlying C libraries Perl uses.
Time::y2038 provides replacements for those functions which will work accurately +/1 142 million years.
This only imports the functions into your namespace. To replace it everywhere, see Time::y2038::Everywhere.
Replaces the following functions:
gmtime()
See "gmtime" in perlfunc for details.
localtime()
See "localtime" in perlfunc for details.
timegm()
my $time = timegm($sec, $min, $hour, $month_day, $month, $year);
The inverse of "gmtime()", takes a date and returns the coorsponding $time (number of seconds since Midnight, January 1st, 1970 GMT). All
values are the same as "gmtime()" so $month is 0..11 (January is 0) and the $year is years since 1900 (2008 is 108).
# June 4, 1906 03:02:01 GMT
my $time = timegm(1, 2, 3, 4, 5, 6);
timegm() can take two additional arguments which are always ignored. This lets you feed the results from gmtime() back into timegm()
without having to strip the arguments off.
The following is always true:
timegm(gmtime($time)) == $time;
timelocal()
my $time = timelocal($sec, $min, $hour, $mday, $month, $year);
my $time = timelocal($sec, $min, $hour, $mday, $month, $year, $wday, $yday, $isdst);
Like "timegm()", but interprets the date in the current time zone.
"timelocal()" will normally figure out if daylight savings time is in effect, but if $isdst is given this will override that check. This
is mostly useful to resolve ambiguous times around "fall back" when the hour between 1am and 2am occurs twice.
# Sun Nov 4 00:59:59 2007
print timelocal(59, 59, 0, 4, 10, 107); # 1194163199
# Sun Nov 4 01:00:00 2007 DST, one second later
print timelocal(0, 0, 1, 4, 10, 107, undef, undef, 1); # 1194163200
# Sun Nov 4 01:00:00 2007 no DST, one hour later
print timelocal(0, 0, 1, 4, 10, 107, undef, undef, 0); # 1194166800
$wday and $yday are ignored. They are only there for compatibility with the return value of "localtime()".
LIMITATIONS
The safe range of times is +/ 2**52 (about 142 million years).
Although the underlying time library can handle times from -2**63 to 2**63-1 (about +/- 292 billion years) Perl uses floating point numbers
internally and so accuracy degrates after 2**52.
BUGS &; FEEDBACK
See http://rt.cpan.org/Dist/Display.html?Queue=Time-y2038 to report and view bugs.
If you like the module, please drop the author an email.
The latest version of this module can be found at http://y2038.googlecode.com/ and the repository is at
http://y2038.googlecode.com/svn/trunk/ in perl/Time-y2038. You have to check out the whole repository because there are symlinks.
AUTHOR
Michael G Schwern <schwern@pobox.com>
LICENSE &; COPYRIGHT
Copyright 2008-2010 Michael G Schwern
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
SEE ALSO
Time::y2038::Everywhere overrides localtime() and gmtime() across the whole program.
The y2038 project at http://y2038.googlecode.com/
<http://xkcd.com/376/>
perl v5.14.2 2011-11-15 Time::y2038(3pm)
03-12-2012
