in reply to Re^11: How to assign an array to a value in hash?
in thread Re: How to assign an array to a value in hash?

I'll take a look at this tomorrow, when I get around to it. Until then, a few suggestions:

  1. Please format and indent your script properly. You'll make it a lot easier for both yourself (your future self!) and whoever comes after you to understand your code. Excerpts like this: 

    else {
}
}
}
print "\ncount ---> $count\n";

}
}
}}

    [download]

    really give me the heebies. Structure your code, indent it, format it. (Perl::Tidy can help you with this, BTW.)

  2. Don't copy and paste code without a good reason. Use subroutines.
  3. For that matter make it a habit to use the three-argument form of open, and to use lexical filehandles.

I did all this in Re^6: How to assign an array to a value in hash?, so I'm curious -- why did you do away with it?

For that matter, is there a reason you got rid of List::Compare to do comparison work, and that you opted not to use Text::CSV to write the CSV file?

Replies are listed 'Best First'.
Re^13: How to assign an array to a value in hash?
by vukotid (Initiate) on Mar 18, 2015 at 06:03 UTC
    Hi AppleFritter ,

    I am sorry very much for not using your code.

    But in my office I don't have admin/root access to install

    the List::Compare or any other CPAN modules.So I have developed some script.

    I will change my scripting style/format.

    Thanks

    Dhananjaya V
[reply]
[reply]

      OK, fair enough; not being in control of the environment you're using is a good excuse for not using CPAN modules. Of course, as Athanasius points out, you can still install them locally for yourself: so if you merely need to write and run a script to do tasks assigned to you, I'd look into doing that. It's usually a good idea to not reinvent the wheel.

      That said... the script you posted above does not compile: 

      $ perl 1120332.pl
Global symbol "$m" requires explicit package name at 1120332.pl line 8
+2.
Global symbol "$n" requires explicit package name at 1120332.pl line 8
+2.
Execution of 1120332.pl aborted due to compilation errors.
$

      [download]

      PLEASE, don't post code that doesn't compile.

      Now, with this fixed, where are you having problems? Your script appears to be figuring out what keys/values were added removed between Switcher.properties and SwitcherNew.properties, so you got that part taken care of. That leaves output.

      Exactly how do you want the final CSV file to be organized? Suppose that you'd be running this program with the sample data I used in Re^6: How to assign an array to a value in hash?. Can you post an example of what the output of the script for that data should look like? Also try to write some code that will output the data your script has collected in the format that you require.

      For actually writing the file, I still recommend Text::CSV; this is not a core module, but you should be able to install it with the help of Athanasius' advice. Simply writing to a file with a ".csv" file extension, as you are doing now is not enough: CSV files are expected to adhere to a certain structure.

      I hope this helps.

[reply]
[d/l]

In Section Seekers of Perl Wisdom