An added plus would be to make all text lower-case.

Thanks for your help!
Steve

[perl] my ( $part, $categories) = split( /,/, lc); [/perl]

I'm not too hot on database structure with all that linking. When I do it I just give everything an ID and sort it out myself! :D

I'm sure one of the other guys will help you out with that one.

[edited by: Dabrowski at 7:44 pm (utc) on Sep. 22, 2008]

Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings>perl cat.pl
0 - 1

It resulted in 0 in colA and 1 in colB, on screen and CSV file, and nothing else.

Thanks,
Steve
C:\Documents and Settings>

[perl]my ( $part, $categories) = split( /,/, lc( $_)); [/perl]

No need to make it a table. I can do that easily.

Thanks!
Steve

Heart-felt thanks,
Steve

Thanks!

use strict;

open( CSV, "part_info.csv") ¦¦ die "Open file failed!\n";
my @lines_in_csv = <CSV>;
close( CSV);

my $parts;
foreach( @lines_in_csv) {
my ( $part, $categories) = split( /,/, lc);
$parts -> {$part} = [ split( /\s+/, $categories)];
}

open( NEWCSV, ">new_part_info.csv") ¦¦ die "File open failed\n";
foreach my $partno ( sort keys( %$parts)) {
foreach my $category ( sort @{ $parts -> {$partno}}) {

## Now you can do something with $partno and $category
## $partno is your original part number
## $category will change each time singularly while $partno stays the same

print "$partno - $category\n";
print NEWCSV "$partno,$category\n";
}
}