perl读取目录下所有文件
perl读取目录下所有文件,要求把各文件内容各左一条记录保存到数据库里面,如何实现.
我是这么做的,为什么没有反应
use Win32::ODBC;
$DSN = "DSN=odbctest; ";
$db = new Win32::ODBC($DSN);
$dir= "c:\\rfc\\RFC\\ ";
opendir DIR, $dir;
@dir=readdir DIR;
foreach $file(@dir){
open (FILE, "> $dir$file ") or die "Couldn 't open $file for writing: $! ";
while($line= <FILE> ){
$contents.=$line;}
print $contents;
close FILE;
}
......
[解决办法]
问题在这一行
open (FILE, "> $dir$file ") or die "Couldn 't open $file for writing: $! ";
文件名前面加“> ”是要向文件中写入内容,会把文件内容清空,当然读不到文件内容了。