in reply to Passing value to a Perl module

Hello Anonymous Monk,

See sample bellow:

#!/usr/bin/perl use strict; use warnings; use feature 'say'; =alternative BEGIN { push ( @INC,"/your/dir/path"); } =cut use lib qw(/your/dir/path); use Foo::Bar qw(hello echoTest); # update adding echoTest say hello(); say echoTest('Expecting Echo!'); # update adding echoTest subroutine __DATA__ $ perl test.pl Hello! Expecting Echo! # update adding echoTest stdout

Sample of the module, in my dir /my/dir/script I have my module Foo::Bar or Foo/Bar.pm.:

package Foo::Bar; use strict; use warnings; use Exporter qw(import); our @EXPORT_OK = qw(hello echoTest); # update adding echoTest sub hello { return 'Hello!'; } # update adding echoTest sub sub echoTest { return shift; } 1;

Update: I just noticed that you are wondering how you pass a value to the module. I have updated the code by adding a new subroutine that returns the input string. I hope this is what you are looking for. If not update your question so we can provide more information.

Hope this helps, BR.

Seeking for Perl wisdom...on the process of learning...not there...yet!