Problem:
I have a field $cusip that has to change from ABC123-XX-7 (9 characters with '-') to 
ABC123XX (first 8 characters only without '-')

I have following lines of code:
:
:
$cusip =~ s/\-//g;
$cusip =~/.${8}$/$1/g;
:
:

Is there a shorter way to transform this.
- Amit

==============================================================================

If you are not an intended recipient of this e-mail, please notify
the sender, delete it and do not read, act upon, print, disclose,
copy, retain or redistribute it.

Click here for important additional terms relating to this e-mail.
     <http://www.ml.com/email_terms/>

==============================================================================


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to