PERL Question -- i need a command line with logic.

for those not familiar with securities indetifiers a sedol is 7 characters in lenght and a cusip is 9.

i have a perl script that inputs data into a sql table. that logic that i need is like so:

sql_sec_table = if the secuirty type starts with 'fs' and the lenght of the cusip is lessthan 9 then put this value both into the sedol and cusip fields else just cusip.

maybe for securities that start with 'fs' we can copy the value over. i don't know if perl has a copy command.
tomasdlvAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

 
Adam314Commented:
I'm not clear on what you need.  Is this what you need?
my $security_type = 'fsstuff';
my $cusip = 'abcdefghi';
 
if( ($security_type =~ /^fs/) and (length($cusip) < 9) ) {
    $sql = "INSERT INTO table (sedol, cusip) VALUES (?, ?)";
    $dbh->do($sql, $cusip, $cusip);
}
else {
    $sql = "INSERT INTO table (cusip) VALUES (?)";
    $dbh->do($sql, $cusip);
}

Open in new window

0

Experts Exchange Solution brought to you by ConnectWise

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
 
tomasdlvAuthor Commented:
currently i have something like this:

CS_IMP_SECURITY.CUSIP.value = ( security.type =~ /^fs/ && length( security.cusip ) < 9 ) ? security.cusip : ( length( security.cusip ) <= 9 ) ? security.cusip : ''

but this does not seems to be putting the value both into the cusip and sedol field in my sql table.
0
 
Adam314Commented:
Is that a line from a perl program?  It doesn't look like it..  Can you post more of your perl program?
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.