02-23-2011
You gotta thank Franklin, not me
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hello,
Im trying to extract a portion of a big file.
Using unique pattern /occurrence ,
(ex. loginname1,logoff and loginname2,logoff ),
I like to print the lines that contain the patterns and the lines between them.
Also, create a file for every login occurrence.
Thanks for everyone's... (1 Reply)
Discussion started by: apalex
1 Replies
2. Shell Programming and Scripting
Hi all,
Can anyone please help me in parsing the following file. Suppose the file is called, example.lst, and has the following content in it.
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS =
(PROTOCOL = TCP)
(Host = 192.168.2.2)
... (3 Replies)
Discussion started by: harris2107
3 Replies
3. Shell Programming and Scripting
Hi all,
I have a data file from which i would like to extract only certain fields, which are not adjacent to each other. Following is the format of data file (data.txt) that i have, which has about 6 fields delimited by "|"
HARRIS|23|IT|PROGRAMMER|CHICAGO|EMP
JOHN|35|IT|JAVA|NY|CON... (2 Replies)
Discussion started by: harris2107
2 Replies
4. Shell Programming and Scripting
I need to extract the character before the last "|" in the following lines, which are 'N' and 'U'. The last "|" shouldn't be extracted. Also the no.s of "|" may vary in a line, but I need only the character before the last one.
... (5 Replies)
Discussion started by: hidnana
5 Replies
5. Shell Programming and Scripting
Hello,
I need your help to extract text from following:
./sherg_fyd_rur:blkabl="R23.21_BL2008_0122_1"
./serge_a75:rlwual="/main/r23.21=26-Mar-2008.05:00:20UTC@R11.31_BL2008_0325"
./serge_a75:blkabl="R23.21_BL2008_0325"
./sherg_proto_npiv:bkguals="R23.21_BL2008_0302 I80_11.31_LR"
I... (11 Replies)
Discussion started by: abdurrouf
11 Replies
6. UNIX for Dummies Questions & Answers
Hello all,
I have attached a txt doc with data sorted into columns (it is best to open with "word pad" to maintain the correct format. In the data there are two columns E/N and Ko. I wanted to know how to extract the data and form an excel sheet. Or at least just extract the data. The data is... (4 Replies)
Discussion started by: gingburg
4 Replies
7. Shell Programming and Scripting
Title : Price : Author : No of books sold
France : 40 : John : 30
Persia : 50 : John : 40
Hey guys i am trying to write a code which can help me to find the correct line and then edit the information... (1 Reply)
Discussion started by: gregarion
1 Replies
8. UNIX for Dummies Questions & Answers
HI,
i would like to ask for your help.
how will i be able to extract part of the filename?
FILENAME: 000_20071222083029135_evPDSN02.CANCEL
i want to get only 000_20071222083029135.CANCEL
Thanks and Good Day! :) (2 Replies)
Discussion started by: drco29
2 Replies
9. Shell Programming and Scripting
Hi Friends,
i am new to unix,i have a big doubt/help.
I have files in folders SER1 and SER2 with naming convention as below
file_2010-03-19.txt and so on
the file naming format is file_<date>.txt. I would like to copy the files to directory "Landing"
I have entries in a log file log.txt... (5 Replies)
Discussion started by: Gopal_Engg
5 Replies
10. Shell Programming and Scripting
Hi,
I have three files as below:
AA.DAT20110505063903.Z
AA.DAT20110405062903.Z
AA.DAT20110305061903.Z
All the above files are appended with Date and timestamp in compressed format.
I need to extract AA.DAT20110505063903.Z(which is the latest file) from one server and uncompress it... (2 Replies)
Discussion started by: pyaranoid
2 Replies
LEARN ABOUT OSX
net::netent
Net::netent(3pm) Perl Programmers Reference Guide Net::netent(3pm)
NAME
Net::netent - by-name interface to Perl's built-in getnet*() functions
SYNOPSIS
use Net::netent qw(:FIELDS);
getnetbyname("loopback") or die "bad net";
printf "%s is %08X
", $n_name, $n_net;
use Net::netent;
$n = getnetbyname("loopback") or die "bad net";
{ # there's gotta be a better way, eh?
@bytes = unpack("C4", pack("N", $n->net));
shift @bytes while @bytes && $bytes[0] == 0;
}
printf "%s is %08X [%d.%d.%d.%d]
", $n->name, $n->net, @bytes;
DESCRIPTION
This module's default exports override the core getnetbyname() and getnetbyaddr() functions, replacing them with versions that return
"Net::netent" objects. This object has methods that return the similarly named structure field name from the C's netent structure from
netdb.h; namely name, aliases, addrtype, and net. The aliases method returns an array reference, the rest scalars.
You may also import all the structure fields directly into your namespace as regular variables using the :FIELDS import tag. (Note that
this still overrides your core functions.) Access these fields as variables named with a preceding "n_". Thus, "$net_obj->name()"
corresponds to $n_name if you import the fields. Array references are available as regular array variables, so for example "@{
$net_obj->aliases() }" would be simply @n_aliases.
The getnet() function is a simple front-end that forwards a numeric argument to getnetbyaddr(), and the rest to getnetbyname().
To access this functionality without the core overrides, pass the "use" an empty import list, and then access function functions with their
full qualified names. On the other hand, the built-ins are still available via the "CORE::" pseudo-package.
EXAMPLES
The getnet() functions do this in the Perl core:
sv_setiv(sv, (I32)nent->n_net);
The gethost() functions do this in the Perl core:
sv_setpvn(sv, hent->h_addr, len);
That means that the address comes back in binary for the host functions, and as a regular perl integer for the net ones. This seems a bug,
but here's how to deal with it:
use strict;
use Socket;
use Net::netent;
@ARGV = ('loopback') unless @ARGV;
my($n, $net);
for $net ( @ARGV ) {
unless ($n = getnetbyname($net)) {
warn "$0: no such net: $net
";
next;
}
printf "
%s is %s%s
",
$net,
lc($n->name) eq lc($net) ? "" : "*really* ",
$n->name;
print " aliases are ", join(", ", @{$n->aliases}), "
"
if @{$n->aliases};
# this is stupid; first, why is this not in binary?
# second, why am i going through these convolutions
# to make it looks right
{
my @a = unpack("C4", pack("N", $n->net));
shift @a while @a && $a[0] == 0;
printf " addr is %s [%d.%d.%d.%d]
", $n->net, @a;
}
if ($n = getnetbyaddr($n->net)) {
if (lc($n->name) ne lc($net)) {
printf " That addr reverses to net %s!
", $n->name;
$net = $n->name;
redo;
}
}
}
NOTE
While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this.
AUTHOR
Tom Christiansen
perl v5.16.2 2012-08-26 Net::netent(3pm)