不以己悲的博客

#! /usr/bin/perlopen(F, " ls |") or die;# Open a pipe to read fromwhile(){ print $_; }# Prints list of UNIX files#

#! /usr/bin/perl$_ = "yabba dabba doo";if (/abba\ / ) { print "It matched $_!\n";}

表 A-2 文件句柄$% 当前选中文件句柄的当前页码$= 当前选中文件句柄的当前页面长度$- 当前选中文件句柄的页面剩余长度$~ 当前选中文件句柄的报表格式名称$^ 当前选中文件句柄的当前页眉格式名称表 A-3 块内局部变量$1..$9 含有与应用对应的一组括号的子记忆模式 。( 等效于 \1..\9 )$& 上一次与模式相匹配的字符串 ( 等效于 sed 编辑

$ cpancpan > install YAML.pmcpan > install Tee.pmcpan > install IO/Tee.pmDefault installed directory:~/perl5/lib/perl5Will update $PERL5LIB in .bashrc本地安装：download *.pm in http://search.cpan....