.pm file

[tovenkatesh82]

can somebody tell me in which folder do we save .pm files.......can we save the .pm files in the same folder where we save .pl files?

[rahatekarabhijeet]

For Same Directory:
we can keep .pm and .pl file in same directory
e.g;
Example.pm
Test_Example.pl
these are our .pm and .pl file

we just need to mention following thing in Test_Example.pl file,
use Example;

For Different Directory:
if we want to keep .pl and .pm in different directories,
then if you create Module directory inside your present directory to keep
your .pm files separate,

then you just need to provide the path for Example.pm file in Test_Example.pl by,
use Module::Example

here Module is directory which contains Example.pm module

[tovenkatesh82]

i was asking about the second option, do we need to save the .pm files inside the bin folder??
thanks for the reply.

For Same Directory:
we can keep .pm and .pl file in same directory
e.g;
Example.pm
Test_Example.pl
these are our .pm and .pl file

we just need to mention following thing in Test_Example.pl file,
use Example;

For Different Directory:
if we want to keep .pl and .pm in different directories,
then if you create Module directory inside your present directory to keep
your .pm files separate,

then you just need to provide the path for Example.pm file in Test_Example.pl by,
use Module::Example

here Module is directory which contains Example.pm module

[KevinADC]

You can save them almost anywhere you want. It's not necessary to save them in the cgi-bin folder. But you can if you want to.

[docsnyder]

can somebody tell me in which folder do we save .pm files.......can we save the .pm files in the same folder where we save .pl files?

If the pm file does not reside within the same folder as your script, ensure that the path is contained in @INC.

Greetz, Doc

[tovenkatesh82]

hi, i created the .pm an .pl in same folder but the program shows some compilation error......

followin is the .pm file
#!/usr/bin/perl;
package calc;
use strict;

sub math{
my $value=0;
$value=$_++;
return $value;
}
1;

following is the .pl file
#!/usr/bin/perl;
use strict;
use calc qw(math);
math(5);
print $value

following error i get
global symbol $value requires package name at value.pl at line 5.

For Same Directory:
we can keep .pm and .pl file in same directory
e.g;
Example.pm
Test_Example.pl
these are our .pm and .pl file

we just need to mention following thing in Test_Example.pl file,
use Example;

For Different Directory:
if we want to keep .pl and .pm in different directories,
then if you create Module directory inside your present directory to keep
your .pm files separate,

then you just need to provide the path for Example.pm file in Test_Example.pl by,
use Module::Example

here Module is directory which contains Example.pm module

[tovenkatesh82]

hi, i created the .pm an .pl in same folder but the program shows some compilation error......

followin is the .pm file
#!/usr/bin/perl;
package calc;
use strict;

sub math{
my $value=0;
$value=$_++;
return $value;
}
1;

following is the .pl file
#!/usr/bin/perl;
use strict;
use calc qw(math);
math(5);
print $value

following error i get
global symbol $value requires package name at value.pl at line 5.

[KevinADC]

You didn't need to repost this same question. The reason the code fails is because it is incomplete. There are a few ways to get it to work. Here is one way:

main script:

#!perl;
 
use strict;
use Calc;
my $value = math(5);
print $value;

Calc.pm:

package Calc;
use strict;
require Exporter;
 
our @ISA    = qw(Exporter);
our @EXPORT = qw(math);
 
sub math {
   my $value = shift;
   $value++;
   return $value;
}
1;

[tovenkatesh82]

it does not works it gives an error saying"undefined subroutine &main::math called at value.pl line 5.

You didn't need to repost this same question. The reason the code fails is because it is incomplete. There are a few ways to get it to work. Here is one way:

main script:

#!perl;
 
use strict;
use Calc;
my $value = math(5);
print $value;

Calc.pm:

package Calc;
use strict;
require Exporter;
 
our @ISA    = qw(Exporter);
our @EXPORT = qw(math);
 
sub math {
   my $value = shift;
   $value++;
   return $value;
}
1;

[KevinADC]

Works OK for me.

[tovenkatesh82]

thanks very much,program works fine.

Works OK for me.