ループ処理

@配列の上限を用いたループ

# *******************************************************************
# 
# *******************************************************************
for ( 0 .. $#Foo ) {
	print "$Foo[$_]<br>\n";
}

@配列の列挙

「通常」

# *******************************************************************
# 
# *******************************************************************
foreach $target ( @Foo ) {
	print "$target<br>\n";
}

「ソート」

# *******************************************************************
# 
# *******************************************************************
foreach $target ( sort @Foo ) {
	print "$target<br>\n";
}

「逆ソート」

# *******************************************************************
# 
# *******************************************************************
foreach $target ( sort {$b cmp $a;} @Foo ) {
	print "$target<br>\n";
}

連想配列ループ処理

# *******************************************************************
# 
# *******************************************************************
while ( ($key,$val) = each %Foo ) {
	print "$key,$val<br>\n";
}

ファイル入力

# *******************************************************************
# 
# *******************************************************************
open( IN, "dspdata/$IB_MID/$IB_FILENAME" );
$IB_WORK_CNT = 0;
while (<IN>) {
	$IB_WORK_CNT++;
	$_ =~ s/\n//g;
	if ( $IB_WORK_CNT == 1 ) {
		$IB_INFO_TARGET = $_;
	}
	elsif ( $IB_WORK_CNT == 2 ) {
		$IB_INFO_DATE = $_;
	}
	elsif ( $IB_WORK_CNT == 3 ) {
		$IB_INFO_TIME = $_;
	}
	else {
		$IB_INFO_TITLE = $_;
	}
}
close( IN );

# *******************************************************************
# 
# *******************************************************************
open( IN, "dspdata/$IB_MID/$IB_FILENAME" );
while (<IN>) {
	chop;
	if ( $. == 1 ) {
		$IB_INFO_TARGET = $_;
	}
	elsif ( $. == 2 ) {
		$IB_INFO_DATE = $_;
	}
	elsif ( $. == 3 ) {
		$IB_INFO_TIME = $_;
	}
	else {
		$IB_INFO_TITLE = $_;
	}
}
close( IN );

# *******************************************************************
# 
# *******************************************************************
open( IN, "dspdata/$IB_MID/$IB_FILENAME" );
@line = <IN>;
close( IN );

foreach( @line ) {
	chop;
}
($IB_INFO_TARGET,$IB_INFO_DATE,$IB_INFO_TIME,$IB_INFO_TITLE) = @line;