Print from CSV 1

[cam24r]

Hi,

I have the following input in a csv file(attached):

Size Color Shape
- |green |
- |red |-
- |- |Rectangle
- |- |Circle
big |- |-
small |- |-
....
...
..

and I want to get something like this:

big green rectangle
big green circle
big red rectangle
big red circle
small green rectangle
small green circle
small red rectangle
small red circle

Any idea where to start? Any help is greatly appreciated. Thanks.

 

[rharsh]

It seems like the first line of data (the one with 'green') may have an error -- and there was no attachment. So taking what you entered as a sample, here you go:

use warnings;
use strict;
my %tiers;
my $fh = *DATA;

my $headers = <$fh>;	# Grab Headers

while (<$fh>) {
	next if /^\s*$/;	# Skip any Blank lines
	chomp;
	my @parts = split /\s*\|\s*/;
	
	for (my $i = 0; $i<= $#parts; $i++) {
		unless ($parts[$i] =~ /^\s*[-]?\s*$/) {
			push @{$tiers{$i}}, $parts[$i];
			last;
		}
	}
}

&print_tiers([], sort keys %tiers);

sub print_tiers {
	my $a_ref = shift;	# Array Reference with all the previous values
	my $key = shift;	# current key in %tiers
	if (scalar @_ == 0) {
		foreach my $val (@{$tiers{$key}}) {
			print join(" ", @{$a_ref}, $val), "\n";
		}
	} else {
		foreach my $val (@{$tiers{$key}}) {
			&print_tiers([@{$a_ref}, $val], @_);
		}
	}
}

__DATA__
Size Color Shape
- |green |
- |red |-
- |- |Rectangle
- |- |Circle
big |- |-	
small |- |-

 

[cam24r]

Thank you rharsh, this did the job. I appreciate it.