Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
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 drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2014-12-22 08:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (112 votes), past polls