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