[問題] Perl do 用法

[gecer (gecer)]

my $line = "Just another regex hacker, Perl hacker, and that's it!\n";

while( 1 )
        {
        my( $found, $type )= do {
                if( $line =~ /\G([a-z]+(?:'[ts])?)/igc )
                        { ( $1, "a word"           ) }
                elsif( $line =~ /\G (\n) /xgc             )
                        { ( $1, "newline char"     ) }
                elsif( $line =~ /\G (\s+) /xgc            )
                        { ( $1, "whitespace"       ) }
                elsif( $line =~ /\G ( [[:punct:]] ) /xgc  )
                        { ( $1, "punctuation char" ) }
                else
                        { last; ()                   }
                };

        print "Found a $type [$found]\n";
        }


小弟參考code 如上  請問這裡的do {...}的用意? 非 do {..} while

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.255.6.125
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1519814633.A.6D8.html