Vine’sPerl

Simplestatement+

Vine’sPerlPerl入門和提 Lesson

Simple_statmodifier!!AlwaysevaluatesConditionbeforeexecutedoBLOCKwhilecond;runBLOCKoncebeforeevaluateprint"\$Aisnegitive!"if$A<0;die"SOS!"if($fail);$B=1/$Aunless$A==($sum,$j)=(0,1);do{$sum+=$j}while++$j<=$sum=0;$sum+=$_foreach(1..100);#loopson$hash{$key}=$vunlessdefned($hash{$key});#avoidover-$I=1;$J=0;$J+=$I++until($I>10);print$J;#==>55perl-e"printwhile<>;"<readme.txt1Vine’sPerlStatements-- Perl語法：查看perlsyn網Commentsin#Thisistheperlstyle/*Cstyle*/isnotforperl,nor//C++sytleCommentoutblockofif(0)……somevalidperl}PoC(Plainold

ControlFlow#Multi-choice:##Multi-choice:#not"elseif"#not"elseif"#but"elsif"if(…)…}elsif(…)…}elsif(…)…}elsif(…)…}else…}0.000,0,undef,"0",(but"0.0""00"isif(…)if(…)…}else…}if(if(…)…}

Vine’sPerl##line200#theprevious'#'mustonthefirstdie'foo';#格式是頂格的'#'可選的空格行號"文件名 #comparemodifiedexpressionif#comparemodifiedexpressionif…;expressionunless…; ControlFlow

Vine’sPerl

ControlFlow

Vine’sPerlwhile until

my$var;

èjumptocontinueblockandcheckèjumptobeginningofloop,nocontinueblockorcond

foreach

foreach$var(@list) èexitloopimmedia##beforeloopwhile(##beforeloopwhile(…){… …redoifany;nextifany;lastifany;…

##beforeloopuntil(…){…

…don'tsplicethe@list#!Sideeffectofforeachforeach@array=(1..5,#!Sideeffectofforeachforeach@array=(1..5,foreach(@array) #Say'for(@L)…'isalso$_="Five"if($_==5);#defaultloopvaris}#foreachloopisfasterthanfor#1234556789#1234FiveFive6789#loopbefore#checkdo#loopbefore#checkdo…}until(…);#similartodo{}do…}while(…);#redo,next,lastnot

continue#run##…}

foreach$var(0..10){$var*=$var;}#non for(start_exp;for(start_exp;condition_exp;step_exp)…}

ControlFlow

Vine’sPerl

ControlFlow :last,next,redo,

Vine’sPerlAvoidgoto,alwayswritethe"goto-lessfor($n=1,$sum=0;$sum<=1000;$n++)$sum+=for($n=1,$sum=0;$sum<=1000;$n++)$sum+=}print"n=$n;$sum-=$n--print"n=$n;#n=46;#n=45;foreach$a(@list){INNERLOOP:while($b){nextINNERLOOPif(seeperlsynforSWITCH:

nextOUTERLOOPif}}if(/^abc/){$abc=1;lastSWITCH;}if(/^def/){$def=1;lastSWITCH;}if(/^xyz/){$xyz=1;lastSWITCH;}$nothing=} perlpod－Plain

Perl

Subroutine

Vine’sPerlMixedperlcodeand BeginwithLines'=pod_cmdEndwith'=cut'，i.e.returntoperlSomepodcommand=head1Yourheadline

參數在@_中，直接修改@_$_[i]Declarealllocalvariablesusingmy(…如果預先申明的函數,sub函數名Checkcontextwithwantarray()調用時,函數名可加前綴&(強烈不推薦),其中&foo相當=head2Yourheadlineover 項目列表開 項目列表結

sub$res=name($a,$b);@res=name$a,$b;subnamemy($arg1)=shift;my($arg2)=…

#pre 般沒有必要預先#但先作函數申明或定義,調用函數時就可以省略括號#call#alsocansay&name($a,#definesubroutine#copyargumentspod過濾命令：pod2text

my($result,@result);#declarelocal……wantarray()?@result:$result;#return}9Vine’sPerl作業:

Subroutine

Vine’sPerl時，退出。附件名學號-提示:看Win32::Clipboard幫助下面是某次運行過程顯示的結

Copyargumentsfrom@_(子程序 @_的內容subname #definemy$arg1=shiftmy$ary2=shift; #thesameasshift@_my($arg3,$arg4)=@_;#copyargumentsmy(@list)=@_; #orinthisformat…?Functionwithsideeffect,@_傳遞實際參數的別名subSide_effect$_[0]=$_[0]*ClipboardtextClipboardtext:"notethatyouClipboardtext:"#!/usr/bin/perl-wusestr"Clipboardnottext.Clipboardchangedtext:"Perl模塊功能的些例子調用模use生成個剪貼板對my$Clip監視剪貼板變$Clip-$Clip-獲得剪貼板的文本內$Clip-my$a=Side_effect($a);# es10Side_effect(5);#fatalrun-timeerror.5is"對@_作shift，不改變數組的元素，無副作" #!/usr/bin/perl-

Vine’sPerluseprint"10:\t",pi(10),print"100:\t",pi(100),print"1000:\t",pi(1000),print"10000:\t",pi(10000),

print"100000:\t",pi(100000),print :\t", ),subpimy($count)=$_[0];$inside+=sqr(rand1)+sqr(rand1)<1while$count-->0;4/$_[0]*}subsqrmy($n)=return$n*}Vine’sPerl算pi#!/usr/bin/perl-wusestrict;print"10:\t",pi(10),print"100:\t",pi(100),print"1000:\