Perl script to get info from specific rows & columns (.xls file)
Hi all,
I want to read some specific rows & columns in the .xls file with my script to get the data to be manipulated. Now, I can read the .xls file correctly & i can go to the specific sheet that I want but i have a problem to specify the specific rows & columns. I mean, I want to get the info that the sheet has between the row 5 & row 10 also the info between column 2 & column 5 ... I don't know how to get only that info.
I have this code & the output of this code is all the info that the Sheet has... I think that my condition in wrong.
Thanks a lot
Hi everybody,
This time I am having one issue in perl.
I have to create comma separated file using the following type of information. The problem is the columns do not have any specific delimiter. So while using split I am getting different value. Some where it is space(S) and some where it is... (9 Replies)
Hi guys I want to print the values by using this script but its giving the no of rows and columns as input instead of values
Would you plz help me on this
FILE- chr1.txt
1981 1
1971 1
1961 1
1941 1
perl script
#!/usr/bin/perl -w
$infile1 = 'chr1.txt';
$outfile3 = 'out3.txt';
... (3 Replies)
Dear unix gurus,
I have a data file with header information about a subject and also 3 columns of n rows of data on various items he owns. The data file looks something like this:
adam peter
blah blah blah
blah blah blah
car
01 30 200
02 31 400
03 57 121
.. .. ..
.. .. ..
n y... (8 Replies)
Dear unix gurus,
I have a data file that looks something like this ...
x y x y x y x y x y
0 3836 30 3915 60 5984 90 7388 120 8385
150 9038 180 9453 210 9745 240 9906 270 9962
300 9953 330 9915 350 9887 ... (22 Replies)
I have this data
M36 AREA INFORMATION
MDN = 0485009346
ESN = H'15fda0b0
TYPE = HLR
RESULT = NOK
REASON = UNRECOGNIZED MIN
COMPLETED
AREA INFORMATION
MDN = 0498044402
ESN = H'15fdac11
TYPE... (2 Replies)
Hi All
I want to have a Perl script which convert columns to rows.
The Perl should should read the data from input file.
Suppose the input file is
7215484
date to date
173.3
A
1.50
2.23
8.45
10.14
2.00
4.50
2.50
31.32
7216154
month to month (3 Replies)
Hi All,
I've got in a situation where I need to convert .xlsx or .xls formatted files into simple text file or .csv file.
I've found many options but doing this using PERL script is the best way I believe.I'm in AIX box.
Perl code should have 2 params while running. i.e
perl... (1 Reply)
Hi
I am trying one perl script to convert xlsx to xls file but could not able to get all the rows and columns in the xls file . This scriptFILE is basically to convert XLSX to CSV .. I am tweaking the script to convert XLSX to XLS file also
#######################FILE... (3 Replies)
Hi All,
I have below perl script which writes xml from .xls file.
Now i want to add below two conditions in this script :
1. to check if the the input .xls file has ony two columns , if more tahn two columns then script should pop up an error.
2. If there are two columns , then first column... (4 Replies)
Discussion started by: omkar.jadhav
4 Replies
LEARN ABOUT DEBIAN
spreadsheet::writeexcel::chart::stock
Spreadsheet::WriteExcel::Chart::Stock(3pm) User Contributed Perl Documentation Spreadsheet::WriteExcel::Chart::Stock(3pm)NAME
Stock - A writer class for Excel Stock charts.
SYNOPSIS
To create a simple Excel file with a Stock chart using Spreadsheet::WriteExcel:
#!/usr/bin/perl -w
use strict;
use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new( 'chart.xls' );
my $worksheet = $workbook->add_worksheet();
my $chart = $workbook->add_chart( type => 'stock' );
# Add a series for each Open-High-Low-Close.
$chart->add_series( categories => '=Sheet1!$A$2:$A$6', values => '=Sheet1!$B$2:$B$6' );
$chart->add_series( categories => '=Sheet1!$A$2:$A$6', values => '=Sheet1!$C$2:$C$6' );
$chart->add_series( categories => '=Sheet1!$A$2:$A$6', values => '=Sheet1!$D$2:$D$6' );
$chart->add_series( categories => '=Sheet1!$A$2:$A$6', values => '=Sheet1!$E$2:$E$6' );
# Add the worksheet data the chart refers to.
# ... See the full example below.
__END__
DESCRIPTION
This module implements Stock charts for Spreadsheet::WriteExcel. The chart object is created via the Workbook "add_chart()" method:
my $chart = $workbook->add_chart( type => 'stock' );
Once the object is created it can be configured via the following methods that are common to all chart classes:
$chart->add_series();
$chart->set_x_axis();
$chart->set_y_axis();
$chart->set_title();
These methods are explained in detail in Spreadsheet::WriteExcel::Chart. Class specific methods or settings, if any, are explained below.
Stock Chart Methods
There aren't currently any stock chart specific methods. See the TODO section of Spreadsheet::WriteExcel::Chart.
The default Stock chart is an Open-High-Low-Close chart. A series must be added for each of these data sources.
The default Stock chart is in black and white. User defined colours will be added at a later stage.
EXAMPLE
Here is a complete example that demonstrates most of the available features when creating a Stock chart.
#!/usr/bin/perl -w
use strict;
use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new( 'chart_stock_ex.xls' );
my $worksheet = $workbook->add_worksheet();
my $bold = $workbook->add_format( bold => 1 );
my $date_format = $workbook->add_format( num_format => 'dd/mm/yyyy' );
# Add the worksheet data that the charts will refer to.
my $headings = [ 'Date', 'Open', 'High', 'Low', 'Close' ];
my @data = (
[ '2009-08-23', 110.75, 113.48, 109.05, 109.40 ],
[ '2009-08-24', 111.24, 111.60, 103.57, 104.87 ],
[ '2009-08-25', 104.96, 108.00, 103.88, 106.00 ],
[ '2009-08-26', 104.95, 107.95, 104.66, 107.91 ],
[ '2009-08-27', 108.10, 108.62, 105.69, 106.15 ],
);
$worksheet->write( 'A1', $headings, $bold );
my $row = 1;
for my $data ( @data ) {
$worksheet->write( $row, 0, $data->[0], $date_format );
$worksheet->write( $row, 1, $data->[1] );
$worksheet->write( $row, 2, $data->[2] );
$worksheet->write( $row, 3, $data->[3] );
$worksheet->write( $row, 4, $data->[4] );
$row++;
}
# Create a new chart object. In this case an embedded chart.
my $chart = $workbook->add_chart( type => 'stock', embedded => 1 );
# Add a series for each of the Open-High-Low-Close columns.
$chart->add_series(
categories => '=Sheet1!$A$2:$A$6',
values => '=Sheet1!$B$2:$B$6',
name => 'Open',
);
$chart->add_series(
categories => '=Sheet1!$A$2:$A$6',
values => '=Sheet1!$C$2:$C$6',
name => 'High',
);
$chart->add_series(
categories => '=Sheet1!$A$2:$A$6',
values => '=Sheet1!$D$2:$D$6',
name => 'Low',
);
$chart->add_series(
categories => '=Sheet1!$A$2:$A$6',
values => '=Sheet1!$E$2:$E$6',
name => 'Close',
);
# Add a chart title and some axis labels.
$chart->set_title( name => 'Open-High-Low-Close', );
$chart->set_x_axis( name => 'Date', );
$chart->set_y_axis( name => 'Share price', );
# Insert the chart into the worksheet (with an offset).
$worksheet->insert_chart( 'F2', $chart, 25, 10 );
__END__
AUTHOR
John McNamara jmcnamara@cpan.org
COPYRIGHT
Copyright MM-MMX, John McNamara.
All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
perl v5.10.1 2010-02-02 Spreadsheet::WriteExcel::Chart::Stock(3pm)