[問題] Perl do 用法
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
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 5 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
