Consider reading the Hash tutorials. Using a hash and sorted keys should resolve most of your problems. | [reply]
[d/l] |
To keep the formatting in text output you might use a sub like this (untested):
sub rj {
# right justifies each argument with a length of first parameter
my $len= shift;
my $str='';
while (@_) {
$str.= substr(' 'x12 . shift @_), $len);
}
return $str;
}
print rj(12, @d); #prints data in columns of length 12
In a similar way it is possible to have a subroutine generate left shift or centered text.
Remember to divide a difficult problem into smaller steps. Solving these smaller steps is always easier than looking at the whole problem.
This is what I did because I have a heck of a problem understanding what you want to put where. I neither understand your sorting order ( #,B #/# #,E is alphabetically sorted??) nor where the 1 in A1 comes from.
| [reply]
[d/l]
[select] |
well, my actual data labels aren't A, B, C, D, E, etc. They're vital signs, so they might start with those letters, I meant alphabetically sorted in that B comes before E. The 1 in A1 comes from the fact that there are multiple data points collect under the label "A", so each of those needs to have a sub label of A-1, A-2, etc
| [reply] |
| [reply]
[d/l]
[select] |
What have you tried so far? Show some effort on your own, and we'll try to help you.
Also please read Writeup Formatting Tips, please use <code>...</code> tags only for code, and paragraphs <p>...</p> for text. | [reply]
[d/l]
[select] |
ah, thanks for notifying me about the paragraph tags, i somehow missed them reading about them
print "File Location?";
my $data_file = <>;
open(RAWDATA, $data_file);
my @list;
while (<RAWDATA>) {
chomp;
my (%hash, @rest);
($hash{first}, $hash{date}, @rest) = split(",", $_);
for my $r (@rest) {
my ($k, $v) = split(' ', $r, 2);
$hash{$k} = $v;
}
push(@list, \%hash);
};
my %seen;
for (@list) { for (keys %$_) { $seen{$_}++ } };
delete $seen{first};
delete $seen{date};
my @allkeys = ('first', 'date', sort keys %seen);
my @keys = (sort keys %seen);
open(SEMIDATA, ">temp.slice");
for my $h (@list) {
print(SEMIDATA join(',', $h->{first}, $h->{date}, map( $_.' '.$h->{$_}
+, @keys ) ), "\n") or warn "print failed: $!";
}
close(RAWDATA);
close(SEMIDATA);
open(EDITDATA, "temp.slice");
my @array_of_data = <EDITDATA>;
close ("temp.slice");
foreach my $line (@array_of_data)
{
#all replacements go here
$line =~ s!X!!g;
$line =~ s!ART ,!ART / ,!g;
$line =~ s!ECG ,!ECG /,!g;
$line =~ s!NBP ,!NBP / ,!g;
$line =~ s!PA ,!PA / ,!g;
$line =~ s!RESP ,!RESP /,!g;
$line =~ s!SAO2 ,!SAO2 /,!g;
$line =~ s!ST ,!ST //,!g;
$line =~ s!TEMP \n!TEMP /\n!g;
}
# Open the file for writing.
open REGDATA, ">temp2.slice";
foreach my $line (@array_of_data)
{
# Print each line in turn to the new filehandle DATAOUT
print REGDATA "$line";
}
close REGDATA;
}
this is relevant part of the program i have so far, which sorts each data label alphabetically. As I was unsure of how to count how many distinct numbers followed a label, i tried to fill in non existant data with substitutions, which was merely a temporary fix. I havent even begun attempting to get the data organized into nice excel-esque columns, as that would first require standardizing its appearance. | [reply]
[d/l] |
ah, thanks for notifying me about the paragraph tags, i somehow missed them reading about them
No problem. Just go to your original question and fix the markup.
As for your programming problem, I think you're making it harder than it needs to be.
For example there's no need to store your data to disk twice, and read it again. Here's what I'd do, in non-tested perl code, with some blanks left for you to figure out:
# store all data here:
my %data;
while (<INPUT>){
chomp
my @items = sort split m/,/;
my %seen;
# number the occurrences of data points, and put them into a hash
for (@items) {
my ($key, $val) = split m/ /, $_, 2;
my $index = ++$seen{$key};
push @{$data{"$key$index"}}, $val;
}
}
# now all data should be in the hash %data.
use Data::Dumper;
print Dumper \%data;
# now print it:
my @keys = sort keys %data;
while (keys %data) {
for (@keys) {
if (exists $data{$_}) {
# print it out here
# then remove it
shift @{$data{$_}};
delete $data{$_} unless @{$data{$_}};
} else {
# print a placeholder here
}
}
}
The idea is to keep a list of all data values for each label, in your case ['#', '#'] for A1, ...
The choice of a clever data structure (ie one that fits the way you want to access it in your code) makes it much easier. | [reply]
[d/l]
[select] |