- 论坛徽章:
- 0
|
#!/usr/bin/perl
open F23,"23";
while(<F23>)
{
chomp;
if( m!.*/([^.]+)(\..*)! )
{
($filename23,$extname23)=($1,$2) ;
$files{$filename23}=[$extname23,$_];
}
}
print "23'files\t---------25'files\n";
open F25,"25";
while(<F25>)
{
chomp;
($filename25,$extname25)=($1,$2) if m!.*/([^.]+)(\..*)!;
if( (exists $files{$filename25} ) && ("$files{$filename25}->[0]" ne "$extname25" ) )
{
print "$files{$filename25}->[1]\t\t$_\n";
}
}
我用perl写了一下,不知道效率如何,使用前23与25文件用find 命令先生成!
[ 本帖最后由 dream3401 于 2009-2-20 17:10 编辑 ] |
|