Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^2: How to get file path into hash data structure.

by veerubiji (Sexton)
on Dec 14, 2011 at 17:15 UTC ( #943592=note: print w/ replies, xml ) Need Help??


in reply to Re: How to get file path into hash data structure.
in thread How to get file path into hash data structure.

Hi Marshall, Thanks for your reply and suggestion. I tried as you said as shown below

#!/usr/bin/perl use warnings; use strict; use XML::Simple; use Carp; use File::Find; use File::Spec::Functions qw( canonpath ); use Data::Dumper; my %hash; my $default_dir = "C:/Main/work"; if (@ARGV == 1) { $default_dir = shift @ARGV ) elsif (@ARGV >1) { die "too many command line args\n"; }; find( sub { return unless ( /(_service\.xml)$/ and -f ); Hash_information(); return; }, @ARGV ); sub Hash_information { my $path= $_; my $xml = new XML::Simple; my $data = $xml->XMLin("$path", ForceArray => [ 'Service','SystemReact +ion','SW','HW','Component' , 'BM'],); return; }

I don't know how to add file path to hash? and also you suggested me define one hash with larger scope so I defined one hash and I don't know how to store this $data into %hash. Can you help me. Don't hesitate me I am new to perl.


Comment on Re^2: How to get file path into hash data structure.
Download Code
Re^3: How to get file path into hash data structure.
by Marshall (Prior) on Dec 14, 2011 at 19:01 UTC
    Ok does this make sense?:
    #!/usr/bin/perl use warnings; use strict; use XML::Simple; use Carp; use File::Find; use Data::Dumper; my %hash; my $default_dir = "C:/Main/work"; if (@ARGV == 1) { $default_dir = shift @ARGV ) elsif (@ARGV >1) { die "too many command line args\n"; }; find (\&process_file_name, $default_dir); # find() will start at the $default_dir # and call process_file_name for each file or # directory that it finds at or "beneath" the # $default_dir sub process_file_name { my $current_file = $File::Find::Name; #$File::Find::name is the complete pathname to the file. return unless (-f $current_file and $current_file =~ /_service\.xml$/); # we are at a data file (not a directory) # and this file name ends in _service.xml process_the_file ($current_file); } sub process_the_file { my $file_path = shift; ...open the $file_path ...figure out what you want from that file... ...$hash{$file_path} = "some data"; # this is how the data is "returned" # %hash has "global scope" # add an entry to %hash instead of # returning a value from this sub ...close the file }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://943592]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (18)
As of 2015-07-06 18:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (80 votes), past polls