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

#!/usr/bin/perlforeach(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" } pri..

2016.04.18