「Perl」do…while文でnextを使用するサンプル

2014年8月26日2020年11月29日

構文
if(条件式){some code}
使用例

#! /usr/bin/perl
use strict;
use warnings;

my $n = 0;

do{
    if ($n == 5) {
            $n++;
    	next;
    }
      print $n;
      $n++;
}while ($n < 10)

結果
0 1 2 3 4