[求助]如何获取txt文档名并把它加入文档第一行

power562

请教，如何能获取一个目录下所有的txt文档名，并把文档名写入对应的文档的第一行里

clustertech

用glob
  while(my $file = glob  "*.txt"){ }

power562

试了一下，不行啊……

yashiro_lj

简单说一下思路，不一定是最优的方法，仅供楼主参考

用opendir、readdir或File::Find循环读入目录下所有文件和子目录，用-T文件检测符或根据文件名是否以.txt结尾来判断读入的是否txt文档，对于txt文档，读入其内容，然后在最开始加入文件名，再写入该文件

rainbird2

==理解错误

Perl_Er

给你一个提示:
use strict;
use warnings;
my $file = 'path/to/file.txt';
my $newline = "In general, if you think something isn't in Perl, try it out, because it usually is.";
{
   local @ARGV = ($file);
   local $^I = '.bac';
   while(<>){
      if ($. == 1) {
         print "$newline$/";
      }
      else {
         print;
      }
   }
}

[ 本帖最后由 Perl_Er 于 2009-6-18 15:31 编辑 ]

shaneqi

瞎写了一个，还没试。

1. use File::Path;
   
2. 
   
3. my $dir="";
   
4. 
   
5. opendir IND , "$dir";
   
6. 
   
7. foreach my $file ( readdir IND ) {
   
8.    if ( $file =~ /(.*)\.txt$/ ) {
   
9.    open FILE, "$file";
   
10.    open OUT, ">$file.bak";
    
11.    while(<FILE>){
    
12.    if ($. == 1){
    
13.    print OUT "$1\n$_";
    
14.    }
    
15.    else {
    
16.    print OUT $_;
    
17.    }
    
18.    }
    
19.    close(FILE);
    
20.    close(OUT);
    
21.    }
    
22. }
    
23. 
    
24. close(IND);

复制代码

miniqq

#!/usr/bin/perl -w
#
use strict;

my @files = @ARGV;

my $fn = "";

foreach $fn (@files) {
    system "sed -i '1i $fn' $fn";
}


then in that dir/

#./pro.pl *.txt

小公猫

opendir

power562

if ($. == 1){
   print OUT "$1\n$_";
   }
这段是什么意思呢？