不以己悲的博客

#! /usr/bin/perl open(F, " ls |") or die; # Open a pipe to read from while(){ 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....