「Perl」last文を使うサンプル

2014年10月23日2020年11月29日

構文
if(条件式){
last;}
サンプルコード

#! /usr/bin/perl

use strict;

use warnings;

for (my $n = 0; $n < 10; $n++) {

if ($n == 5){

last;

}

print $i;

}

#! /usr/bin/perl use strict; use warnings; for (my $n = 0; $n < 10; $n++) { if ($n == 5){ last; } print $i; }

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

for (my $n = 0; $n < 10; $n++) {

      if ($n == 5){
            last;
      }
      print $i; 
}

結果
0 1 2 3 4

Posted by arkgame