Hello everyonel,
I have an array set like so
num=4
read name
arr=name
I go through while loop to assign different values to different array element from 1 to 4. when I try to access the FIRST element of the array I get the last one first. Like if I say ${arr} it will show the last element... (4 Replies)
Hi all,
I'm new to shell scripting and hence this query.
I have 2 files. temp.txt and config.txt.
The values in temp.txt are tab separated.
ex: temp.txt
AB CDE GHIJ OPQRS WXY
ex:config.txt (1st line for 1st element of temp.txt and so on)
start = '1' end='5'
start = '6' end =... (26 Replies)
Hi Everyone,
#!/usr/bin/perl
use strict;
use warnings;
my @test=("a;b;qqq;c;d","a;b;ggg;c;d","a;b;qqq;c;d");
would like to split the @test array into two array:
@test1=(("a;b;qqq;c;d","a;b;qqq;c;d"); and @test2=("a;b;ggg;c;d");
means search for 3rd filed.
Thanks
find the... (0 Replies)
Hi,
I have a file where I need to count the total for the first element and put it back at the end of file...
here is the example...
input..
FHDR|ABC|20100607|
|ABC|8453|CDE|E166||||
123|ABC|8453|CDE|E166||||
123|ABC|8453|CDE|E166||||
111|ABC|8453|CDE|E166||||... (8 Replies)
I need to remove an element from the below array variable TABLENAME.
#!/bin/ksh
set -A TABLENAME "mirf roxar keke mirs"
echo "the array is ${TABLENAME}"
If i need to remove say keke and have the final TABLENAME as below, how this could be achieved. Pls throw some light.
echo "Modified... (3 Replies)
I am trying to take all the elements of an array and multiply them by 2, and then copy them to a new array. Here is what I have
i=0
for true in DMGLIST
do
let DMGSIZES2="${DMGSIZES}"*2
let i++
done
unset i
echo ${DMGSIZES2}
It does the calculation correctly for the first element,... (7 Replies)
Hi all,
There are several lines in my file as
a=123,b=dene,c=2312,d=234234,g=vxcvxcv,h=44
a=3,b=dene,c=22,d=23422342334,g=vxcvxcv,h=4
a=123,b=dene,c=2312,d=234234,g=vxcvxcv,h=678
I take values with this command
awk -F '' '{print $1,$2,$3}' a.txt
I want to put values to a fix position... (6 Replies)
This question is for someone that's more familiar with Array Element.
I need to know if the maximum array element that can be assigned is 1024 and if its so, Is there a workaround solution when the counter exceeded 1024?
param_array="$param_nam"
counter=$counter+1
#to avoid space... (3 Replies)
Ya, I know, who in this day and age is mirroring rootvg...?
But yes, my shop does and I need to script checking for it.
I also know I could just inverse the the logic and call the LV mirrored
if the LPs and PPs were not equal. But I want to do the math in the if test
and also know I could... (5 Replies)
Discussion started by: gtsonoma
5 Replies
LEARN ABOUT DEBIAN
mkdoc::xml::dumper
MKDoc::XML::Dumper(3pm) User Contributed Perl Documentation MKDoc::XML::Dumper(3pm)NAME
MKDoc::XML::Dumper - Same as Data::Dumper, but with XML
SYNOPSIS
use MKDoc::XML::Dumper;
use Test::More 'no_plan';
my $stuff = [ qw /foo bar baz/, [], { hello => 'world', yo => \'boo' } ];
my $xml = MKDoc::XML::Dumper->perl2xml ($stuff);
my $stuff2 = MKDoc::XML::Dumper->xml2perl ($xml);
is_deeply ($stuff, $stuff2); # prints 'ok'
SUMMARY
MKDoc::XML::Dumper provides functionality equivalent to Data::Dumper except that rather than serializing structures into a Perl string, it
serializes them into a generic XML file format.
Of course since XML cannot be evaled, it also provides a mechanism for undumping the xml back into a perl structure.
MKDoc::XML::Dumper supports scalar references, hash references, array references, reference references, and litterals. It also supports
circular structures and back references to avoid creating unwanted extra copies of the same object.
That's all there is to it!
API
my $xml = MKDoc::XML::Dumper->perl2xml ($perl);
Turns $perl into an XML string. For instance:
my $perl = [ qw /foo bar baz/, { adam => 'apple', bruno => 'berry', chris => 'cherry' } ];
print MKDoc::XML::Dumper->perl2xml ($perl);'
Will print something like:
<array id="135338912">
<item key="0">
<litteral>foo</litteral>
</item>
<item key="1">
<litteral>bar</litteral>
</item>
<item key="2">
<litteral>baz</litteral>
</item>
<item key="3">
<hash id="135338708">
<item key="bruno">
<litteral>berry</litteral>
</item>
<item key="adam">
<litteral>apple</litteral>
</item>
<item key="chris">
<litteral>cherry</litteral>
</item>
</hash>
</item>
</array>
As you can see, every object has an id. This allows for backreferencing, so:
my $perl = undef;
$perl = $perl;
print MKDoc::XML::Dumper->perl2xml ($perl);'
Prints something like:
<ref id="135338888">
<backref id="135338888" />
</ref>
For the curious, these identifiers are computed using some perl black magic:
my $id = 0 + $reference;
my $perl = MKDoc::XML::Dumper->perl2xml ($xml);
Does the exact reverse operation as xml2perl().
AUTHOR
Copyright 2003 - MKDoc Holdings Ltd.
Author: Jean-Michel Hiver
This module is free software and is distributed under the same license as Perl itself. Use it at your own risk.
SEE ALSO
MKDoc::XML::Decode MKDoc::XML::Encode
perl v5.10.1 2004-10-06 MKDoc::XML::Dumper(3pm)