Hi Everyone,

I new to linux,
And more over I started learning Perl scripting.
Initially I installed perl in my OS and in web I got some tutorials also.

I am not able to write a script for the following requirement " I am having excell file (.xlsx) ,and I want a script that read the excell file and prints same content in the excel sheet "

Thanks for your immediate reply.
I saw the link and its good.....but the thing is I did not understand it ,I feel I need line to line explanation.( variables , etx ....).

so ask, what is ok, what is unclear....

use Spreadsheet::ParseExcel; ### why this is written

my $oExcel = new Spreadsheet::ParseExcel; ## what is $oExcel

die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV; ## this one also

my $oBook = $oExcel->Parse($ARGV[0]); ## did not understand
my($iR, $iC, $oWkS, $oWkC); ## did not understand
print "FILE :", $oBook->{File} , "\n"; ## did not understand
print "COUNT :", $oBook->{SheetCount} , "\n"; ## did not understand

print "AUTHOR:", $oBook->{Author} , "\n" ## did not understand
if defined $oBook->{Author};

for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) ## did not understand
{
$oWkS = $oBook->{Worksheet}[$iSheet]; ## did not understand
print "--------- SHEET:", $oWkS->{Name}, "\n";
for(my $iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; ## did not understand
$iR++) ## did not understand
{
for(my $iC = $oWkS->{MinCol} ; ## did not understand
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; ## did not understand
$iC++) ## did not understand
{
$oWkC = $oWkS->{Cells}[$iR][$iC]; ## did not understand
print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC) ## did not understand

here is the first one: the command use

yah I understood about "USE"...Can u please explain about the rest of the program....
Is This the only way we write or any other way??....which will be bit easy than this .....

the next one is to understand how the variables used in perl, what is my: http://perldoc.perl.org/functions/my.html, and here is a link about objects in perl: http://perldoc.perl.org/perlobj.html
If you want to use perl, this is the way.

Moved: This thread is more suitable in <PROGRAMMING> and has been moved accordingly to help your thread/question get the exposure it deserves.

Perl is full of 'dialects' (those are just ways of do things), but this is not the case as is quite standart. The script you bring on topic before, "uses" a library which is on itself an object, thats why we find something like:
The '->' calls a method from an object. The '$ARGV[0]' is a Perl default array that stores the arguments passed to the script file on run time, in this case is a filename as the script is written to be used like this way:
.
The 'perlvar' man page will give you a better panorama of that part. Also check 'perlobj' for object programming on Perl.
To any doubt about built-in functions, you can use:
I assume you missed 3 final closing brackets '}' (maybe a header with the hashbang for perl and a 'use strict' perhaps?), if so, the script is quite simple: it iterates over all columns and rows of all sheets on the file, print the coordenate of location and the value of it on the line:
which is the same of ask 'if this cell has something, print it'.

So, a lot to said on your previous question as is very vague, btw, but will be brief:
-If you have an error on this code, and assuming is well written, check if you do have that library you're calling, first line you quoted 'use Spreadsheet::ParseExcel;'. Check if is on your system, there are lots of ways of do it, my way is just by calling the doc of it:
If you see something that looks like a man page, you have it there, if an error you don't, go install it.
-The only trick to learn from the code you bring on topic is recursion, "for each sheet, walk by each column, for each column, walk by each row and print the content". The rest of it, is just a definition of where it will happen, what we will need... no mistery, just a workaround to get an excel file opened.
Perl has plenty ways of do recusion and those are very flexible, check on perldoc for for, foreach, do, while, until...
-You want to write something like that? Ok, install the library if not there, make some coffee and read the docs of the library; ther is not much way around it so far, just study... and cheat this way:
Hope this helps you.