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.
|
|---|