電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

先頭の要素を配列の末尾に移すループ処理を生成

Perlを使用して、先頭の要素を配列の末尾に移すループ処理を出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
sub ArraySwap {
	my ($position,@date) = @_;
	my @swap = (@date,$position);
	return @swap;
}
 
my @array = (0..9);
for(0..9) {
	@array = ArraySwap(@array);
	print "@array\n";
}
 
exit;

サンプルコードです。先頭の要素を配列の末尾に移すループ処理を出力します。

1

出力結果です。先頭の要素を配列の末尾に移すループ処理を出力しました。

スポンサードリンク
スポンサードリンク