PicoWorkshop

CGI-Perl samplePerl

変数（$str）内の文字を、大文字　／小文字に変換します。

# 文字列を小文字化
$str =~ tr/[A-Z]/[a-z]/;

# 文字列を大文字化
$str =~ tr/[a-z]/[A-Z]/;

変数（$str）内の文字を、
8進数、10進数、16進数文字に変換します。

# 10進->8進変換
$result = sprintf("%o", $src);

# 8進->10進変換
$result = oct($src);

# 10進->16進変換
$result = sprintf("%x", $src);

# 16進->10進変換
$result = hex($src)

IP address取得処理

ホスト名からIPアドレスを取得します。

host名（$host）からIP address（@addrs）を取得します。 IP addressは、配列に格納されて返却されるので、ドットで区切る形式に変換する場合は、printfを使います。

#!/usr/local/bin/perl

# host名の取得
chomp($host = `hostname`);

# IP　addressの取得
($hname,$aliases,$addrtyp,$length,@addrs) = gethostbyname($host);
printf("host = %s\n", $hname);

# IP addressを'.'で区切り変換する。
foreach $addr (@addrs) {
  printf("addr = %s.%s.%s.%s\n", unpack('CCCC', $addr));;
}