24小时热门版块排行榜

返回列表

当前主题已经存档。

charming1791

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 4.5
帖子: 211
在线: 2.6小时
虫号: 594385
注册: 2008-09-06
专业: RS

[交流] 【求助】将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 ]

回复此楼