![](https://img-blog.csdnimg.cn/20201014180756913.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
编程笔记-perl
kyo20
这个作者很懒,什么都没留下…
展开
-
perl faq 学习之统计文件行数
目的:统计指定文件的行数。[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//)...2009-04-25 00:35:43 · 594 阅读 · 0 评论 -
perl faq 学习之复制文件
目的:复制文件。[code="perl"]#!/usr/bin/perluse warnings;use File::Copy;$original = 'test.file';$new_copy = 'test_copy.file';# 注意,如果目标文件存在会直接覆盖。copy($original, $new_copy) or die "Copy failed...2009-04-26 00:04:35 · 158 阅读 · 0 评论 -
perl faq 学习之递归遍历目录
目的:遍历目录。[code="perl"]#!/usr/bin/perluse warnings;use File::Find;@directories = (".", "path2traverse");# 递归遍历指定目录(@directories),并在回调函数(wanted)中处理。find(\&wanted, @directories);sub ...2009-05-05 00:16:09 · 111 阅读 · 0 评论 -
perl 学习之捕获系统输出
目的: 捕获调用系统命令的输出并打印到控制台。[code="perl"]#!/usr/bin/perluse warnings;# 捕获输出到列表。 my @outs = `tasklist`;# 输出列表行数。print "out lines count is " . @outs . "\n";#输出列表的每一行。foreach $line(@ou...2009-05-06 01:34:33 · 342 阅读 · 0 评论