Anonymous

my $ss = new Spreadsheet::BasicRead($xlsFileName) ||
	die "Could not open '$xlsFileName': $!";
	$ss->getNextRow();
	while (my $data = $ss->getNextRow())
	{
		no warnings qw(uninitialized);
		@$data[0] =~ s/"/'/g;#'
		my $artist = @$data[0];
		@$data[1] =~ s/"/'/g;
		my $titel = @$data[1];
		my $format1 = @$data[2];
		my $katnr = @$data[3];
		my $ean = @$data[4];
		my $pk = @$data[5];
		my $format = "@$data[6]" . "$format1";
		my $rel = @$data[7];
		##print "insert into zeeq values (\"$artist\", \"$titel\", \"$katnr\", \"$ean\", \"$pk\", \"$format\", \"$rel\", \"bonnier\");\n";
		my $insert = "insert into zeeq values (\"$artist\", \"$titel\", \"$katnr\", \"$ean\", \"$pk\", \"$format\", \"$rel\", \"bonnier\");";
		my $sth = $dbh->prepare($insert);
		$sth->execute();
	}
#------------------------------------------------------------------------
my $ss = new Spreadsheet::BasicRead($xlsFileName) ||
	die "Could not open '$xlsFileName': $!";
	while (my $data = $ss->getNextRow())
	{
		no warnings qw(uninitialized);
    	($rel, $artitle, $format, $kamp, $selskab, $katnr, $ean, $pk, $comment) = (split(/\t/, join("\t", @$data)));
		$artitle =~ s#7"#7 inch#;
		($artist, $titel) = split(/ - /, $artitle);
	my $insert = "insert into zeeq values (\"$artist\", \"$titel\", \"$katnr\", \"$ean\", \"$pk\", \"$format\", \"$rel\", \"target\");";
		my $sth = $dbh->prepare($insert);
		$sth->execute();
	}