#!/usr/bin/perl
# 1から100までいろんな方法でprintしてみる

# 普通のfor構文
for ($count = 1; $count <= 100; $count++) {
  print "$count ";
}
print "\n";

# こんな書き方でもforループする
# 1 から 100の配列をループします
print "$_ " for(1..100);
print "\n";

# foreach構文
foreach $val (1..100) {
  print "$val ";
}
print "\n";

# foreach構文短縮
print "$_ " foreach(1..100);
print "\n";

#map関数は配列の要素に1つずつ処理をしていく
#今回のは配列の要素1つずつprint
map {print "$_ "}(1..100);
print "\n";

#join関数は配列の要素を、好きな文字を間に挟んで結合
print join(' ', (1..100));
print "\n";

#スカラ変数を使って配列を作ることもできる
$start = 1;
$end = 100;
print join(' ', ($start..$end));
print "\n";

#特殊変数を使う
#$, 出力時の項目区切り文字。print @xx; の時に有効
$, = ' ';
print (1..100);
print "\n";

#$" 出力時の項目区切り文字。print "@xx"; の時に有効
@ary = (1..100);
print "@ary\n";

# おまけ、文字列も自動的に配列にしてくれる
print ('001'..'100');
print "\n";

# aaからzzまでの配列も作れる
print ('aa'..'zz');
print "\n";
