Perl Script Perl Script Perl, Starling Gan Uesli Starling 2007, Gan Uesli Starling Perl Script <code>gus_tek_csv_merge.pl</code>

copyright 2007
by Ĝan Ŭesli Starling

Introduction

Where I work we have a Tektronix 4-channel digital oscilloscope which saves data in *.csv format. That is good. The bad part is that it saves a separate file for each channel, even though they are synchronous. So what this script does is merge two *.csv files back into one, then graphs them.

Merging CSV Files

Suppose you have a pair of TEK00000.CSV files that look sort of like this...

'Time (S)','Spray (V)',
-.0999724,.2
-.0995724,.2
-.0991724,-.6
-.0987724,-.2

...for one, and a second file, TEK00001.CSV which looks like this...

'Time (S)','Scan (V)',
-.0999752,.2
-.0995752,.2
-.0991752,.2
-.0987752,.2

...for the other.

Not exactly like that, since each would be longer by hundreds of lines. But that general kind of layout where...

  • The first (top) line you will have inserted after collection so as to identify the data for posterity.
  • The 2nd thru Nth lines are the original 1st thru Nth lines of the raw TEK0000*.CSV file.

And say you want to merge those two files so as to have one output TEK00000-TEK00001.csv file which looks like this...

'Time (S)', 'Spray (V)', 'Scan (V)'
    -0.1000,        0.20,       0.20
    -0.0996,        0.20,       0.20
    -0.0992,       -0.60,       0.20
    -0.0988,       -0.20,       0.20

...but again of several hundred lines. And say you would also like an explanitory file named TEK00000-TEK00001.csv.info which should look rather like this...

'Column Order' = 0
'Column Name' =   'Time (S)'
'Dimension' = Time
'Unit' = Seconds (S)
'Data Length' = 500

'Column Order' = 1
'Column Name' =   'Spray (V)'
'Dimension' = Amplitude
'Unit' = Volts (V)
'Data Length' = 500

'Column Order' = 2
'Column Name' =   'Scan (V)'
'Dimension' = Amplitude
'Unit' = Volts (V)
'Data Length' = 500

Download

My script gus_tek_csv_merge.pl will perform as described above on any pair of CSV input files. Although this script has no built-in GUI, a separate GUI is also provided in its own pair of download links.

Scripts

Here are links relating to the command-line version of this script.

Script:  POD as HTML   Perl as TXT

Auxilliary GUI

Here is the separate GUI, written in Perl/Tk which will interface to (call and run on command) the above GUI-less Perl script. This is my new methodology for dealing with simple scripts, rather than build in a custom GUI for each.

Script:  POD as HTML   Perl as TXT

Example CSV Files

To test the above script (with or without its GUI) you will need a pair of Tektronix data files. Here are two for you to play with.

Inputs:  CSV as TXT   CSV as TXT

Custom Dependencies

This script has Perl module dependencies some of which are not yet on CPAN. Download them from here.

Module:  XML  Chart::EPS_graph
Module:  XML  Text::CSV::Munge
Module:  XML  Tk::EasyGUI