I think you're overestimating the effort required to make a module.  Take
this sample module for instance:

##############

package Tim::UC;

#Usage: Tim::UC::UCArray(\@array);
#Desc:  Takes an array ref as an argument and
#       converts the entire array to uppercase.

sub UCArray{
  my $ref = $_[0];
  foreach my $element(@{$ref}){
    $element = uc($element);
  }
}

1

##############

If you put the module above in a file called UC.pm in the site/lib/Tim
folder, you will have a module with your reusable subroutine.  The only
weird part: Don't forget that the last line should be just a '1'.  Just put
a use Tim::UC; at the top of your script and you're set.  I keep mine in the
Tim tree so I won't bump into any future CPAN modules, but you can easily
see how to use this for your particular situation.


-----Original Message-----
From: Hytham Shehab
To: perl
Sent: 6/23/02 3:47 PM
Subject: Re: how to include a subroutine from external file?

i think that writing a module is not my answere, i think it is a huge
complicated answere for a simple question.
all what i want is simply put all my used subroutines in a seperate
files,
then call the subroutine from that file whenever i want to use the
subroutine, am i clear now?
no redundency is my only target, thats it...

thx v. much,  specially Lundeen and drieux

--
Hytham Shehab


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to