点击运行
#!/usr/bin/perl $text = "google jiyik taobao"; format STDOUT = first: ^<<<<< # 左边对齐，字符长度为6 $text second: ^<<<<< # 左边对齐，字符长度为6 $text third: ^<<<< # 左边对齐，字符长度为5，taobao 最后一个 o 被截断 $text . write
运行结果 :
正在执行...
