语法:perl语法速查

差别

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

到此差别页面的链接

--- 语法:perl语法速查 [2024/12/31 13:43] – [1.10.1 读excel] user01
+++ 语法:perl语法速查 [2026/07/14 09:33] (当前版本) – [2.1 删除当前目录下除pdf之外的其它普通文件] user01
@@ 行 1: / 行 1: @@
 ====== - perl语法速查 ======
@@ 行 76: / 行 75: @@
 $aa = shift @ar; # 取出数组第一个元素给变量，数组长度减1
 $bb = pop $ar;   # 取出数组最后一个元素给变量，数组长度减1
+unshift @ar, @add; #将add数据里面的数据移入ar前面
 </code>
@@ 行 319: / 行 319: @@
 value_2
 </code>
+===== - 循环 =====
+==== - for ====
+<code perl>
+@ar = (1, 2);
+for ($i=0; $i<2; $i++) {
+    print "$ar[$i]\n";
+}
+foreach $i (@ar) {
+    print "$i\n";
+}
+for $i (@ar) {
+    print "$i\n";
+}
+#输出
+PS D:\> perl t.pl
+</code>
 ===== - 字符串操作 =====
@@ 行 540: / 行 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语法速查.1735623800.txt.gz · 最后更改: 2024/12/31 13:43 由 user01