Sponsored Content
Top Forums Shell Programming and Scripting How to nodetype as "ELEMENT_NODE" using xml::libxml in perl? Post 302524890 by vanitham on Wednesday 25th of May 2011 03:13:33 AM
Old 05-25-2011
How to nodetype as "ELEMENT_NODE" using xml::libxml in perl?

Hi,

I am using xml::libxml.

Here is the code.
Code:
my $parser = XML::LibXML->new();
my $xmldoc = $parser->parse_file ("file.xml") || die("Could not parse config xml file\n");
my $root = $xmldoc->getDocumentElement()|| die("Could not get Document Element \n");
$id="121313131"; # For example
proceed($root,$id);
sub proceed {
my($node,$id)= @_;
#$node->nodeType is returning "1"
if ($node->nodeType == ELEMENT_NODE) 
	{
		print "\n -----------------\n";
		#get all the child nodes
	}
		
}

My question is the control is not entering in if loop.

How to get the ELEMENT_NODE and check for the condition weather is it ELEMENT_NODE or node and get all the children in perl only?

Code:
#cat file.xml
<JUNKS>
	<JUNK>
		<NAME>AAA</NAME>
		<AGE>12</AGE>
	<JUNK>
		<ADDR>Q1WQW</ADDR>
		<NUM>1212</NUM>
	</JUNK>
  </JUNK>
</JUNKS>

Output:
<JUNKS>
	<JUNK>
	 <NAME>AAA</NAME>
	 <AGE>12</AGE>
	 <ADDR>Q1WQW</ADDR>
	 <NUM>1212</NUM>
</JUNK>
</JUNKS>

This is just a sample file.

How can i get ELEMENT_NODE and all its children using xml::libxml in perl?

Regards
Vanitha
 

9 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Explain the line "mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'`"

Hi Friends, Can any of you explain me about the below line of code? mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'` Im not able to understand, what exactly it is doing :confused: Any help would be useful for me. Lokesha (4 Replies)
Discussion started by: Lokesha
4 Replies

2. Shell Programming and Scripting

perl folder list with "..", without ".".

Hi Everyone, if my folder "foldera" inside has one file. so if i do if ($df =~ /^\./) { next; } then i will get ### filea ### if i want to have ### .. filea ### means also display the parent .., how should i modify the perl ~// in my code? Thanks ---------- Post updated... (6 Replies)
Discussion started by: jimmy_y
6 Replies

3. Shell Programming and Scripting

awk command to replace ";" with "|" and ""|" at diferent places in line of file

Hi, I have line in input file as below: 3G_CENTRAL;INDONESIA_(M)_TELKOMSEL;SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL My expected output for line in the file must be : "1-Radon1-cMOC_deg"|"LDIndex"|"3G_CENTRAL|INDONESIA_(M)_TELKOMSEL"|LAST|"SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL" Can someone... (7 Replies)
Discussion started by: shis100
7 Replies

4. Solaris

The slices "usr", "opt", "tmp" disappeared!!! Help please.

The system don't boot. on the screen appears following: press enter to maintenance (or type CTRL-D to continue)...I checked with format command. ... the slices "0-root","1-swap","2-backup" exist. ...the slises "3-var","6-usr" -unassigned. :( (16 Replies)
Discussion started by: wolfgang
16 Replies

5. Shell Programming and Scripting

Perl failure with "main::$fn" used only once:" in error logs

Hi all, Can anyone guess why this is happening? I am new to Perl, so please help me to fix this error: - I have a static html file which calls the cgi-perl script. HTML Code: <html> <head> <title> Hey Dude! </title> </head> <body> <form method="POST"... (3 Replies)
Discussion started by: bashily
3 Replies

6. UNIX for Dummies Questions & Answers

Using "mailx" command to read "to" and "cc" email addreses from input file

How to use "mailx" command to do e-mail reading the input file containing email address, where column 1 has name and column 2 containing “To” e-mail address and column 3 contains “cc” e-mail address to include with same email. Sample input file, email.txt Below is an sample code where... (2 Replies)
Discussion started by: asjaiswal
2 Replies

7. Shell Programming and Scripting

Delete all log files older than 10 day and whose first string of the first line is "MSH" or "<?xml"

Dear Ladies & Gents, I have a requirement to delete all the log files in /var/log/test directory that are older than 10 days and their first line begin with "MSH" or "<?xml" or "FHS". I've put together the following BASH script, but it's erroring out: for filename in $(find /var/log/test... (2 Replies)
Discussion started by: Hiroshi
2 Replies

8. Shell Programming and Scripting

Bash script - Print an ascii file using specific font "Latin Modern Mono 12" "regular" "9"

Hello. System : opensuse leap 42.3 I have a bash script that build a text file. I would like the last command doing : print_cmd -o page-left=43 -o page-right=22 -o page-top=28 -o page-bottom=43 -o font=LatinModernMono12:regular:9 some_file.txt where : print_cmd ::= some printing... (1 Reply)
Discussion started by: jcdole
1 Replies

9. AIX

Apache 2.4 directory cannot display "Last modified" "Size" "Description"

Hi 2 all, i have had AIX 7.2 :/# /usr/IBMAHS/bin/apachectl -v Server version: Apache/2.4.12 (Unix) Server built: May 25 2015 04:58:27 :/#:/# /usr/IBMAHS/bin/apachectl -M Loaded Modules: core_module (static) so_module (static) http_module (static) mpm_worker_module (static) ... (3 Replies)
Discussion started by: penchev
3 Replies
Xacobeo::Utils(3pm)					User Contributed Perl Documentation				       Xacobeo::Utils(3pm)

NAME
Xacobeo::Utils - Utilities. SYNOPSIS
use Xacobeo::Utils qw(:dom :xml); if (isa_dom_text($node)) { my $text = escape_xml_text($node->nodeValue); print "$text "; } DESCRIPTION
This package provides utility functions that are shared among the different modules in this project. IMPORTS
The following import tags are defined: :xml Import the XML utilities. :dom Imports the DOM utilities. FUNCTIONS
The following functions are available: escape_xml_text Escapes the text as if would be added to a Text node. This function escapes only the entities <, > and &. Parameters: o $string The string to escape. escape_xml_attribute Escapes the text as if would be added to an Attribute. This function escapes the entities <, >, &, ' and ". Parameters: o $string The string to escape. isa_dom_document Returns true if the node is a DOM "Document" (instance of XML::LibXML::Document). Parameters: o $node The node to check. isa_dom_element Returns true if the node is a DOM "Element" (instance of XML::LibXML::Element). Parameters: o $node The node to check. isa_dom_attr Returns true if the node is a DOM "Attribute" (instance of XML::LibXML::Attr). Parameters: o $node The node to check. isa_dom_nodelist Returns true if the node is a DOM "NodeList" (instance of XML::LibXML::NodeList). Parameters: o $node The node to check. isa_dom_text Returns true if the node is a DOM "Text" (instance of XML::LibXML::Text). NOTE: XML::LibXML considers that "Comment" and "CDATA" nodes are also "Text" nodes. This method doesn't consider a "Comment" nor a "CDATA" node as being "Text" nodes. Parameters: o $node The node to check. isa_dom_comment Returns true if the node is a DOM "Comment" (instance of XML::LibXML::Comment). Parameters: o $node The node to check. isa_dom_node Returns true if the node is a DOM "Node" (instance of XML::LibXML::Node). Parameters: o $node The node to check. isa_dom_pi Returns true if the node is a DOM "PI" (also known as: processing instruction) (instance of XML::LibXML::PI). Parameters: o $node The node to check. isa_dom_dtd Returns true if the node is a DOM "DTD" (instance of XML::LibXML::Dtd). Parameters: o $node The node to check. isa_dom_cdata Returns true if the node is a DOM "CDATASection" (instance of XML::LibXML::CDATASection). Parameters: o $node The node to check. isa_dom_namespace Returns true if the node is a "Namespace" (instance of XML::LibXML::Namespace). NOTE: The DOM doesn't define an object type named "Namespaces" but XML::LibXML does so this function is named 'isa_dom' for consistency with the other functions. Parameters: o $node The node to check. isa_dom_literal Returns true if the node is a "Literal" (instance of XML::LibXML::Literal). NOTE: The DOM doesn't define an object type named "Literal" but XML::LibXML does so this function is named 'isa_dom' for consistency with the other functions. Parameters: o $node The node to check. isa_dom_boolean Returns true if the node is a "Boolean" (instance of XML::LibXML::Boolean). NOTE: The DOM doesn't define an object type named "Boolean" but XML::LibXML does so this function is named 'isa_dom' for consistency with the other functions. Parameters: o $node The node to check. isa_dom_number Returns true if the node is a "Number" (instance of XML::LibXML::Number). NOTE: The DOM doesn't define an object type named "Number" but XML::LibXML does so this function is named 'isa_dom' for consistency with the other functions. Parameters: o $node The node to check. scrollify Wraps a widget in a scrolled window. Parameters: o $widget The widget to wrap. o $width The width of the scroll window. If "undef" then -1 will be used. o $height The height of the scroll window. If "undef" then -1 will be used. AUTHORS
Emmanuel Rodriguez <potyl@cpan.org>. COPYRIGHT AND LICENSE
Copyright (C) 2008,2009 by Emmanuel Rodriguez. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available. perl v5.14.2 2011-11-16 Xacobeo::Utils(3pm)
All times are GMT -4. The time now is 07:38 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy