perlclib - 標準 C ライブラリ関数の内部的な代用品
Perl porters が注意するべき事のひとつは、perl は内部で C 標準ライブラリを あまり使わないようにしていると言うことです; 例えば、ctype.h 関数は ほとんど使われていないことをに気付くでしょう。 これは、どのような操作を使用としているかを正確に知るために、Perl は 標準ライブラリ関数を再実装したり抽象化したりしようとするからです。
これは C ライブラリになれていて Perl 方式で何かをしたい人々のための リファレンスカードです; より普通の C 関数の代わりに使うべき関数を示します。
以下のテーブルで:
t
は型です。
p
はポインタです。
n
は数値です。
s
は文字列です。
sv
, av
, hv
などはそれぞれ対応する型の変数です。
stdio.h 関数の代わりに、Perl 抽象層を使うべきです。
FILE*
型の代わりに、PerlIO*
型を扱う必要があります。
新しい PerlIO 層の I/O 抽象化では FILE*
型は利用できないかも知れないことを
忘れないでください。
以下の関数に関するさらなる詳細については perlapio
文書を
参照してください:
Instead Of: Use:
stdin PerlIO_stdin() stdout PerlIO_stdout() stderr PerlIO_stderr()
fopen(fn, mode) PerlIO_open(fn, mode) freopen(fn, mode, stream) PerlIO_reopen(fn, mode, perlio) (Deprecated) fflush(stream) PerlIO_flush(perlio) fclose(stream) PerlIO_close(perlio)
Instead Of: Use:
fprintf(stream, fmt, ...) PerlIO_printf(perlio, fmt, ...)
[f]getc(stream) PerlIO_getc(perlio) [f]putc(stream, n) PerlIO_putc(perlio, n) ungetc(n, stream) PerlIO_ungetc(perlio, n)
fread
と fwrite
の PerlIO の代用品は C ライブラリの対応物とは
少し違うことに注意してください:
fread(p, size, n, stream) PerlIO_read(perlio, buf, numbytes) fwrite(p, size, n, stream) PerlIO_write(perlio, buf, numbytes)
fputs(s, stream) PerlIO_puts(perlio, s)
fgets
の等価物はありません; 代わりに sv_gets
を使うべきです:
fgets(s, n, stream) sv_gets(sv, perlio, append)
Instead Of: Use:
feof(stream) PerlIO_eof(perlio) fseek(stream, n, whence) PerlIO_seek(perlio, n, whence) rewind(stream) PerlIO_rewind(perlio)
fgetpos(stream, p) PerlIO_getpos(perlio, sv) fsetpos(stream, p) PerlIO_setpos(perlio, sv)
ferror(stream) PerlIO_error(perlio) clearerr(stream) PerlIO_clearerr(perlio)
Instead Of: Use:
t* p = malloc(n) Newx(id, p, n, t) t* p = calloc(n, s) Newxz(id, p, n, t) p = realloc(p, n) Renew(p, n, t) memcpy(dst, src, n) Copy(src, dst, n, t) memmove(dst, src, n) Move(src, dst, n, t) memcpy(dst, src, sizeof(t)) StructCopy(src, dst, t) memset(dst, 0, n * sizeof(t)) Zero(dst, n, t) memzero(dst, 0) Zero(dst, n, char) free(p) Safefree(p)
strdup(p) savepv(p) strndup(p, n) savepvn(p, n) (Hey, strndup doesn't exist!)
strstr(big, little) instr(big, little) strcmp(s1, s2) strLE(s1, s2) / strEQ(s1, s2) / strGT(s1,s2) strncmp(s1, s2, n) strnNE(s1, s2, n) / strnEQ(s1, s2, n)
Copy
および Move
の引数の順番は memcpy
および memmove
と異なる
ことに注意してください。
しかし、大抵の場合、生の char *
文字列ではなく内部的に SV を
扱いたいでしょう:
strlen(s) sv_len(sv) strcpy(dt, src) sv_setpv(sv, s) strncpy(dt, src, n) sv_setpvn(sv, s, n) strcat(dt, src) sv_catpv(sv, s) strncat(dt, src) sv_catpvn(sv, s) sprintf(s, fmt, ...) sv_setpvf(sv, fmt, ...)
連結とフォーマッティングを結合した sv_catpvf
および sv_vcatpvfn
が
あることにも注意してください。
時々、Newxz() を使って割り当てられたヒープをゼロにする代わりにデータに
「毒入れ」したいかもしれません。
これは、ポインタ(および浮動小数点数)として不正になり、できれば整数としても
十分に驚くべきビットパターンを書き込んで、考えなしにデータを使おうとする
コードが早めに壊れるようにすることです。
毒入れは Zero()
と似たような引数を持つ Poison()
マクロで行えます:
PoisonWith(dst, n, t, b) scribble memory with byte b PoisonNew(dst, n, t) equal to PoisonWith(dst, n, t, 0xAB) PoisonFree(dst, n, t) equal to PoisonWith(dst, n, t, 0xEF) Poison(dst, n, t) equal to PoisonFree(dst, n, t)
Perl が実装している文字クラステストには二つの種類があります: ひとつは
char
を扱い、従って Unicode は認識 しません (従ってこれを使うべきと
分かっている 場合でなければ非推奨です); もう一つの種類は UV
を扱い、
Unicode 特性を認識します。以下の表で、c
は char
、u
は
Unicode 符号位置です。
Instead Of: Use: But better use:
isalnum(c) isALNUM(c) isALNUM_uni(u) isalpha(c) isALPHA(c) isALPHA_uni(u) iscntrl(c) isCNTRL(c) isCNTRL_uni(u) isdigit(c) isDIGIT(c) isDIGIT_uni(u) isgraph(c) isGRAPH(c) isGRAPH_uni(u) islower(c) isLOWER(c) isLOWER_uni(u) isprint(c) isPRINT(c) isPRINT_uni(u) ispunct(c) isPUNCT(c) isPUNCT_uni(u) isspace(c) isSPACE(c) isSPACE_uni(u) isupper(c) isUPPER(c) isUPPER_uni(u) isxdigit(c) isXDIGIT(c) isXDIGIT_uni(u)
tolower(c) toLOWER(c) toLOWER_uni(u) toupper(c) toUPPER(c) toUPPER_uni(u)
Instead Of: Use:
atof(s) Atof(s) atol(s) Atol(s) strtod(s, &p) Nothing. Just don't use it. strtol(s, &p, n) Strtol(s, &p, n) strtoul(s, &p, n) Strtoul(s, &p, n)
それぞれの基数で数値を表現している文字列を NV
に変換するための
numeric.c にある grok_bin
, grok_hex
, grok_oct
関数にも
注目してください。
理論的には、perl がビルドされたマシンに実際に strtol や strtoul がない
場合、Strtol
と Strtoul
は定義されないかもしれません。
しかしこれらの 2 関数は 1989 ANSI C 使用の一部なので、今のところどこでも
これらを見つけられると思われます。
int rand() double Drand01() srand(n) { seedDrand01((Rand_seed_t)n); PL_srand_called = TRUE; }
exit(n) my_exit(n) system(s) Don't. Look at pp_system or use my_popen
getenv(s) PerlEnv_getenv(s) setenv(s, val) my_putenv(s, val)
setjmp.h 関数を使おうと 思う ことすらするべきではありませんが、もし
そう考えているなら、代わりに scope.h の JMPENV
スタックを
使ってください。
signal
/sigaction
については、rsignal(signo, handler)
を
使ってください。
perlapi
, perlapio
, perlguts