#!/usr/bin/perl
use 5.010;
#词法与动态作用域
$a = 20; #全局变量
{
local ($a); #临时变量,保存全局变量,新值为undef
$a = 10;
#say $a;
}
#say $a;
#Typeglob创建标识符别名
#local临时别名
$b = 30;
{
#local (*b);
local *b; #创建临时别名(保存全局*b的值,然后将新值赋为undef)
*b = *c; #创建变量c的别名b
$b += 10;
}
say $c;
say $b;
say "----------------------";
@array = (10,20);
&define_function(*array);
*fun = *define_function;#给函数定义别名
&fun(*array);#给函数定义别名
#my @array = (10,20);
#&fun(*array);
say "@array";
sub define_function{
local *copy = shift;
foreach (@copy) {
$_ *=2;
}
}
say "----------------------";
$x = 10;
&foo(*x);
sub foo{
local (*y) = @_;
say "before....$y";
local ($x) = 100;
say "aftet....$y";
}
say $x;
#创建只读变量
*num = \10.11;
say $num;
#$num =10;#修改将会报错
#为匿名子例程定义别名
sub operate{
my($greting) = @_;
sub{say "$greting world";}
}
$rs = operate("hello");
#&$rs();
*greting = $rs;#定义别名
greting();#等价于 &$rs
#I/O重定向
#open(F,'>>io.txt')|| die 'cannot io opera';
#*STDOUT = *F;#别名
#say 'Hello World.';
#把文件句柄传递给子例程
open(F,'>io.txt') || die 'cannot sent.$!';
sub read_and_print{
local (*G) = @_; #文件句柄G与文件句柄F相同
while(<G>){
say 'cannot send..';
}
say 'cannot send..';
}
&read_and_print(*F);
#close(F);
#子例程引用
sub greet{
say "hello";
}
$rs = \&greet;#对有名子例程的引用;
#$rs = \&greet();#错误
#对匿名子例程的引用
$rs = sub{
say "hello";
};
#对子例程引用的间接访问(2种方式)
&$rs(10,20);
$rs->(10,30);
#如果中间的调用同样返回对子例程的引用的话,子例程调用可以连接起来
sub test1{
my $args = shift;
say "$args";
return \&test2;
}
sub test2{
my $args = shift;
say " and $args";
}
$rs = \&test1;
$rs->("hellos")->("worlds");
#符号引用(引用的只是字符串而不是真正的引用)
sub foo{
say "foo called!";
}
$rs = "foo";
&$rs();
say '----------调度表demo-------------';
#使用子例程引用(回调函数)
#调度表(#rl为数组引用,rh为散列表引用)
@ARGV = ("-f","-r",'aa','-h');
%options = (
"-h" => \&help,
"-f" => sub{$askNoQuestions = 1;say '-f...called'},
"-r" => sub{$recursive = 1;say '-r...called'},
"-default" => \&default,
);
&processArgs(\@ARGV,\%options);
sub default{
say "sub default called!";
}
sub processArgs{
my($rlArgs,$rhOptions) = @_;
foreach $arg(@$rlArgs){
if(exists $rhOptions->{$arg}){
#$rsub = $rhOptions{$arg};
#&$rsub();
&{$rhOptions->{$arg}}();
}else{
if (exists $rhOptions->{"-default"}) {
&{$rhOptions->{"-default"}}();
}
}
}
}
sub help{
say 'help..called';
}
say "----------------eval-------------------------------------";
$str = '$a=10;$b=20;$a+$b';
$re = eval $str;
say $re;
eval{
$a = 10;
$b = 0;
$c = $a / $b;
};
say $@;#异常信息保存在$@
say "----------------eval表达式计算--------p112-----------------------------";
#$str = 2 * log(10);
$str = 10+10;
$str = 'aaa"saas"';
$str = 'for(1..10){say $_,"->"}';
while(defined($str)){
$result = eval $str;
if($@){
say "Invalid string:$str";
}else{
say "$result";
}
last;
}
say "----------------超时中使用eval-----------------------------";
sub time_out{
die "GOT TIRED OF WAITING";
}
$SIG = \&time_out;
eval{
alarm(10);#10秒后终止
$bug = <>;
alarm(0);
};
if($@ =~ /GOT TIRED OF WAITING/){
print "Timed out.Processing with default.";
}
分享到:
相关推荐
个人的perl学习笔记,供大家分享,看看吧,正在学习当中目前
perl学习笔记,介绍perl的常用语法及例子
perl 学习笔记 :perl入门知识点提炼,练习习题及答案。
Perl学习笔记
perl学习笔记,可对perl学习深入提供参考。 希望有所帮助。
perl学习笔记 介绍了perl学习的基础笔记,入门学习
Perl学习笔记中的所有脚本文件,https://blog.csdn.net/zgezi/category_10259467.html
Perl学习笔记,学习perl语言的好书
本书是perl的经典入门书籍,介绍了perl中最基本的概念和语法,是perl入门的好书,我向所有想了解或学习perl语言的朋友推荐本书。书中穿插有perl语法形成的历史和原因,使你能充分感受到perl语言的文化,这也是perl...
perl学习笔记,让你快速掌握perl的基本概念 写一个完整的perl包,perl类和perlperl构造函数、析构函数
Perl确实是一种非常吸引人的程序语言,而之所以这么引人入胜的原因不单单在于他的功能,也在于他写作的方式,或说成为一种程序写作的艺术。即使你只是每天埋首于程序写作的程序设计师,也不再让生活过份单调,至少你...
这是个人学习perl的笔记,非常的适合刚接触perl的人士!非常基础的知识!但愿能为您学习perl提供帮助!谢谢
perl学习笔记,简练易懂,是入门级的极佳教程,也可以当手册用。
《Perl 语言入门》学习笔记
这个文档中记录和总结了我学习perl脚本语言的一些经验和初学者需要注意的事情
perl 学习笔记,希望能对大家有帮助 perl 文档 速查手册
有一些我自己做的perl小程序,及自己的笔记