C言語のisgraph

質問

C言語のisgraph関数

<C++>
UINT uint = 66;
if(isgraph(uint)){}

をPerlに書き換えようとしたんですが、

<Perl>
$uint = 66;
if(??? =~ /[:graph:]/){}

ここまでしか分かりませんでした。
Perlへの正しい変換を教えてください。

回答No.5

nightowl

お礼をどうもありがとうございます。まず、補足くださった疑問点から
片付けていきましょう。

>[]の2重についてのことが分からないんですが、正規表現の
>[abc] #aかbかcのorという意味
>というorの意味が、/[[:graph:]]/の内か外の[]にあてはまりますか？

文字クラスの意味は、No.2 の方のご説明通りです。「[:alpha:]」を例にとって考えれば、
「[[:alpha:]]」は「[ABC..Za..z]」のように要素を列挙するのではなく、
「[A-Za-z]」のように範囲指定しているものだと思います。だから、

>[:graph:]でひとつの文字クラスです。文字クラスは[]で囲んで表現しますから、
>[[:graph:]]でワンセットです。

便宜的に「[:alpha:]」は「A-Za-z」に置き換わると考えてください。
つまり、「/[[:alpha:]]/」として初めて「/[A-Za-z]/」の意味になります。
これを角括弧を外して、「/A-Za-z/」と書いては意味を成しませんね。
ですから、以下のコードは間違いということになります。

>if ($c =~ /[:graph:]/) {...}

次はPOSIX モジュールを使う場合の補足です。
回答 No.3 のように書くと POSIX 準拠の関数すべてがインポート(輸入)
されてしまいますので、無駄を省くために

use POSIX qw(isgraph); # isgraph のみインポート

または

use POSIX qw(:ctype_h);
# 標準ヘッダ ctype.h で定義されているシンボルをすべてインポート

としてください。
それから、if や unless は文修飾子として用いたほうが一層効率的です。

printf("'%s' is a graphic character.\n", $c) if ($c =~ /[[:graph:]]/);

最後に No.4 の方のご指摘について。

>細かいことですが、isgraphに対応するのは、
>[:graph:]ではなくて、[:print:]じゃありませんか？
>([:graph:]は0x20含んでますから)

そうなのですか？Ｃでの定義とは異なりますね。
(Ｃの is 系関数は文字１個しか引数に取れないところも違いますが)
でも、手元の Perl v.5.6.1(Turbolinux Workstation 8.0 上の)では、

$c = ' '; # $c = ('c', 0x20);

printf("'%s' is NOT a graphic character.\n", $c) if ($c !~ /[[:graph:]]/);

はちゃんと真になりましたよ？
ホワイトスペースは定義通り弾かれているようですが。

お礼

[]が2重になる理由が理解できました。
POSIXは使ったことがなくて分かりませんでしたが、Perlへの移植が成功したのでまんぞくしました。
ありがとうございました。