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

回复此楼