#combi.pl$BFs$D$N%U%!%$%k$r$/$C$D$1$k(B



opendir(DIR,"../../h_momo2")||die". can't open1 :$!\n";

@file=readdir(DIR);

close(DIR);

foreach $name1(@file){
    if(!-d $name1){
	#print"1:$name1\n";
	opendir(DIR2,"../../h_momo2")||die". can't open :$!\n";
	
	@file2=readdir(DIR2);
	
	close(DIR2);
	
	foreach $name2(@file2){
	    if(!-d $name2 && $name1 ne $name2){
		system("cat ../../h_momo2/$name1 ../../h_momo2/$name2 > ../../h_combi/$name1\_$name2");
	    }
	}
    }
}
		
		
