刚刚开始学习如何用PERL语言编写关于组合歧义的程序,有一些不太懂的问题,想请教一下...
my [email=$count=@hou]$count=@hou[/email];
my $i;
if($count-1>=5)
{
@hou=@hou[0..5];
}
else
{
for($i=0;$i<5-$count+1;$i++)
{
???????????????????????????
}
#print "@hou\n";
我想用这段程序实现,当句子长度大于6时,使句子取前6位,
当句子长度小于6时,先一直取到句尾,后再用"0"补齐6位,
即输出例如"有的。０００"这种格式。
希望能有人指点一下，谢谢了。
最新回复
use warnings;
my $sen=shift;
my $len=length($sen);
print $len,"\n";
if ($len>6){
print substr($sen,6),"\n";
}
else{
my $post='0'x(6-$len);
print $sen.$post,"\n";
}