eval
#
!/usr/bin/perl?-w
push ( @program , ? ' $i?=?1; ' );
push ( @program , ? ' print?"The?number?is?",?$i; ' );
foreach ? $exp ?( @program )
{
???? eval ( $exp );
}
push ( @program , ? ' $i?=?1; ' );
push ( @program , ? ' print?"The?number?is?",?$i; ' );
foreach ? $exp ?( @program )
{
???? eval ( $exp );
}
posted on 2006-03-28 23:03 weidagang2046 閱讀(263) 評論(0) 編輯 收藏 所屬分類: Perl