求助

静女，其姝

file1:
a
c
e
f

file2
a.c
a.e
a.f
c.e
c.f
e.f


input.file3
###c.f.123
###g.c.783
###c.e.192
###a.c.209
###a.e.345
###a.c.111
###h.f.019
###a.c.248
###a.s.347
###a.h.170
###a.b.159
###a.f.240
###e.f.126

问题1：输入文件为file1,怎么输出为file2（意即两两输出file1中元素）
问题2：输入文件为file1和file3,怎么输出file2（如果file3中$_包含任意两个file1中的元素，则输出$_）

jason680

回复 1# 静女，其姝

$ awk 'function C(n){for(t=n+1;t<=NR;t++)print a[n]"."a[t]}{a[NR]=$1}END{for(n=1;n<=NR;n++)C(n)}' file1
a.c
a.e
a.f
c.e
c.f
e.f

$ awk 'function D(n, t){for(t=n+1;t<=NR;t++)d[a[n]"."a[t]]=1}FNR==NR{a[NR]=$1;N=NR;next}FNR==1{for(n=1;n<=N;n++)D(n)}{sub("^###","");sub("[.][0-9]+$","");if(d[$0])print $0}' file1 file3
c.f
c.e
a.c
a.e
a.c
a.c
a.f
e.f

   

zxy877298415

1. awk '{a[NR]=$0}END{for(i=1;i<=NR;i++)for(j=i+1;j<=NR;j++)print a[i],a[j]}' file1
   
2. a c
   
3. a e
   
4. a f
   
5. c e
   
6. c f
   
7. e f
   
8. awk 'FNR==NR{a[FNR]=$0;t=FNR;next}{match($0,"###(.).(.)",b);for(i=1;i<=t;i++) {if(a[i]==b[1]||a[i]==b[2]) {s=s?s"."b[2]:b[1];++p}}if(p==2) print s;s="";p=""}' file1 file3
   
9. c.f
   
10. c.e
    
11. a.c
    
12. a.e
    
13. a.c
    
14. a.c
    
15. a.f
    
16. e.f

复制代码

回复 1# 静女，其姝


   

静女，其姝

十分感谢，好人一生顺遂
回复 3# zxy877298415


   

静女，其姝

额  发错版块了，第二个awk完全看不懂啊，本来想求perl的。不过我会努力读懂第二个awk，并且自己写出perl。昨晚用的grep -v逐步过滤

回复 3# zxy877298415


   

Windows19

回复 5# 静女，其姝


    原来你也这么忙

我是一隻羊

1. awk '{a[++i]=$0}END{for(;j++<length(a);)for(k=j;k++<length(a);)print a[j]"."a[k]}' inputfile

复制代码

我是一隻羊

1. awk -F'[#.]+' 'NR==FNR{a[++i]=$0;next}{k=0;for(j=0;j++<length(a);){$2==a[j]?k++:1;$3==a[j]?k++:1}}k==2' inputfile1 inputfile2

复制代码

是按照楼主1楼举例的文本格式来得,如果原文本格式不太一样的话会有问题.楼主到时候可以贴出来~我再改.

程序猿zy

#/usr/bin/perl -w

use strict ;


my $IN_FILE ;
my $OUT_FILE1 ;
my $OUT_FILE2 ;
my @tmp_list ;

open $IN_FILE, '<', "file1" or die "Can't open file" ;
open $OUT_FILE1, '>', "file2";
open $OUT_FILE2, '<', "file3" or die "Can't open file" ;

while( <$IN_FILE> ) {
        chomp ;
        push @tmp_list, $_ ;
}

my $i ;
my $j ;
for( $i = 0; $i <= $#tmp_list; $i++ ) {
        for( $j = $i + 1; $j <= $#tmp_list; $j++ ) {
                while(<$OUT_FILE2>) {
                        chomp ;
                        if( $_ =~ /$tmp_list[$i].$tmp_list[$j]/ ) {
                                print "$_\n" ;               
                        }
                }
                print $OUT_FILE1 "$tmp_list[$i].$tmp_list[$j]\n" ;
        }
}

close( $IN_FILE ) ;
close( $OUT_FILE1 ) ;
close( $OUT_FILE2 ) ;