perl 字符补齐

shinefuture

$a = "abc";如果要将 $a 变为8位字符，左对齐，不足用- 补齐
结果想这样  :   abc-----
不是直接加5个-，因为$a 长度未知，该怎么弄？
谢谢！

mndzjsjczex

回复 1# shinefuture


   要是print用的话就要用格式输出，然后用$~调用格式打印。

shinefuture

回复 2# mndzjsjczex

能具体点吗?  printf "%-8s”,$a 是可以用空格补齐但不知道怎么用 - 补齐

mndzjsjczex

回复 3# shinefuture


   没有用过printf，因为perldoc上面说printf没有print效率高。
   建议学习一下“格式化输出”，我不记清了，大概是这样

  

1. format f_name =
   
2. @<<<<<<<<~
   
3. $a
   
4. .
   
5. 
   
6. open fh, ">file_name";
   
7. select "f_name";
   
8. write fh;
   

复制代码

shinefuture

回复 4# mndzjsjczex

这下面4行是什么意思？第一次见这种写法
format f_name =
@<<<<<<<<~
$a
.

不需要写到文件里，只要显示就可以了
open fh, ">file_name";
select "f_name";
write fh;

谢谢！

mndzjsjczex

回复 5# shinefuture


   这个就是格式化输出昂，具体我忘了，你自己查吧。
   你要是想不写文件，输出到terminal上就直接
  

1. $~ = "f_name";
   
2. write STDOUT;
   

复制代码

   就好了……   抱歉之前写错了select后面应该是句柄，还有忘了写$~ = "f_name";

chenfengrugao

print "$a"  .    "-"  x  (8-length($a));
智能点可以写个函数
sub align_left_n {
my $str = shift;
my $width = shift;
my $ch = shift;

print "$str";
print "$ch" x ($width -  length($str));
}

shinefuture

print "$a"  .    "-"  x  (8-length($a));

chenfengrugao 发表于 2016-10-9 19:15

                               
登录/注册后可看大图

这个命令好，谢了！

mndzjsjczex

学习了，谢谢大牛