perl insert to database

I have two set of values
 ABCD|CDE|EDFF

1234|321|234|

I want to insert these values using Perl script to a table in Sybase something like this:

Name      Value
ABCD      1234
CDE      1234
EDFF      1234
CDE      321
CDE      321
CDE      321
EDFF      234
EDFF      234
EDFF      234

Please advise
saibskAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Adam314Connect With a Mentor Commented:
$sth->execute($v1, $v2 or undef) or die "Could not execute: $DBI::errstr\n";
0
 
Adam314Commented:

#if $dbh is your database handle:
my $sth = $dbh->prepare('INSERT INTO table (Name, Value) VALUES (?, ?)')
  or die "Could not prepare: $DBI::errstr\n";
my $value1='ABCD|CDE|EDFF';
my $value2='1234|321|234';
 
for my $v2 (split/\|/, $value2) {
	for my $v1 (split/\|/, $value1) {
		$sth->execute($v1, $v2) or die "Could not execute: $DBI::errstr\n";
	}
}

Open in new window

0
 
saibskAuthor Commented:
But I want o have a check on the value2 such that there whenever it is empyt i need to insert Null.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.