Perl kód átírása C-be

Köszi, megpróbálom kihámozni.
Csaba

Nos, jelenlg itt tartok:

#include <unistd.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/* megszámlálja a ',' elemeket */
int get_size( char * buffer ){
  int c = 0, i = 0;
  if( buffer[ 0 ] == 0 )
    return 0;
  while( buffer[ i ] != 0 )
    {
      if( buffer[ i ] == ',' )
	c++;
      i++;
    }
  /* egyet hozzáadok, mert a "hello" is értéknek számít, hiába nincs benne ',' */
  return c + 1;
}

/* visszatér egy pointer tömbbel, ami az elemekre mutat, a tömböt 0 pointerrel zárja */
char ** get_pointers( char * buffer )
{
  int size = get_size( buffer );
  /* helyfoglalás a pointer tömbnek */
  char ** res = (char **)malloc( sizeof( char * ) * ( size + 1 ) );
  int i=0;
  int p=0;
  while( buffer [ i ] != 0 ) {
    /* a sor elejét eltárolom */
    res[ p++ ] = buffer + i;
    /* a sor végét megkeresem */
    do {
      i++;
    } while( buffer[ i ] != 0 && buffer[ i ] != ',' );
    /* felülírjuk a ','-t 0-val */ 
    if( buffer[ i ] != 0 ) {
      buffer[ i ] = 0;
      i++;
    }
  }

   /* null pointerrel zárjuk */
   res[ p ] = 0;
   return res;
}

int main(int argc, char *argv[ ]) {
  int c;
  char delims[] = ",";
  char *infiles;
  char ** infile_array=get_pointers(infiles);
  char *outfiles;
  while ((c = getopt(argc, argv, ":i:o:h")) != -1) {
    switch(c){
    case 'h':
      printf ("Usage: ....\n");
      break;
    case 'i':
      infiles=optarg;
      printf("infiles %s\n", infiles);
      int p = 0;
      while( infile_array[ p ] != 0 )
	{
	  printf( "%i. file:%s\n", p,infile_array[ p ] );
	  p++;
	}
      break;
    case 'o':
      break;
    }
  }
}

Ez legalább lefordul, de nem igazán azt csinálja, amit szeretnék. Szerintem valahogy a pointerek körül kavarok el valamit. Help! Köszi....

Csaba

Nagyon szépen köszönöm.
Csaba