[펄스크립트] 루프(loop)

#!/usr/bin/perl foreach(1..5){  $mon=$_;  if($mon eq "1" || $mon eq "3" || $mon eq "5" || $mon eq "7" || $mon eq "8" || $mon eq "10" || $mon eq "12"){   foreach(1..4){    $day=$_;    if(length($mon) eq 1){     $mon="0$mon"    }    if(length($day) eq 1){     $day="0$day"    }    print "2015$mon$day\n";   }  }elsif($mon eq "2"){   foreach(1..4){    $day=$_;    if(length($mon) eq 1){     $mon="0$mon"    }    if(length($day) eq 1){     $day="0$day"    }    print "2015$mon$day\n";   }  }else{   foreach(1..4){    $day=$_;    if(length($mon) eq 1){     $mon="0$mon"    }    if(length($day) eq 1){     $day="0$day"    }    print "2015$mon$day\n";   }  } }

# 출력 결과

  - 가장 맨 처음 foreach 에서 정의해준 수 만큼 (5) && 두번 째 foreach 에서 정의한 수 만큼 (4)  loop가 돈다.

  

[root@testserver tmp]# ./loop.pl 20150101 20150102 20150103 20150104 20150201 20150202 20150203 20150204 20150301 20150302 20150303 20150304 20150401 20150402 20150403 20150404 20150501 20150502 20150503 20150504