Thanks a lot man! Fantastic! It worked! Could you kindly explain the code? I'm ignorant And also I just wanted how I can change array elements using sed within a loop. May be like this-
Code:
myarr=($(awk 'NR % 2 ==1' TestMe | awk '{print $2}'))
echo ${myarr[@]}
counter=1230;
len=${#myarr[*]}
for i in {1..len}
do sed "s/${myarr[@]} /$counter/g" TestMe;
counter=$(($counter+1));
done
Thanks a lot! Really appreciate it!
Last edited by saleheen; 01-29-2015 at 02:23 PM..
Reason: Just adding some lines
set -A arr a1 a2 a3 a4
# START
ssh -xq $Server1 -l $Username /usr/bin/ksh <<-EOS
integer j=0
for loop in ${arr}
do
printf "array - ${arr}\n"
(( j = j + 1 ))
j=`expr j+1`
done
EOS
# END
=========
this is not giving me correct output.
I... (5 Replies)
hi All,
I have a array as follows,
array1=("xx" "abc" "def" "xyz")
and each array1 is also storing some array values, like
array1=abc
and abc=("a" "b" "c") etcetera etcetra.........
Note : each subarray under array1 have index 3 i.e. it can max contain 3 values
if i echo ${abc} ... (5 Replies)
I want to run an awk split on a value that has been pushed through an array and I was wondering what the syntax should be??
e.g. running time strings through an array and trying to examine just minutes:
12:25:30
10:15:13
08:55:23
awk '
NR==FNR{
... (2 Replies)
Hi All,
I have the following code sequence for reading some bulk file and moving the content to two different arrays.
while read data
do
THREEG_PATTERN=`echo $data | egrep "3G"`
if
then
NEW_THREEG_PATTERN=`echo $THREEG_PATTERN | cut -d " " -f2`
... (12 Replies)
I have a array as
CArray=( a1 a2 )
and a1,a2,a3 are also array as:
a1=(1 2 3)
a2=(3 4 5)
now I have this in my code:
for i in `echo "${CArray}"`
do
echo ${$i}
done
It is giving error as :"bad substitution"
It should give me value as
1 2 3
3 4 5
how can I get this...Can u please... (2 Replies)
Hello I have the file df.tmp
FS is actually the / FS but escape character\ and end of line $ is used in order to fetch exctly / and not other filesystems.
awk '/\/$/ {print $(NF-1)+0}' df.tmp will work properly and return a value eg. 60
but when I am trying to issue the command with the array... (3 Replies)
I have a file
root@server # cat /root/list12
11.22.33.44
22.33.44.55
33.44.55.66
33.44.55.66
33.44.55.66
I try to pass to array and display unique.
root@server# cat /root/test12.sh
#!/bin/bash
#delcare array badips and accumulate values to array elemenrs
badips=( $( cat... (4 Replies)
I tried to use variable inside an array variable, but its not working as expected.:wall:
ENV1=123
ENV1=789
ENV1=120
ENV2=567
if
then
name=ENV1
echo "${name}"
echo "${name}"
echo "${name}"
else
name=ENV1
echo "${name}"
fi
Output: ./val.sh 1
123 (2 Replies)
The requirement is i need to find an array value matching with pattern {5:{ , replace that with 5: and reassign that to same array index and print it.
I write something like below and the issue is sed command is not working. If i replace " with "`" the script gives syntax error.how can i... (8 Replies)
Discussion started by: bhagya123
8 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)
01-29-2015
And also I just wanted how I can change array elements using sed within a loop. May be like this-