Hi All,
I want to search all the ksh scripts that has following details.
1. Search for "exit 0"
2. Search for "sqlldr" or sqlplus"
3. In the above files i want to search for all the script that has no "case" in it.
Please advice.
Thanks,
Deep (2 Replies)
Hi,
I have a requirement to search for a string in a large log file along with few lines before and after the the string. The following script was sufficient to search such an entry.
STRING_TO_GREP="$1"
FILE_TO_GREP="$2"
NUMBER_OF_LINES_BEFORE=$3
NUMBER_OF_LINES_AFTER=$4
for i in `grep... (3 Replies)
Hi
I want to search multiple strings in a file . But the search should start with "From" Keyword and end with before "Where" keyword.
Please suggest me.
Thanks (2 Replies)
Hi,
Need some help...
I want to execute sequence commands, like below
test1.sh
test2.sh
...etc
test1.sh file will generate log file, we need to search for 'complete' string on test1.sh file, once that condition success and then it should go to test2.sh file, each .sh scripts will take... (5 Replies)
hi ,
i am having a file where i need to take ignore the data from file1.txt and redirect to another file
for eg:
file1.txt
AUS
USA
file2.txt
AUS,123
NZ,11
USA,12
i am using the below code (4 Replies)
I need to write the list of files to a new file in one column , the second column would contain the first line of that file (header record extracted through head -1 ) and the third column would contain the last record of that file (trailer record tail -1 ) .
Example :- folder where the files... (8 Replies)
I'm trying to find a way to search a range of similar words in a file. I tried using sed but can't get it right:sed 's/\(ca01\)*//'It only removes "ca01" but leaves the rest of the word. I still want the rest of the information on the lines just not these specific words listed below. Any... (3 Replies)
I have a sample file with following output:
HTTP/1.1 200 OK
User: admin
Set-Cookie: AMBARISESSIONID=y3v3648yqcno32nq478kw7ar;Path=/;HttpOnly
Expires: Thu, 01 Jan 1970 00:00:00 GMT
Content-Type: text/plain
Vary: Accept-Encoding, User-Agent
Content-Length: 6057
Server:... (4 Replies)
Dear Team Members,
I have a unique problem. Below is the dataset which I have. I am writing a script which will read through the file and pull the invoice no. (Field 2 of C1 row).
"C1",990001,"L1","HERO","MOTORCYCLE","ASIA-PACIFIC","BEIJING"
"C2","CLUTCH","HYUNDAI",03032017... (13 Replies)
Hello Tech Guys,
I have two files named check.txt and output.txt
Content of check.txt
620070527336551 40201800027285
620070551928314 40201800027285
620070534376312 40201800027285
620070536668046 02711306140261
620070248491123 02711306140261
620070553851296 02711306140261... (4 Replies)
Discussion started by: Xtreme
4 Replies
LEARN ABOUT MOJAVE
xml::libxml::devel
XML::LibXML::Devel(3) User Contributed Perl Documentation XML::LibXML::Devel(3)NAME
XML::LibXML::Devel - makes functions from LibXML.xs available
SYNOPSIS
/**********************************************
* C functions you want to access
*/
xmlNode *return_node();
void receive_node(xmlNode *);
###############################################
# XS Code
void *
xs_return_node
CODE:
RETVAL = return_node();
OUTPUT:
RETVAL
void
xs_receive_node
void *n
CODE:
receive_node(n);
###############################################
# Perl code
use XML::LibXML::Devel;
sub return_node
{
my $raw_node = xs_return_node();
my $node = XML::LibXML::Devel::node_to_perl($raw_node);
XML::LibXML::Devel::refcnt_inc($raw_node);
return $node;
}
sub receive_node
{
my ($node) = @_;
my $raw_node = XML::LibXML::Devel::node_from_perl($node);
xs_receive_node($raw_node);
XML::LibXML::Devel::refcnt_inc($raw_node);
}
DESCRIPTION
"XML::LibXML::Devel" makes functions from LibXML.xs available that are needed to wrap libxml2 nodes in and out of XML::LibXML::Nodes. This
gives cleaner dependencies than using LibXML.so directly.
To XS a library that uses libxml2 nodes the first step is to do this so that xmlNodePtr is passed as void *. These raw nodes are then
turned into libxml nodes by using this "Devel" functions.
Be aware that this module is currently rather experimental. The function names may change if I XS more functions and introduce a reasonable
naming convention.
Be also aware that this module is a great tool to cause segfaults and introduce memory leaks. It does however provide a partial cure by
making "xmlMemUsed" available as "mem_used".
FUNCTIONS
NODE MANAGEMENT
node_to_perl
node_to_perl($raw_node);
Returns a LibXML::Node object. This has a proxy node with a reference counter and an owner attached. The raw node will be deleted as soon
as the reference counter reaches zero. If the C library is keeping a pointer to the raw node, you need to call refcnt_inc immediately.
You also need to replace xmlFreeNode by a call to refcnt_dec.
node_to_perl
node_from_perl($node);
Returns a raw node. This is a void * pointer and you can do nothing but passing it to functions that treat it as an xmlNodePtr. The raw
node will be freed as soon as its reference counter reaches zero. If the C library is keeping a pointer to the raw node, you need to call
refcnt_inc immediately. You also need to replace xmlFreeNode by a call to refcnt_dec.
refcnt_inc
refcnt_inc($raw_node);
Increments the raw nodes reference counter. The raw node must already be known to perl to have a reference counter.
refcnt_dec
refcnt_dec($raw_node);
Decrements the raw nodes reference counter and returns the value it had before. if the counter becomes zero or less, this method will free
the proxy node holding the reference counter. If the node is part of a subtree, refcnt_dec will fix the reference counts and delete the
subtree if it is not required any more.
refcnt
refcnt($raw_node);
Returns the value of the reference counter.
fix_owner
fix_owner($raw_node, $raw_parent);
This functions fixes the reference counts for an entire subtree. it is very important to fix an entire subtree after node operations
where the documents or the owner node may get changed. this method is aware about nodes that already belong to a certain owner node.
MEMORY DEBUGGING
$ENV{DEBUG_MEMORY}
BEGIN {$ENV{DEBUG_MEMORY} = 1;};
use XML::LibXML;
This turns on libxml2 memory debugging. It must be set before XML::LibXML is loaded.
mem_used
mem_used();
Returns the number of bytes currently allocated.
EXPORT
None by default.
SEE ALSO
This was created to support the needs of Apache2::ModXml2. So this can serve as an example.
AUTHOR
Joachim Zobel <jz-2011@heute-morgen.de>
COPYRIGHT AND LICENSE
Copyright (C) 2011 by Joachim Zobel
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or,
at your option, any later version of Perl 5 you may have available.
perl v5.18.2 2014-02-01 XML::LibXML::Devel(3)