perl学习之printf

发布时间：2020-12-16 00:24:11 所属栏目：大数据来源：网络整理

导读：perl学习记录 #!?/usr/bin/env?perl?-w? #use?strict;? #Date:2005-05-31? #ex5_3? #右对齐输出? chomp(my?$ n = STDIN );? for(1?..$n){? ????print?$_%10;? }? print?"n";???? my$ p = "%" .($n+1)."sn";? while?( STDIN ){? ????printf?$p,$_;? }? ? 运

perl学习记录

 
 
#!?/usr/bin/env?perl?-w?
  
  #use?strict;?
  
  #Date:2005-05-31?
  
  #ex5_3?
  
  #右对齐输出?
  
  chomp(my?$n=<STDIN>);?
  
  for(1?..$n){?
  
  ????print?$_%10;?
  
  }?
  
  print?"n";????
  
  my$p="%".($n+1)."sn";?
  
  while?(<STDIN>){?
  
  ????printf?$p,$_;?
  
  }?
  
  ?
  
  运行结果?
  
  [root@nagios?perl]#?perl??ex53??
  
  30?
  
  123456789012345678901234567890?
  
  hello?wolrdl?
  
  ??????????????????hello?wolrdl?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!