次のページ 前のページ 目次へ

Perl HOWTO

Yoshio Shimamura <yoshios@green.ocn.ne.jp>

v1.0, 18 July 2000
この文書は、Perlの入門者向けHOWTO文書です。 この文書の最新版は http://hp.vector.co.jp/authors/VA004572/index.html から入手可能です。

1 文字列の表示

2 変数の使用

3 配列の使用

4 制御構造

5 サブルーチンの使用

6 コマンドライン引数の処理

1 文字列の表示

#! /usr/bin/perl

# step 1
# only print strings.

print "Hello Perl!\n";

2 変数の使用

# step 2
# using scalar variable

$string = "step2";
print $string, "\n";

3 配列の使用

3.1 配列

# step 3
# array

@array = ("Sunday",
          "Monday",
          "Tuesday",
          "Wednesday",
          "Thursday",
          "Friday",
          "Saturday");

print "\@array =", @array, "\n";

print "\$array[1] =",  $array[1], "\n";

print "\$#array =", $#array, "\n";

# slice

print "\@array[1 .. 5] =", @array[1 .. 5], "\n";
print "\@array[4..6, 1] =", @array[4..6, 1], "\n";

3.2 連想配列

# step 4
# associative array

%record = ('Key', 'yaguchi-mari',
	   'Name', 'Yaguchi Mari',
	   'Sex', 'Female');

print "Please input field-name (Key, Name, Sex): ";
chop($field = );
printf("%s is %s\n", $field, $record{$field});

4 制御構造

4.1 if

ifは、条件が真の場合に本体を実行する。 
if (条件) {
  ...
}

4.2 for

forは、初期化を行って、ループに入る。ループは、条件が成り立つ間に変数の増分を加えて実行される。 
for (初期値; 条件; 増分) {
  ...
}

4.3 while

whileは、条件が true の場合ループを処理し、false になったら終了する。 
while (条件) {
  ...
}

4.4 foreach

foreachは、指定した配列またはリストのデータを取り出し、指定した変数に格納してから、処理を行う。リストのデータは、先頭から、最後まで順番に取り出し、最後のデータを処理したらループを抜け出す。 
foreach 変数 (配列またはリスト) {
  ...
}

5 サブルーチンの使用

サブルーチンの定義 
sub sub-routine-name {
  ...
}
引数の渡し方 
&hoge(1, 2);


sub hoge {
  local ($arg1, $arg2) = @_;

  print "$arg1 $arg2\n";
}

6 コマンドライン引数の処理

スクリプトに与えられた引数は、配列@ARGVに格納される。 
$ARGV[0] = 第１引数（C言語と異なる点に注意！）
コマンドラインから与えられたスクリプト自身名は、$0に格納される。

次のページ 前のページ 目次へ