Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

How can I define the subroutine to get the result of the appended string i.e. ATGCTTTT?

by supriyoch_2008 (Monk)
on Sep 25, 2012 at 16:17 UTC ( #995585=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    use strict;
    ...
      print DNAappend($a,$b);
    print"\n\n"; 
    exit;
    
  2. or download this
    package DNAappend;
    use strict;
    use warnings;
    ...
      return ($head.$tail)
      }
    1;
    
  3. or download this
     C:\Users\x\Desktop>joindna.pl
    
    Undefined subroutine &main::Dnaappend called at C:\Users\x\Desktop\joi
    +ndna.pl line 8.
    
    C:\Users\x\Desktop> 
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://995585]
Approved by toolic
help
Chatterbox?
[Lotus1]: belg4mit are you on a Linix server?
[belg4mit]: yes. the regular expression is generated in code from a text file. that s the regular expression that Perl blows up when it reaches it, but if I use it from the comman line it's fine
[belg4mit]: oh, wait, damn, different lne number
[choroba]: same Perl version?
[choroba]: oh, ok
[belg4mit]: I had \Q'd in one RE but not a subsequent one, doh
[talexb]: Programs writing programs. Neat stuff.

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (13)
As of 2017-04-25 16:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (460 votes). Check out past polls.