Perl構文 ループする while と until
2023年12月12日
ループする while until
whileでループする。通常のループ処理です
配列の内容をすべて表示するときに使います
#!/usr/bin/perl
#11以上を入力
$file = $ARGV[0];
while( $file > 10){
print “ループします”;
last;#ループは抜ける意味のこの行がないと無限ループします
}
——————————————–
untilでループする。反対だとループする。
たまに反対に歩いたほうが都合が良いときがあるのと同じで、
通常はwhileですが苗を植えると反対に歩きますよね
それと同じです。
#!/usr/bin/perl
#11以上を入力
$file = $ARGV[0];
if($file<10){
#$fileが10以下ならループします。
until( $file > 10){
#8だと10より大きくないのでループを実行します
print “ループします”;
last;#ループは抜ける意味のこの行がないと無限ループします
}
}else{
print “ループしません”;
}
┌──(hirano㉿hirano)-[~]
└─$ perl ‘/home/hirano/Desktop/while.pl’ 8
ループします
┌──(hirano㉿hirano)-[~]
└─$ perl ‘/home/hirano/Desktop/while.pl’ 15
ループしません