sub URLEncode {
    my $theURL = $_[0];
    my $MetaChars = quotemeta( ';,/?\|=+)(*&^%$#@!~`:');
    $theURL =~ s/([$MetaChars\"\'\x80-\xFF])/"%" . uc(sprintf("%2.2x",         ord($1)))/eg;
    $theURL =~ s/ /\+/g;
    return $theURL;
  }
  my $start = '北京';
  my $dest = '莱阳';
  my $date = '2009-1-18';
  my $url = 'http://www.huochepiao.com/City/Search.asp?leixing=' .
              URLEncode('转让'). '&chufa=' . URLEncode($start) . '&daoda=' . URLEncode($dest);
  #print $url;

  my %result=();

  #print $content;
while(1)
{
  my $content = get $url;
  die "Couldn't get $url" unless defined $content;
  while($content =~ /href=([^ ]*htm)\s*target=_blank>[^<]*$start-$dest[^<]*$date<\/a>/g )
  {
     my $info="";
     my $inurl = $1;
     if(!defined($result{$1})) {
       print $1 . "\n";
       my $content2 = get $1;
       #print $content2;
       $content2 =~ /车 次：\s*<a href=[^>]*><b>([^><]*)/;
       $info .= "车次: $1\n";
       $content2 =~ /席 别：\s*([^<]*)<br>/;
       $info .= "席 别：$1\n";
       $content2 =~ /始发站：\s*([^<]*)<br>/;
       $info .= "始发站：$1\n";
       $content2 =~ /到达站：\s*([^<]*)<br>/;
       $info .= "到达站：$1\n";
       $content2 =~ /发布时间：\s*([^<]*)<\/TD>/;
       $info .= "发布时间：$1\n";
       $content2 =~ /发布人：\s*([^<]*)<a href="[^<>]*">/;
       $info .= "发布人：$1\n";
       $content2 =~ /电 话：\s*<a href="[^<>]*">([^<]*)<\/a>/;
       $info .= "电话：$1 \n";
       print $info;
       print "-------------------\n";
       $result{$inurl} = $info;
     }
  }
  print "\n";
 }

sub check($)
{
  $s = shift;
  $s = encode('gbk',$s); ####将从输入窗口获取的字串，编码为gbk，否则后续 -e判断失效
  if(-e $s)
  {
     print "exist\n";
     open FILE, "$s" or die "can not open\n";
     my $line;
     while($line=<FILE>)
     {
        print decode('gbk',$line); #####将从文件读取的文本，用gbk解码
     }
     close FILE;
  }
  else
  {
     print "no exist\n";
  }
}
MainLoop;

出现过Wide character in print at 2.pl line 19

utf8编码字串 --(作为字节流)--> perl不知道它是什么编码 ---> decode ('utf8',$s) ---> perl知道他是utf8编码了,并将其转换为对应的unicode(两个字节)来操作(但实际存储的时候仍是utf8编码)

之所以会出现 Wide character in print at 2.pl line 19. 这样的结果,是因为perl知道你输出的变量字符串是utf8编码的多字节字符,你应该通过encode函数将该变量转换成字节流encode('gbk',$s); ,这样perl就不会出现这个警告

综上,可以知道,perl对待外来的数据一律当作字节流处理,通过 decode 函数可以告诉 perl 当前字节流是什么编码,这时 perl 就会把他按照原来对应的编码方式内部解码为 unicode 来操作(此时这串字节流已经被perl当作是有一定意义的unicode字符串来理解了),当你要将操作完的字符串输出的时候,应该将其用encode函数按照相应的编码方式打包成字节流再输出.

2、创建一个新进程：
use Win32::Process;
use Win32;

my $isAgent = $ARGV[0];
print $isAgent;
sub ErrorReport{
  print Win32::FormatMessage( Win32::GetLastError() );
}

if(defined($isAgent))
{
  print "i am agent \n";
  exit(0);
}
else
{
  #Win32::Process::Create($ProcessObj,"notepad.exe", "notepad", 0,DETACHED_PROCESS, ".")
  Win32::Process::Create($ProcessObj,"C:\\Perl\\bin\\perl.exe", "perl process.pl yu", 0,DETACHED_PROCESS, ".")
    || die ErrorReport();
  print "perl process has started\n";
  print "The exit code is:",$ProcessObj->GetExitCode($ExitCode),"\n";
}

　　坚强的人只能救赎自己，伟大的人才能拯救他人

　　Get busy living, Or get busy dying.

　　忙活，或者等死。（汲汲于生，或汲汲于死 ）

　　Hope is a good thing, maybe the best of things, and no good thing ever dies.

　　希望是美好的，也许是人间至善，而美好的事物永不消逝.

　　“some birds aren't meant to be caged, that's all. Their feathers are just too bright...”

　　有的鸟是不会被关住的，因为它们的羽毛太美丽了！
        “刚入狱的时候，你痛恨周围的高墙；慢慢的，你习惯生活在其中；最终你会发现自己不得不依靠它而生存。”
这是 Red 在出监狱之后按照 Andy 在监狱中跟他约定的承诺在乡下的乱石堆里找到的 Andy 写给 Red 的一封信。你看见了吗？那字里行间渗透的对希望的执著追求以及因此带给我们的深深的思考！

Dear Red:

If you’re reading this, you’ve gotten out and if you’ve come this far, maybe you’d come a bit further. You remember the name of the town, don’t you? Zihuatanjo. I could use a good man to help me get my project on wheels. I’ll keep an eye out for you, and the chessborad ready.

Remember, Red, hope is a good thing, maybe the best of things.And no good thing ever dies. I will be hoping that this letter finds you and finds you well.

Your friend
Andy

这段话的背景是Red前两次被审查是否能获得 approved 从而走出监狱时虽然他都表示自己已经成为对社会无危害的人了，但都莫名奇妙的　rejected． 这是影片中第三次监狱的officer和Red的对话．

 

-Please sit down.
Ellis Boyd Redding,your files say　

you've served 40 years of a life sentence.
You feel you've been rehabilitated?


-Rehabilitated?　
Well, now, let me see.
I don't have any idea what that means.

-It means you're ready to rejoin society...

-I know what you think it means, sonny.
To me it's just a made-up word.　A politician's word so that...young fellas like yourself can wear a suit and a tie...and have a job.　What do you really want to know? Am I sorry for what I did?

-Well, are you?

-There's not a day goes by I don't feel regret.
Not because I'm in here or because you think I should.　
I look back on the way I was then...a young...stupid kid who committed that terrible crime.
I want to talk to him...
I want to try and talk some sense to him.
Tell him the way things are...But I can't...
That kid's long gone.．．and this old man is all that's left.
I got to live with that.
Rehabilitated? It's just a bullshit word.So you go on and stamp your forms,sonny, and stop wasting my time.Because to tell you the truth...I don't give a shit.