Perl碎碎念

1. 如何去重

#!/usr/bin/perl
use strict;
my %hash;
while(<>){
   chomp;
   print "$_\n" unless exists $hash{$_};
   $hash{$_}+=1;

}

剛開始沒有$hash{$_}+=1這一行，結果發現不管怎麼執行，文本都是原樣輸出，不會去重。加上這一行後就沒有問題了，推測若是沒有對$hash{$_}進行操做的話，在判斷完它的鍵是否存在之後即會被丟棄掉，不會保存留待下一次判斷。

2. 如何輸出中文

binmode(STDOUT, ':encoding(gbk)');

3. 沒法啓動此程序，由於計算機中丟失perl514.dll。

Perl for windows的下載地址爲：https://www.perl.org/get.html#win32

在安裝DWIM Perl for Windows後，打開Padre，the perl IDE 報如下錯誤：

經過搜索，發現C:\Dwimperl\perl\bin下明明就有perl514.dll文件。

因而經過 開始->運行->輸入regsvr32 perl514.dll，提示如下錯誤：

懷疑是C:\Dwimperl\perl\bin不在環境變量PATH中，在cmd環境下輸入perl -v，提示「不是內部或外部命令」。

因而果斷重啓，打開Padre，the perl IDE，沒有報丟失perl514.dll錯誤。

4. 若是以value開頭而且以'或者中文）結尾，則刪除換行符

use strict;
open(in, "< 1.sql");
open(out, "> g.result.sql");
while(<in>){
if( /^values/ && /['|）]$/ ) {
    $_=~ s/\n//g;
    }
print out $_;
}
close in;
close out;