在perl中,定义一个函数的时候,不需要在圆括号内指定具体的参数,所有的参数都从@_ 这个列表中得到 代码示例: sub test { my ($a, $b) = @_; print qq{$a\t$b\n}; } sub test { my $a = shift; my $b = shift; print qq{$a\t$b\n}; } 这样写当然没有问题,但是有一点不足之处在于,缺少了圆括号内的形参列表,没法直观的一眼看出这个函数需要几个参数 所以perl 中函数定义的时候支持下面这种写法
perl 返回文件句柄的2种方式 1.使用 \* #!/usr/bin/perl use strict; sub openfile() { my $path=shift; open(FILE,"$path") or die "Can't open $path $!\n "; return \*FILE; } my $temp=&openfile("config"); my @file=<$temp>; print @file;
获取主机名.用户.组.网络信息相关函数 首先是获取主机名的方式,Perl提供了Sys::Hostname模块,可以查询当前的主机名: use Sys::Hostname; print hostname, "\n"; Perl中提供了下面一大堆的内置函数用来获取用户.组.网络相关的信息.这些perl函数在C中也都有对应的函数. # 获取和设置用户和组 endgrent - be done using group file endpwent - be done using passwd f
Chapter 1. Hello, Perl/Tk 内容: Perl/Tk Concepts Some Perl/Tk History Getting Started with Perl/Tk Hello World Example Unsolicited Advice Debugging and PrototypingPerl/Tk Programs TK 是一个模块让你可以用Perl创建图形接口, 很多Per程序是用命令行写的, 可能使麻烦的和恐吓的 对于终端用户. Perl/TK 让你和按