#!/usr/bin/perl $a = 10; # 执行 do...while 循环 do{ printf "a 的值为: $a\n"; $a = $a + 1; }while( $a < 15 );