Perl question.
I am trying to use the ftok() function to generate a key for IPC mesage queue access. My installation on Scientific Linux (RH9 clone) fails to find ftok() when used according to the sample code in the documentation.
A simple example:
perl -v says:
This is perl, v5.8.5 built for i386-linux-thread-multi
Code:
#! /bin/perl -w
use strict;
use IPC::SysV;
use IPC::Msg;
my $msgIdSeed = 0xf00d;
my $msgIdPath = "/home/bomr/";
foreach my $path ( @INC ){
print $path, "\n";
}
my $msgKey = ftok( $msgIdPath, $msgIdSeed );
print "Msg queue key: $msgKey\n";
Results in
[CODE]
/usr/lib/perl5/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/5.8.5
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5
/usr/lib/perl5/site_perl/5.8.4
/usr/lib/perl5/site_perl/5.8.3
/usr/lib/perl5/site_perl/5.8.2
/usr/lib/perl5/site_perl/5.8.1
/usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5
/usr/lib/perl5/vendor_perl/5.8.4
/usr/lib/perl5/vendor_perl/5.8.3
/usr/lib/perl5/vendor_perl/5.8.2
/usr/lib/perl5/vendor_perl/5.8.1
/usr/lib/perl5/vendor_perl/5.8.0
/usr/lib/perl5/vendor_perl
.
Undefined subroutine &main::ftok called at ./ipcmsg.pl line 15.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/CODE]
I clearly see the SysV.pm module in the first member directory in @INC, and see a reference to the ftok() function exported in SysV.pm
What do I have to do to make perl find the function?
Thanks in advance.
---- rod.
