The output files required in my example is as below. The requirement is
- Records in each file should not be more than 20
- each file should start with 101 record. This ensures that all associated 101 and 104 are in same file. Hence in example below since count including next set of 101 is going beyond 20, first file is cut at 18. rest of records are pushed to next file and so on.
Last edited by santosh2k2; 10-12-2012 at 05:22 AM..
I need to split a file into n separate files of about the same size. The way the file will be split is at every nth row, starting with the first row, that row will be cut and copied to it's corresponding new file so that each file has unique records. Any 'leftovers' will go into the last file. e.g.... (4 Replies)
Hi all,
I have a list of xml file. I need to split the files to a different files when see the <ko> tag.
The list of filename are
B20090908.1100-20090908.1200_CDMA=1,NO=2,SITE=3.xml
B20090908.1200-20090908.1300_CDMA=1,NO=2,SITE=3.xml
B20090908.1300-20090908.1400_CDMA=1,NO=2,SITE=3.xml
... (3 Replies)
I know this is a simple matter, but I'm new to this.
I have a shell script that calls a sed script from within it. I want the output of the shell script to be based on the input file I pass as an argument to the original script. In other words...
./script.sh file.txt
(script.sh calls sed... (2 Replies)
Hi,
I need to split files based on text:
BEGIN DSJOB
Identifier "LA"
DateModified "2011-10-28"
TimeModified "11.10.02"
BEGIN DSRECORD
Identifier "ROOT"
BEGIN DSSUBRECORD
Owner "APT"
Name "RecordJobPerformanceData"
Value "0"
... (16 Replies)
I have a source file that contains multiple XML files concatenated in it. The separator string between files is <?xml version="1.0" encoding="utf-8"?>. I wanted to split files in multiple files with mentioned names. I had used a awk code earlier to spilt files in number of lines i.e.
awk... (10 Replies)
I have below script which does splitting based on a different criteria. can it be amended to produce required result
SrcFileName=XML_DUMP
awk '/<\?xml version="1\.0" encoding="utf-8"\?>/{n++}
n{f="'"${SrcFileName}_"'" sprintf("%04d",n) ".txt"
print >> f
close(f)}' $SrcFileName.txt
My... (3 Replies)
Dear unix forum,
could I output a list of five books with their file name titles into one file?
In order o output all the contents of all the files with their file names there was: find . -type f | while read x; echo -e "\n$x";cat "$x";done > бетховен.txt
In spite of them being successively... (5 Replies)
Hello,
I am trying to print searched multiple keywords in multiple files.
It is almost okay with the code but the code puts filename in front of each line.
How may I get rid of it?
-grep -A1 'word1' *.txt | grep -A1 'word2' | grep -A1 'word3'
I expect:
Real outcome:
How may I... (3 Replies)
Hi everyone :)
I have a file "words.txt" containing hundreds of lines of text. Each line contains a slogan.
Using the code below i am able to generate an image with the slogan text from each line.
The image filename is saved matching the last word on each line.
Example:
Line 1: We do... (2 Replies)
How can I get the name of the default output filename from curl using the argument -O?
Using -o one can choose a filename. I want to get the name of the original file, but don't understand how to get it.
curl -o filename http://www.website.com
curl -O http://www.website.com
The... (3 Replies)
Discussion started by: locoroco
3 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)