Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Help with perl script.
Top Forums Programming Help with perl script. Post 302564986 by durden_tyler on Saturday 15th of October 2011 10:57:18 PM
Old 10-15-2011
Quote:
Originally Posted by veerubiji
Hi,
i tried like this but its not working can you suggest how to use.
Code:
use warnings;
 use strict;
 use XML::LibXML::Reader;
  my $file;

 foreach $file glob("*.xml") {

 my $reader = XML::LibXML::Reader->new( IO => $file ) or die ("unable to open file");
     my %hash;
 while ($reader->nextElement( 'nuber' ) ) {
 
 my $Number = $reader->readInnerXml();
 
 $reader->nextElement( 'data' ); 
 my $information = $reader->readOuterXml(); 
 
 $nums{$Number}= $information;
 
 print( "  NUMBER:$Number\n" );
     print( " Information:$information\n" );
 
    }
}
  print my $num=keys%hash;
 close($file);

but it doesn't give any errors also. may br is there any wrong using for loop.
Or maybe you do not have the nuber element in your files.

tyler_durden
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Run perl script in the current process

I have a question regarding running perl in the current process. I shall demonstrate with an example. Look at this. sh-2.05b$ pwd /tmp sh-2.05b$ cat test.sh #! /bin/sh cd /etc sh-2.05b$ ./test.sh sh-2.05b$ pwd /tmp sh-2.05b$ . ./test.sh sh-2.05b$ pwd /etc sh-2.05b$ So... (10 Replies)
Discussion started by: vino
10 Replies

2. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

3. Shell Programming and Scripting

perl/unix: script in command line works but not in perl

so in unix this command works works and shows me a list of directories find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt but when i try running a perl script to run this command my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies

4. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

5. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

6. Shell Programming and Scripting

calling a perl script with arguments from a parent perl script

I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard. From parent.pl $input1=123; $input2=abc; I tried calling it with system("/usr/bin/perl child.pl $input1 $input2"); and `perl... (1 Reply)
Discussion started by: grajp002
1 Replies

7. Shell Programming and Scripting

executing perl script from another perl script : NOT WORKING

Hi Folks, I have 2 perl scripts and I need to execute 2nd perl script from the 1st perl script in WINDOWS. In the 1st perl script that I had, I am calling the 2nd script main.pl =========== print "This is my main script\n"; `perl C:\\Users\\sripathg\\Desktop\\scripts\\hi.pl`; ... (3 Replies)
Discussion started by: giridhar276
3 Replies

8. Shell Programming and Scripting

Perl : embedding java script with cgi perl script

Hi All, I am aware that html tags can be embedded in cgi script as below.. In the same way is it possible to embed the below javascript in perl cgi script ?? print("<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">"); print("<input type = "text"... (1 Reply)
Discussion started by: scriptscript
1 Replies

9. Shell Programming and Scripting

Excuting perl script from within a perl script with variables.

Not sure what I am doing wrong here, but I can print the list with no issue. Just a blank screen with the 'do'. #!/usr/bin/perl open FILE, "upslist.txt"; while ($line=<FILE>){ if ($line=~/^(.*?),(.*?)$/){ #print "ups:$1 string:$2\n"; do 'check_snmp_mgeups-0.1.pl -H $1 -C $2'; } ... (1 Reply)
Discussion started by: mrlayance
1 Replies

10. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

LEARN ABOUT OPENSOLARIS

file-roller

file-roller(1)							   User Commands						    file-roller(1)

NAME

       file-roller - create, view, modify, or unpack an archive

SYNOPSIS

       file-roller  [--add]  [--add-to=archive]  [--default-dir=folder]  [--extract]  [--extract-here] [--extract-to=folder] [--force] [gnome-std-
       options]

DESCRIPTION

       The File Roller application enables you to create, view, modify, or unpack an archive. An archive is a file that acts as  a  container  for
       other files. An archive can contain many files, folders, and subfolders, usually in compressed form.

OPTIONS

       The following options are supported:

       -d, --add		       Ask for the name of the archive, then add the files, then quit the application.

       -a, --add-to=archive	       Add files to the specified archive, then quit the application.

       --default-dir=folder	       Specify the default folder for the --add and --extract options.

       -f, --extract		       Ask for the name of the destination folder, then extract the files, then quit the application.

       -h, --extract-here	       Extract archives using the archive name as destination folder and quit the program.

       -e, --extract-to=folder	       Extract archives to the specified folder, then quit the application.

       --force			       Create the destination folder without asking for confirmation.

       gnome-std-options	       Standard  options available for use with most GNOME applications.  See gnome-std-options(5) for more infor-
				       mation.

EXAMPLES

       Example 1: Unpacking an Archive

       example% file-roller --extract archive

EXIT STATUS

       The following exit values are returned:

       0	Application exited successfully

       >0	Application exited with failure

FILES

       The following files are used by this application:

       /usr/bin/file-roller    Executable for File Roller application.

ATTRIBUTES

       See attributes(5) for descriptions of the following attributes:

       +-----------------------------+-----------------------------+
       |      ATTRIBUTE TYPE	     |	    ATTRIBUTE VALUE	   |
       +-----------------------------+-----------------------------+
       |Availability		     |SUNW			   |
       +-----------------------------+-----------------------------+
       |Interface stability	     |Volatile			   |
       +-----------------------------+-----------------------------+

SEE ALSO

       File Roller Manual

       ar(1), tar(1), unzip(1), zip(1), attributes(5), gnome-std-options(5)

NOTES

       Written by Laszlo Kovacs, Sun Microsystems Inc., 2003, 2004, 2007.

SunOS 5.11							    08 Nov 2007 						    file-roller(1)
All times are GMT -4. The time now is 09:17 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy