| 查看: 229 | 回复: 1 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】将C程序转为perl 脚本【已取消】
|
|||
|
因本人没学过perl脚本，哪位能帮忙将下面一段代码转为perl脚本，谢谢！ #include #include main (argc, argv) int argc; char **argv; { float iq; int i, j, nbytes,ll; int nrig, nsamp; short *veti; float *vetf; char fi[100],fo[100]; FILE *ifp, *ofp; if (argc != 5) { printf ("usage: short2complex <#lines> <#samples> filein fileout\n"  ;exit(1); } sscanf (argv[1], "%i", &nrig); sscanf (argv[2], "%i", &nsamp); sscanf (argv[3], "%s", fi); sscanf (argv[4], "%s", fo); if(!(ifp=fopen(fi,"rb" )) {printf("Cannot open input file %s\n",fi); exit(1); } if(!(ofp=fopen(fo,"wb" )) {printf("Cannot open output file %s\n",fo); exit(1); } veti = (short *) malloc (2 * nsamp * sizeof (short)); vetf = (float *) malloc (2 * nsamp * sizeof (float)); for (i = 0; i < nrig; i++) { fread (veti, sizeof (short), 2 * nsamp, ifp ); for (j = 0; j < nsamp * 2; j++) { vetf[j] = (float) veti[j]; } fwrite (vetf, sizeof (float), 2 * nsamp, ofp); } fclose(ofp); fclose(ifp); } [ Last edited by 波不动 on 2010-1-13 at 20:48 ] |
回复此楼» 猜你喜欢
现在不知道怎么办，感觉很痛苦
已经有6人回复
-
请问大佬b0816评完了吗
已经有8人回复
-
本人最近太闲了，谁有问题可以提，每天会统一回复
已经有20人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有8人回复
-
求助2，4-二氯-5-嘧啶甲醛的合成方法
已经有6人回复
-
评审感受-评审感受-评审感受
已经有19人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
2楼2010-01-13 15:30:32
精华III:
30