help me !

流氓我一生

pm文件中和普通pl文件中读写文件有什么区别吗?

流氓我一生

sub sendpackage
{
$name= "zdfaaa";
$password = "123";
$sts = rand();
$Time = pack ("a8",$sts);
$SCode = pack("x1",0);
$PType = pack("a1","R";
$PNum = pack("s",1);
$PSeq = pack("s",1);
$RCount = pack("s",0);
$CCount = pack("s",0);
$Reserved = pack("x8",0);                                                                                                              
$UserId = pack("a17","$name";
$Param = pack("a400","select * from UserInf where UserId='$name' and LoginMm='$password'";
$DataSet = pack("x3589",0);
open (FILE,">;/dev/ppc405_c_conf" or die "Open file for write error!\n";
{
   print FILE $Time;
   print FILE $SCode;
   print FILE $PType;
   print FILE $PNum;
   print FILE $PSeq;
   print FILE $RCount;
   print FILE $CCount;
   print FILE $Reserved;
   print FILE $UserId;
   print FILE $Param;
   print FILE $DataSet;
}
close FILE;
}

这是我的pm模块中的写文件部分. 这段代码不用pm,放在主程序里面一点问题没有,但是一放到pm文件中,就写不了文件,这是怎么回事呢?

nyfor

pm需要一个真返回值，一般在pm最后加一行：
1;

流氓我一生

我加了..但是还是不行,,打开文件都没问题,就是print 那里不知道怎么回事..艾.

tsingson

主要是 package 与 pl 文件有些不一样，一是 pm 文件会有 name space 名称空间，而 pl 只是简单的 include ，是在同一名称空间下的

tsingson

你的 PM 应该这样 ,与调用的脚本放在同一目录下
package yourpm;

sub sendpackage
{
.....

};

1;

使用应该这样

use yourpm;

&yourpm::sendpackage();

tsingson

对不起，上面的 包引用应该推荐使用 require , 并且文件名应该写为 yourpm.pl 这样的形式，不推荐使用 use 与 yourpm.pm 文件名。

因为，Perl 推荐使用 OO 编程的 perl package 模块使用 YourPm.pm 这样的文件形式，使用 use YourPm; 这样的调用格式.

而作为包，使用 require 旧格式以示区分。

tsingson

包的使用例子


package yourpm;
#文件名 yourpm.pl

sub yoursub { print "hello"; }

1;

调用  
#!/usr/bin/perl
#文件名 main.pl

require "yourpm.pl";

yourpm::yoursub();



模块的使用例子

package YourPm;
#文件名 YourPm.pm   注意大小写

BEGIN {
use Exporter();
@ISA = qw(Exporter);
@EXPORT = qw(&yoursub};
}

sub yoursub { print "hello";}

1;

调用
#!/usr/bin/perl
#文件名 main.pl

use YourPm;

yoursub();

流氓我一生

非常感谢..我没用require...明天上班我在去试试 在此感谢!~

laoxia

一万个感谢