Re^2: How to call counter.pl script from another script

I'will follow your advice and try to use my first perl module then!

I understand for the link you gave that in order to use this 'counter.pm' module within my index.pl file i have to use 'use counter.pm' right?

Here is the code i written inside counter.pm

package counter;

use strict;


my ($db, $pagename, $host) = @_;

#======== Insert or Update pagecounter appropriately, then display it 
+==========
eval { # Just ignore errors if the record already exists
   $db->do('INSERT INTO counters (pagename, pagecounter) VALUES (?, 0)
+',
   undef, $pagename);
};

$db->do('UPDATE counters SET pagecounter = pagecounter + 1 WHERE pagen
+ame = ?',
undef, $pagename) unless( $host eq 'Admin' );

my ($counter) = $db->selectrow_array('SELECT pagecounter FROM counters
+ WHERE pagename = ?',
undef, $pagename);
[download]

What i dont know is how to pass the variables $db, $pagename, $host inside the counter.pm module because those 3 variables are a prerequisite for the module to perform its task.

Also the counter.pm module will have to return the variables $counter back to index.pl script so i can print it in the following line of index.pl

Please excuse me as this is the first time im trying to use modules.

ps. Do i need to put the above code in a sub inside counter.pm or creating a sub inside counter.pm isnr neccesary?

Comment on Re^2: How to call counter.pl script from another script Download Code

Replies are listed 'Best First'.
Re^3: How to call counter.pl script from another script by marto (Cardinal) on Feb 22, 2008 at 16:43 UTC
Perhaps you should take a look at Simple Module Tutorial regards creating a module, and calling its functions. Martin	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.


XP is just a number
	PerlMonks