当前位置：首页 → 问答吧 → Perl 两个文件调用的问题？？？？

Perl 两个文件调用的问题？？？？

时间：2011-08-01

来源：互联网

文件1
#! usr/bin/perl
use strict;
sub myfun{
my $i=2*$_;
$i;
}

文件2
#! usr/bin/perl
use strict;
require ("t1.pl");
my $f=&myfun(2);
printf $f;

文件2调用文件1的函数但是文件2不能输出希望的结果4 提示说文件1没有返回一个有效的值

希望提供perl项目的一些资料比如多个文件的调用这样的

perl项目是不是也写一个类似头文件的东西呢谢谢

作者: shuzhan87 发布时间: 2011-08-01

Ding

作者: shuzhan87 发布时间: 2011-08-02

Perl code

# 第1个文件要做下修改
#! usr/bin/perl
use strict;
sub myfun{
  my $i=2*$_[0]; # 使用参数有问题，函数传参在@_中，第一个元素即$_[0]
  return $i;
}

return 1; # 函数调用，需要返回值

作者: will2ni 发布时间: 2011-08-02

在t1.pl的sub声明之后一行加一句 1; 就可以消除这个warning
调用模块可以用use 或者 require，两者的区别和用法你Google一下就有很多

作者: andygordo 发布时间: 2011-08-02

Perl 两个文件调用的问题？？？？

热门阅读

热门下载