相关讨论
rmdir (dirname);
删除空目录函数，dirname为目录名。
$y= ;
rmdir ($y);
这样为什么不行，目录下有一个fff文件夹，如果这段程式这样写的话就可以:rmdir (fff);
如果写成这样$y= ;rmdir ($y);却不行，当输入的时候，我输入fff,可目录的fff文件夹还在。怎么回事！
有谁能告诉我perl删除文件的命令，需不需引用pm，我是新手，请说详细一点
在perl的session模块中，设置了有效时间，在有效时间后能自动把这个session从/tmp中删除吗？不能自动删除没用的session记录的话，有其他办法吗？
by
戏园子
-
Perl
-
2005-11-02 14:41:22 阅读（1002） 回复（2）
在 *nix 下能够通过 perl 得到光盘的序列号呢 ？
by
BSD_KT
-
Perl
-
2006-08-22 16:49:01 阅读（676） 回复（1）
#!/usr/bin/perl
use strict;
use warnings;
my $File1="\/tmp\/1";
my $File2="\/tmp\/mon2\.$$";
open IN,"<$File1" or die "can't open file: $File1,$!";
open OUT ,">$File2" or die "can't open file: $File2,$!";
while(){
next unless /\S/;
tr/\r//d;
#print OUT $_ || die("$File2: print failed");
print OUT $_;
}
close(IN);
close(OUT);
这样的可以的，但感觉太复杂了，有什么简单方法
在shell中只要sed一下...
open(READ,"sz_ci.log")||die "Can not write:$!";
while () {
chomp;
@array=;
#print @array;
}
close(READ);
for (my $i=0;$i<@array ;$i++) {
print $array[$i],"\n";
}
输出:11032
11932
12741
12761
12801
问题:在chomp;@array=;这之后输出发现没有空行.但是通过一个FOR循环之后输出却有空行了?怎样才能取掉空行呢?
要把perl脚本内的注释都删除，但“#!/usr/bin/perl -w”肯定不能删除。
单行注释好删除，可多行注释不太好实现。
如a.pl
[code]
#!/usr/bin/perl -w
# $Id: restore.pl,v 1.1.2.1Exp $
# user: root
………………
………………
=head1 getRegistrationStatus
@param seconds expiredtime
@return 1: unregistered
2: registered
3: expiring
4: expired
=cut
………...
如题
cat info.txt
aa
bb
cc
如何删掉含aa的这行。
我的linux 版本不同，不能用sed -i 命令。请问用perl 怎么做。
by
lylzgq
-
Perl
-
2007-12-10 16:24:33 阅读（6036） 回复（5）
by
mavina
-
Perl
-
2006-08-17 13:20:42 阅读（1304） 回复（6）
