相关讨论
rmdir (dirname);
删除空目录函数，dirname为目录名。
$y= ;
rmdir ($y);
这样为什么不行，目录下有一个fff文件夹，如果这段程式这样写的话就可以:rmdir (fff);
如果写成这样$y= ;rmdir ($y);却不行，当输入的时候，我输入fff,可目录的fff文件夹还在。怎么回事！
我要实现的功能是从一个文件中逐一读出文件名并删除之，但发现有的文件名中含有“$”字符
我使用
use Shell;
$rmstatus = rm($filename);
总是报错，提示该文件不存在
rm: cannot remove `32#07052015221DAMsh2.log': No such file or directory
PS:原文件名为32#07052015221DAM$02.log
以上错误信息中显示为：32#07052015221DAMsh2.log
请问如何解决？
谢谢！
有谁能告诉我perl删除文件的命令，需不需引用pm，我是新手，请说详细一点
我现在是把数据写到文件中, 然后再COPY 和PASTE 到EXCEL 文档中, 请问我可不可以将数据直接写进EXCEL 文档中呢? 谢谢!!
perl 如何读取目录中的文件名及插入到数据库?我有这样一人需求,就是有个文件夹有几千个电影,要取出文件名,然手插入postgresql 中去.请高手帮忙.
小弟底子比较薄,如何打开文件
以及句柄的基本概念和操作都不清楚
哪位达人给讲解一下
最好有个具体的程序例子,让小弟看一下
by
mavina
-
Perl
-
2006-08-17 13:20:42 阅读（1795） 回复（6）
#!/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循环之后输出却有空行了?怎样才能取掉空行呢?
