Solved

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

Posted on 2007-11-20
3
352 Views
Last Modified: 2008-02-01
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.
0
Comment
Question by:tomasdlv
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 39

Accepted Solution

by:
Adam314 earned 500 total points
ID: 20320647
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
 

Author Comment

by:tomasdlv
ID: 20320713
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
 
LVL 39

Expert Comment

by:Adam314
ID: 20320806
Is that a line from a perl program?  It doesn't look like it..  Can you post more of your perl program?
0

Featured Post

Enroll in June's Course of the Month

June’s Course of the Month is now available! Experts Exchange’s Premium Members, Team Accounts, and Qualified Experts have access to a complimentary course each month as part of their membership—an extra way to sharpen your skills and increase training.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Six Sigma Control Plans

696 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question