应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Shell&Perl » 程序求解：重复的相同数据用同样的代码取代
51/1返回列表
查看: 1508  |  回复: 9
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

淡蓝幽香

新虫 (初入文坛)

[求助] 程序求解：重复的相同数据用同样的代码取代

小女有如下数据，片段截取如下（每列用了制表符分隔）
Col1        Col2        Col3        Col4        Col5        Col6
1        G L        0        0        1        0
1        EL        0        0        2        0
1        (5)W S        G L        EL        2        0
1        G S        0        0        1        0
1        A S        0        0        2        0
1        (10)A D        G S        A S        2        0
1        (65)B        B D        (10)A D        2        0
1        M M K        (4)M K        (65)B        2        0

2        J K        0        0        1        0
2        A        0        0        2        0
2        P R        0        0        1        0
2        A R        0        0        2        0
2        (59)M Z J K        A        2        0
2        (30)M R        (8)A R        (19)L R        1        0

其中第一列表示组号，希望得到如下的结果：
1. 在每一组里，不带有数字的字母项，用符号表示。其中具有相同字母的项目（没有数字的字母列），用相同符号表示，如NA1，如第一行G L————NA1，第三行的G L也是NA1，但是第二行的EL为NA2
2.同一组里，带有数字的字母项，字母删除，只留下数字


自己尝试的写了下，发现，乱成了一团，紧急求助各位达人，先谢过啦！！！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2012-07-06 23:25:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

anntoy

木虫 (著名写手)
用c写了个，第一行那个标题处理不了
CODE:
#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;
}
赞一下 回复此楼
7楼2012-07-07 12:29:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答

jjdg

版主 (知名作家)

优秀版主
还是不太清楚你的意图
赞一下 回复此楼
努力学习！以正当途径！获得需要的知识！
2楼2012-07-07 01:15:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

淡蓝幽香

新虫 (初入文坛)
引用回帖:
2楼: Originally posted by jjdg at 2012-07-07 01:15:44
还是不太清楚你的意图

恩，就是啊，数据中第一列表示组号，每个组都希望做到以下的事情，如组一
1.有字母没有数字的项目，都替换成NAi，其中i 的取值根据情况而定. 如第一个碰见的字母组合是G L，那么自然是NA 1， 而第一行和第三行的字母相同，都是 G L，那么就用相同的NA1表示，第二行EL则用NA2表示，依次类推。

2.有字母，有数字的项目，只留下数字，不要字母。

还有哪里不清楚么？
赞一下 回复此楼
3楼2012-07-07 05:35:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jackie1179

木虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
给你写了个perl脚本，希望能够帮到你。
用法：perl  ./pro.pl  input_file output_file
贴上代码:
#!/usr/bin/perl -w

unless(@ARGV) {
  die "Arguments not enough!$!";
}
$in = $ARGV[0];
$out = $ARGV[1];
open(IN,"$in" || die "Cannot open this file!$!";
open(OUT,">$out" || die "Cannot write to this file!$!";
undef %string;
$cnt = 0;
while( {
  chomp;
  @array = split /\t/;
  foreach $ele(@array) {
    if($ele lt '0' || $ele gt '9') {
      print $ele,"\t";
      if($ele =~ /\((\d+)\)/) {
        $ele = $1;
      } else {
        if(!defined $string{$ele}) {
         
          $cnt++;
          $string{$ele} = $cnt;
          $ele = "NA" . $cnt;
        } else {
          $ele = "NA" . $string{$ele};
        }
      
      }
      
    }
    print OUT "$ele\t";
  }
  print OUT "\n";
  
}

close IN;
close OUT;
赞一下 回复此楼
4楼2012-07-07 10:08:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 08工学调剂 +5 用户573181 2026-03-20 5/250 2026-03-20 15:47 by xia_2003
[考研] 290求调剂 +4 ^O^乜 2026-03-19 4/200 2026-03-20 11:51 by 学员8dgXkO
[考研] 317求调剂 +4 申子申申 2026-03-19 8/400 2026-03-20 11:20 by 申子申申
[考研] 材料专硕英一数二306 +6 z1z2z3879 2026-03-18 6/300 2026-03-20 08:49 by xingguangj
[考研] 一志愿苏州大学材料求调剂，总分315（英一） +3 sbdksD 2026-03-19 3/150 2026-03-19 23:21 by fmesaito
[考研] 生物学调剂招人！！！ +3 山海天岚 2026-03-17 4/200 2026-03-19 21:34 by 怎么释怀
[考研] 一志愿天津大学化学工艺专业（081702）315分求调剂 +11 yangfz 2026-03-17 11/550 2026-03-19 15:06 by houyaoxu
[考研] 085600材料与化工求调剂 +6 绪幸与子 2026-03-17 6/300 2026-03-19 13:27 by houyaoxu
[考研] 354求调剂 +4 Tyoumou 2026-03-18 7/350 2026-03-18 21:45 by Tyoumou
[考研] 材料专业求调剂 +5 hanamiko 2026-03-18 5/250 2026-03-18 20:19 by 星空星月
[考研] 280求调剂 +6 咕噜晓晓 2026-03-18 7/350 2026-03-18 11:25 by 无际的草原
[考研] 332求调剂 +6 Zz版 2026-03-13 6/300 2026-03-17 17:03 by ruiyingmiao
[考研] 302求调剂 +4 小贾同学123 2026-03-15 8/400 2026-03-17 10:33 by 小贾同学123
[考研] 0854控制工程 359求调剂 可跨专业 +3 626776879 2026-03-14 9/450 2026-03-16 17:42 by 626776879
[考研] 326求调剂 +4 诺贝尔化学奖觊� 2026-03-15 7/350 2026-03-16 17:11 by 诺贝尔化学奖觊�
[考研] 304求调剂 +4 ahbd 2026-03-14 4/200 2026-03-16 16:48 by 我的船我的海
[考研] 一志愿211 0703方向310分求调剂 +3 努力奋斗112 2026-03-15 3/150 2026-03-16 16:44 by houyaoxu
[考研] 070300化学学硕求调剂 +6 太想进步了0608 2026-03-16 6/300 2026-03-16 16:13 by kykm678
[考研] 070303 总分349求调剂 +3 LJY9966 2026-03-15 5/250 2026-03-16 14:24 by xwxstudy
[考研] 297一志愿上交085600求调剂 +5 指尖八千里 2026-03-14 5/250 2026-03-14 17:26 by a不易
信息提示
关闭
请填处理意见
关闭