2Â¥: Originally posted by jjdg at 2012-07-07 01:15:44
»¹ÊDz»Ì«Çå³þÄãµÄÒâͼ

import sys, re
d = {}
l = []
n = 1
regx0 = re.compile(r'\(([0-9]+)\)[A-Z]+')
regx1 = re.compile(r'[A-Z]+')
repl = lambda g: g.groups()[0]
for line in open(sys.argv[1], 'r'):
    tmpl = []
    if line.startswith('Col'):
        l.append(line.strip())
        continue
    line = regx0.sub(repl, line)
    for i in line.strip().split('\t'):
        if regx1.match(i):
            if not i in d.keys():
                d[i] = 'NA%s' %n
                n += 1
            tmpl.append(d[i])
        else:
            tmpl.append(i)
    l.append('\t'.join(tmpl))
print '\n'.join(l)

#include
#include
#include

#define INBUFSIZE 1024
#define OUTBUFSIZE 100
#define MAXLET 50
#define MAXINDEX 50

char table[MAXINDEX][MAXLET];
int maxindex;

int isAllNum(char *p)
{
        while(*p >= '0' && *p <= '9') {
                p++;
        }
        return *p == '\t' || !*p;
}

int isAllLetter(char *p)
{
        while((*p >= 'a' && *p <= 'z')||(*p >= 'A' && *p <= 'Z')) {
                p++;
        }
        return *p == '\t' || !*p;
}

int kickLetter(char *in)
{
        int i = 0;
        char *out = in;
        while(*in){
                if(*in >= '0' && *in <= '9') {
                        *out = *in;
                        out++;
                        i++;
                }
                in++;
        }
        *(out++) = '\t';
        *out = 0;
        return ++i;
}

int getcol(char *in, char *out)
{
        int i = 0;
        while(*(in + i) != '\t' && *(in + i)) {
                *(out + i) = *(in + i);
                i++;
        }       
        *(out + i) = 0;
        return i == 0 ? 0 : i + !!*(in + i);
}

int getIndex(char *p)
{
        int i = maxindex;
        while(i--)
                if(!strcmp(table[i], p))
                        return i;
        maxindex++;
        sprintf(table[maxindex], p);
        return maxindex;
}

int main()
{
        char *inbuf, *outbuf;
        int group = 0, ret, ret2;
        FILE * fpi, *fpo;
        fpi = fopen("in","r");
        fpo = fopen("out","w");
        inbuf = malloc(INBUFSIZE);
        outbuf = malloc(OUTBUFSIZE);
        while(fgets(inbuf, INBUFSIZE, fpi)){
                if(*inbuf == '\n'){
                        fwrite("\n", 1, 1, fpo);
                        continue;
                }                       
                if(inbuf[strlen(inbuf) - 1] == '\t')
                        inbuf[strlen(inbuf) - 1] = 0;
                ret = getcol(inbuf, outbuf);
                if(group != atoi(outbuf)){
                        group = atoi(outbuf);
                        maxindex = 0;
                }
                fwrite(inbuf, ret, 1, fpo);
                while(ret2 = getcol(inbuf + ret, outbuf)){
                        ret += ret2;
                        if(isAllNum(outbuf)){
                                ret2 = sprintf(outbuf, "%s\t", outbuf);
                                fwrite(outbuf, ret2, 1, fpo);
                        } else if(isAllLetter(outbuf)) {
                                ret2 = sprintf(outbuf, "NA%d\t", getIndex(outbuf));
                                fwrite(outbuf, ret2, 1, fpo);
                        } else {
                                ret2 = kickLetter(outbuf);
                                fwrite(outbuf, ret2, 1, fpo);
                        }
                }
                fseek(fpo, -1, SEEK_CUR);
                fwrite("\n", 1, 1, fpo);
        }
        fclose(fpi);
        fclose(fpo);
        free(inbuf);
        return 0;
}

4Â¥: Originally posted by jackie1179 at 2012-07-07 10:08:13
¸øÄãдÁ˸öperl½Å±¾£¬Ï£ÍûÄܹ»°ïµ½Äã¡£
Ó÷¨£ºperl  ./pro.pl  input_file output_file
ÌùÉÏ´úÂë:
#!/usr/bin/perl -w

unless(@ARGV) {
  die "Arguments not enough!$!";
}
$in = $ARGV;
$ou ...