Infection
iB3 PostgreSQL Coder | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору помогите пожалуйста кто-нить переписать на си имеем код в перле Код: $bytes = 0; open(FOA,"755"); str(10); str(10,0); close(FOA); sub str ($;$){ ($len,$count) = @_; $ret = undef; read(FOA,$ret,$len); unless ($count) { # Просчитать байты, если не стоит флаг на счет $bytes += $len unless $count; } else { seek(FOA,$bytes,0); } return $ret; } | пытась написать на си и не получается Код: FILE *FOA; int bytes = 0; char* str(int len, int count=0); main{ if ( (FOA = fopen("745996", "r") )==NULL) { fprintf (stderr, "Can't find HPSDFOAFILE\n"); exit(1); }; printf("String: %s\n", str(32,0)); fclose(FOA); exit(0); } char* str(int len, int count) { char *ret[MAX]; fread(ret, 1, len, FOA); if (!count) { bytes += len; } else { fseek(FOA,bytes,0); } return ret; } |
|