Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

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

by Marshall (Abbot)
on Sep 25, 2012 at 16:31 UTC ( #995589=note: print w/replies, xml ) Need Help??

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

You need to export the DNAappend symbol. I would use DNAlibrary or some such name, presuming that you will add other DNA routines to this thing.
#!/usr/bin/perl -w use strict; use DNAlibrary; my $a='ATGC'; my $b='TTTT'; print"\n\n"; print DNAappend($a,$b), "\n\n"; #ATGCTTTT
#!/usr/bin/perl -w use strict; package DNAlibrary; #FILE name should be use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION); use Exporter; our $VERSION=1.0; our @ISA = qw(Exporter); our @EXPORT = qw(DNAappend);#these are the default exports our @EXPORT_OK = qw(); #these are export on request sub DNAappend { my ($head,$tail)=@_; return ($head.$tail) } 1;
  • Comment on Re: How can I define the subroutine to get the result of the appended string i.e. ATGCTTTT?
  • Select or Download Code

Replies are listed 'Best First'.
Re^2: 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 18:27 UTC

    Hi Marshall,

    Thanks for your suggestions and prompt reply. I shall try both the scripts.


      I ran the code before posting - you should be fine. There is some more or less "standard boiler plate" for these things. You should read the tut's if you plan to make a lot of these things. This was just an example to get you started. You can go a long way with just a little hacking based upon this example, for first testing, you don't need to worry about ISA or Exporter actually means... just follow the example.

      There really isn't any such thing as a "private subroutine" in Perl - if you know the fully qualified name, you can call the function even if the sub's name is not exported. DNAlibrary::DNAappend(...); Exporting the symbol allows you to call it without having the package name prefix. If you use EXPORT_OK(...), then you need to specifiy the routines to import in the "use DNAlibrary" statement in the caller's program.

      There are various testing harnesses to do automated tests during installation, etc. Sometimes I don't fiddle with that and just put a sub called test() in the module which I don't export. Then I have a $DEBUG variable that I set to 1 when I am working the the .pm file => then some statement like: test() if $DEBUG; That way the .pm file will produce a result when you run it by itself. Sophistication varies, but you should have some sort of testing strategy so that you can validate the module's functions without some extra driver program. This will save a LOT of grief later on.

      You may not have seen an "our" variable before. A "my" variable does not go in the symbol table and is not eligible for export. An "our" variable does (it has "package scope", not "lexical scope". Since all of my modules have a $VERSION, exporting it makes no sense (name would conflict with other modules). But you can print it with print DNAlibrary::$VERSION; That wouldn't work if $VERSION was a "my" variable.

      Glad to help you get started. Let me know if there are troubles. For right now, put the .pm file in the same directory as the .pl file. After awhile, this will no longer be adequate but there are a number of ways to solve that problem - but that's a different subject!

      The goal here was go get you started and I think the Monks have done that. I would recommend buying the "Perl Cookbook" - it has lots of useful "recipes" for common problems. Of course there are lots and lots of details about this stuff.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://995589]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2018-05-24 20:44 GMT
Find Nodes?
    Voting Booth?