语法:perl语法速查

差别

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

到此差别页面的链接

--- 语法:perl语法速查 [2025/01/17 11:07] – [1.8 字符串操作] user01
+++ 语法:perl语法速查 [2026/07/14 09:33] (当前版本) – [2.1 删除当前目录下除pdf之外的其它普通文件] user01
@@ 行 1: / 行 1: @@
 ====== - perl语法速查 ======
@@ 行 569: / 行 568: @@
 </code>
+====== - 常用脚本 ======
+===== - 删除当前目录下除pdf之外的其它普通文件 =====
+<code perl>
+#!/usr/bin/perl
+use strict;
+use warnings;
+use File::Find;
+my $target_dir = './';
+my $name;
+#用于删除除pdf之外的其它文件
+my $scr_name = $0;
+print "current scr name: $scr_name\n";
+find(
+    {
+        wanted => sub {
+            return unless -f $_;          # 只处理文件
+            $name = $File::Find::name;
+            if ($name =~ /\.pdf$/i) {
+                # print "$name, is pdf\n";
+            } elsif ($name =~ /$scr_name/) {
+                # 不删除自己
+            } else {
+                print "$name, is not pdf\n";
+                unlink $name;
+            }
+        },
+        no_chdir => 1,
+    },
+    $target_dir
+);
+</code>

语法/perl语法速查.1737083254.txt.gz · 最后更改: 2025/01/17 11:07 由 user01