语法:perl语法速查

差别

这里会显示出您选择的修订版和当前版本之间的差别。

到此差别页面的链接

--- 语法:perl语法速查 [2026/07/14 09:29] – [1.12 perl处理json] user01
+++ 语法:perl语法速查 [2026/07/14 09:33] (当前版本) – [2.1 删除当前目录下除pdf之外的其它普通文件] user01
@@ 行 1: / 行 1: @@
 ====== - perl语法速查 ======
@@ 行 554: / 行 553: @@
-===== - 常用脚本 =====
+==== UTF8与GBK的转换 ====
+<code perl>
+use Encode;
+gbk转uft-8：
+$line = encode("utf-8",decode("gbk",$line));
+或
+$line = encode_utf8(decode("gbk",$line));
+utf-8转gbk：
+$line = encode("gbk", decode("utf8", $line));
+uft-8转gb2312：
+$line = encode("gb2312", decode("utf8", $line));
+</code>
+====== - 常用脚本 ======
 ===== - 删除当前目录下除pdf之外的其它普通文件 =====
@@ 行 582: / 行 596: @@
                 # print "$name, is pdf\n";
             } elsif ($name =~ /$scr_name/) {
+                # 不删除自己
             } else {
                 print "$name, is not pdf\n";
+                unlink $name;
             }
         },
@@ 行 593: / 行 609: @@
 </code>
-==== UTF8与GBK的转换 ====
-<code perl>
-use Encode;
-gbk转uft-8：
-$line = encode("utf-8",decode("gbk",$line));
-或
-$line = encode_utf8(decode("gbk",$line));
-utf-8转gbk：
-$line = encode("gbk", decode("utf8", $line));
-uft-8转gb2312：
-$line = encode("gb2312", decode("utf8", $line));
-</code>

语法/perl语法速查.1783992586.txt.gz · 最后更改: 2026/07/14 09:29 由 user01