If I understand your problem correctly, I don't see any need for anything but one awk script for this problem. Try:
If you want to try this on a Solaris/SunOS system, change awk to /usr/xpg4/bin/awk.
If patienttest2.txt contains:
(with <carriage-return><newline> line terminators or <newline> line terminators), produces the output:
Does this match what you're trying to do?
This User Gave Thanks to Don Cragun For This Post:
Hi,
I have an input data file :-
Test4599,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,2,2,Rain
Test90,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,Not Rain
etc....
I wanted to transpose these data to:-... (2 Replies)
Hi,
I did read a few posts on the subjects, tried out a few solutions, but did not solve my problem.
https://www.unix.com/302121568-post11.html
https://www.unix.com/shell-programming-scripting/137953-large-file-columns-into-rows-etc-4.html
Please help. Problem very similar to the second link... (15 Replies)
Hi I'm looking to transpose Linux data from a daily report that logs every 10mins like below.
After the first "comma" I need the daily total for Col2 and Col3 transposed like below.
The new transposed format below will then be exported to Microsoft Excel for Reporting.
Any help would be... (9 Replies)
Hello. very new to shell scripting and would like to know if anyone could help me.
I have data thats being pulled into a txt file and currently have to manually transpose the data which is taking a long time to do.
here is what the data looks like.
Server1 -- Date -- Other -- value... (7 Replies)
I can no longer find my commands, but I use to be able to transpose data with common fields from a single column to rows using a command line. My data is separated as follows:
NAME=BOB
ADDRESS=COLORADO
PET=CAT
NAME=SUSAN
ADDRESS=TEXAS
PET=BIRD
NAME=TOM
ADDRESS=UTAH
PET=DOG
I would... (7 Replies)
Hi I have below requirement, need help
One file contains the meta data information and other file would have the data, match the column from file1 and with file2 and extract corresponding column value and display in another file
File1:
CUSTTYPECD
COSTCENTER
FNAME
LNAME
SERVICELVL
... (1 Reply)
Hi All,
I have sort of a case to transpose data from rows to column
input data
Afghanistan|10000|1
Albania|25000|4
Algeria|25000|7
Andorra|10000|4
Angola|25000|47
Antigua and Barbuda|25000|23
Argentina|5000|3
Armenia|100000|12
Aruba|20000|2
Australia|50000|2
I need to transpose... (3 Replies)
Hi
I have the following sample of data: my full data dimention is 900,000* 1119
rs987435 C G 1 1 1 0 2
rs345783 C G 0 0 1 0 0
rs955894 G T 1 1 2 2 1
rs6088791 ... (7 Replies)
Discussion started by: marwah
7 Replies
LEARN ABOUT DEBIAN
chart::clicker::tutorial
Chart::Clicker::Tutorial(3pm) User Contributed Perl Documentation Chart::Clicker::Tutorial(3pm)NAME
Chart::Clicker::Tutorial - A Tutorial for using Chart::Clicker
VERSION
version 2.83
DESCRIPTION
This document aims to provide a tutorial for using Chart::Clicker.
EXAMPLES
Simple chart from a single data source
# grab the needed modules
use Chart::Clicker;
use Chart::Clicker::Data::Series;
use Chart::Clicker::Data::DataSet;
# build the chart
my $chart = Chart::Clicker->new;
# build the series (static here, will usually be supplied arrayrefs from elsewhere)
my $series = Chart::Clicker::Data::Series->new(
keys => [ 1,2,3,4,5 ],
values => [ 52,74,52,82,14 ],
);
# build the dataset
my $dataset = Chart::Clicker::Data::DataSet->new(
series => [ $series ],
);
# add the dataset to the chart
$chart->add_to_datasets($dataset);
# write the chart to a file
$chart->write_output('chart.png');
Simple chart from multiple data sources
use Chart::Clicker;
use Chart::Clicker::Data::Series;
use Chart::Clicker::Data::DataSet;
my $chart = Chart::Clicker->new;
# start an array that will hold the series data
my $series1 = Chart::Clicker::Data::Series->new(
keys => [ 1,2,3,4,5 ],
values => [ 52,74,52,82,14 ]
);
my $series2 = Chart::Clicker::Data::Series->new(
keys => [ 1,2,3,4,5 ],
values => [ 34,67,89,45,67 ]
);
# add the array of series data to the dataset
my $dataset = Chart::Clicker::Data::DataSet->new(
series => [ $series1, $series2 ]
);
$chart->add_to_datasets($dataset);
$chart->write_output('chart.png');
Simple chart with multiple data sources and custom colors
use Chart::Clicker;
use Chart::Clicker::Data::Series;
use Chart::Clicker::Data::DataSet;
# some new modules, these are only needed if you want to monkey with color changing
use Graphics::Color::RGB;
use Chart::Clicker::Drawing::ColorAllocator;
# build the color allocator
my $ca = Chart::Clicker::Drawing::ColorAllocator->new;
# this hash is simply here to make things readable and cleaner, you can always call G::C::R inline
my $red = Graphics::Color::RGB->new({
red => .75, green => 0, blue => 0, alpha => .8
});
my $green = Graphics::Color::RGB->new({
red => 0,green => .75, blue=> 0, alpha=> .8
});
my $blue = Graphics::Color::RGB->new({
red => 0, green => 0, blue => .75, alpha => .8
}),
my $chart = Chart::Clicker->new;
# Create an empty dataset that we can add to
my $dataset = Chart::Clicker::Data::DataSet->new;
$dataset->add_to_series(Chart::Clicker::Data::Series->new(
keys => [ 1,2,3,4,5 ],
values => [ 52,74,52,82,14 ]
));
# add a color - note that the order of colors and the order of the
# series must match, the first series will use the first color and so on
# see contexts and axes for alternate ways of doing this
$ca->add_to_colors($blue);
$dataset->add_to_series(Chart::Clicker::Data::Series->new(
keys => [ 1,2,3,4,5 ],
values => [ 34,67,89,45,67 ]
));
# add a second color
$ca->add_to_colors($red);
$dataset->add_to_series(Chart::Clicker::Data::Series->new(
keys => [ 1,2,3,4,5 ],
values => [ 11,22,33,44,55 ]
));
# add a third color
$ca->add_to_colors($green);
$chart->add_to_datasets($dataset);
# assign the color allocator to the chart
$chart->color_allocator($ca);
$chart->write_output('chart.png');
Example 4 : Simple chart with a different render type
use Chart::Clicker;
use Chart::Clicker::Data::Series;
use Chart::Clicker::Data::DataSet;
# add in the module of the renerer(s) you want to use
use Chart::Clicker::Renderer::Area;
my $chart = Chart::Clicker->new;
my $series = Chart::Clicker::Data::Series->new(
keys => [ 1,2,3,4,5 ],
values => [ 52,74,52,82,14 ]
);
my $dataset = Chart::Clicker::Data::DataSet->new(
series => [ $series ]
);
$chart->add_to_datasets($dataset);
# build the renderer to use
my $renderer = Chart::Clicker::Renderer::Area->new(
opacity => .75,
);
# assign the renderer to the default context
$chart->set_renderer($renderer);
$chart->write_output('chart.png');
Example 5 : Width and Height
my $chart = Chart::Clicker->new(width => 1024, height => 768);
Example 6 : PDF (or SVG or PS)
my $chart = Chart::Clicker->new(format => 'pdf');
# Create the rest of your chart normally
$chart->write_output('chart.pdf');
Example 7 : Hide the Legend and X-Axis
my $chart = Chart::Clicker->new;
# hide the legend
$chart->legend->visible(0);
# hide the X-Axis
$chart->get_context('default')->domain_axis->hidden(1);
Example 8 : Change the display format of the Y-Axis
my $chart = Chart::Clicker->new;
# a sprintf format to have 3 decimal places showing on the Y-Axis
$chart->get_context('default')->range_axis->format('%.3f');
DISCLAIMER
This is a work in progress. If you find errors or would like to make contributions, drop me a line!
AUTHOR
Cory G Watson <gphat@cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Cold Hard Code, LLC.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
perl v5.14.2 2012-06-22 Chart::Clicker::Tutorial(3pm)