摘要：#!/usr/bin/perl ## 用grep map 获取两个列表的交集并集、补集#use strict;my @a=("a","b","c","d","e");my @b=("b","g","f","e");print "列表a数据： @a \n";print "列表b数据: @b \n";my %a = map{$_ => 1} @a;my %b = map{$_ 阅读全文

摘要：在POSIX shell中，命令的结果可以通过%>的形式来定义（其中%表示文件描述符：1为标准输出stdout、2为标准错误stderr）！系统默认% 值是1，也就是1>，而1>可以简写为>，也就是默认为>。而stdout的默认目标是终端（这点不用验证吧）。另外， stderr的默认目标我个人认为也是终端，比如：#abcddcbash: abcddcba: not found.错误信息显示在终端上（对于telnet、dtterm等，那就说虚拟终端了）。==============实验环境==============#mkdir redtest#cd redtest 阅读全文

摘要：bless用法详细简单的讲：bless有两个参数：对象的引用、类的名称。类的名称是一个字符串，代表了类的类型信息，这是理解bless的关键。所谓bless就是把 类型信息 赋予 实例变量。程序包括5个文件：person.pm ：实现了person类 dog.pm ：实现了dog类 bless.pl ： 正确的使用blessbless.wrong.pl ： 错误的使用blessbless.cc ： 使用C++语言实现了与bless.pl相同功能的代码person.pm#!/usr/bin/perl -wpackage person;use strict;sub sleep() { my ($se 阅读全文

摘要：perl & LWP学习笔记use LWP::UserAgent; 通过浏览器对象发出GET, HEAD, 和 POST请求use HTTP::Response; 返回应答结果这两个语句可以简单的用use LWP;代替。首先通过类，创建一个浏览器对象，该对象在整个程序中都可使用，因此只需定义一次，用该对象发出HTTP请求。浏览器对象可以使用网络代理use LWP::UserAgent;my $browser = LWP::UserAgent->new( );$browser->env_proxy( ); #proxy (a server that fetches web p 阅读全文