此鸟不鸣

目的：统计指定文件的行数。 [code="perl"] $filename = 'test.file'; $lines = 0; open(FILE, $filename) or die "Can't open `$filename': $!"; while (sysread FILE, $buffer, 4096) { $lines += ($buffer =~ tr/\n//)...

目的：复制文件。 [code="perl"] #!/usr/bin/perl use warnings; use File::Copy; $original = 'test.file'; $new_copy = 'test_copy.file'; # 注意，如果目标文件存在会直接覆盖。 copy($original, $new_copy) or die "Copy failed...

目的：遍历目录。 [code="perl"] #!/usr/bin/perl use warnings; use File::Find; @directories = (".", "path2traverse"); # 递归遍历指定目录（@directories），并在回调函数（wanted）中处理。 find(\&wanted, @directories); sub ...

目的： 捕获调用系统命令的输出并打印到控制台。 [code="perl"] #!/usr/bin/perl use warnings; # 捕获输出到列表。 my @outs = `tasklist`; # 输出列表行数。 print "out lines count is " . @outs . "\n"; #输出列表的每一行。 foreach $line(@ou...