perl
文章平均质量分 60
liuna915
不积跬步,无以至千里
展开
-
Perl 文件读写操作
实现在文件的第二行 添加版权信息。#!perluse strict;use warnings;use 5.012;sub add_copyright_in_file{ @ARGV = qw/exercise_4.txt exercise_4.txt.bak/; my $filename = shift @ARGV; my $filena原创 2012-07-15 19:52:14 · 671 阅读 · 0 评论 -
Use of uninitialized value $line in chomp
写了一个程序如下:#!perluse strict;use warnings;sub add_copyright{ my $flag = 0; my $line; my $filename = shift @ARGV; open my $input_handler, " while (chomp ($line原创 2012-07-16 20:58:57 · 1786 阅读 · 0 评论 -
perl windows readlink
在windows 下使用 readlink 读取符号链接,发现报如下错误:Use of uninitialized value $where in print at C:\Do......,解决办法是: readlink 依赖于symlink, 如果想在windows中使用symlink, 则需要下载模块 Win32:: Symlink, 同理,如果要想使用readlink, 同样原创 2012-08-08 12:18:12 · 1771 阅读 · 1 评论 -
perl stat windows 与 UNIX不同
在 windows perl 下运行如下程序:sub stat{ my ($filename) = @_; my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksizes, $blocks) = stat($filename); print "filen原创 2012-07-28 19:48:21 · 1137 阅读 · 0 评论 -
perl 得到指定目录中的指定内容
两种方法,第一种方法是可以使用 chdir + glob, 但是这种方法对于 . 和 .. 文件要 分开处理, 另外一种方法是使用目录句柄DH: opendir, readdir, closedir,这种方法可以获取所有的文件,包括. 和..文件。。。。。第一种方法示例如下:1)#!perluse strict;use warnings;sub change原创 2012-07-29 11:05:50 · 947 阅读 · 0 评论