首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 转个贴，有兴趣的看看：）

转个贴，有兴趣的看看：）

时间：2011-07-14

来源：互联网

本帖最后由 yinyuemi 于 2011-07-14 01:25 编辑
  1. $str = "hello worlds ab abcdefgh"
  2. # 转成下面的格式输出

  4. ****
  5. ****
  6. ** *
  7. ** *
  8. ** *
  9. * *  #这行应该向右挪一个位置
  10.    *
  11.    *

  13. # 要求就是把$str的字符串全部替换为*,然后每个单词做个翻转。（上面的格式有些问题，可以运行下面我的代码看下)
复制代码
最近在学习perl，把我写的贴下，感觉还是awk的思路，请大佬们赐教！


我的代码：
  1. #!/bin/perl
  2. use strict;

  4. my $str = "hello worlds ab abcdefgh";
  5. my @a;
  6. my $q=0;
  7. my $p;
  8. my $n=0;
  9. my $v;
  10. my %o;

  12. @a=split (/ /,$str);

  14. foreach (@a){
  15.         my @w=split(/x*/,$_);
  16.         ++$q;
  17.         $p=0;
  18.         foreach (@w){
  19.                 $o{$q}{++$p}=$_;
  20.         }
  21.         $n=$n>$p?$n:$p
  22. };
  23.        
  24. for(my $i=1;$i<=$n;$i++){
  25.         for(my $j=1;$j<=$q;$j++){
  26.                 $v=(exists($o{$j}{$i})?$o{$j}{$i}:" ");
  27.                 $v=~s/\w/*/;
  28.                 print $v;
  29.         }
  30.         print "\n";
  31. }
复制代码

作者: yinyuemi   发布时间: 2011-07-14

挺好、、

作者: kgdvoso   发布时间: 2011-07-14

啥兴趣？

作者: 2gua   发布时间: 2011-07-14

回复 2gua


    瓜兄是有兴趣呢？还是有兴趣呢？呵呵！

    我只是抛砖引玉， 想看到大佬们更简洁的方法

作者: yinyuemi   发布时间: 2011-07-14

这样
  1. use 5.012;

  3. my $str = "hello worlds ab abcdefgh";

  5. $str =~ s/\w/\*/g;

  7. my @a = split /\s+/, $str;

  9. my $cond = 1;
  10. while ($cond) {
  11.     $cond = 0;  # 全部字段都结束就退出
  12.     for (@a) {
  13.         my $c = chop;
  14.         $cond = 1 if $c ne '';
  15.         print ($c eq '' ? ' ' : $c);
  16.     }
  17.     say '';
  18. }
复制代码

作者: zhlong8   发布时间: 2011-07-14

这个不是打印条形图用的吗？之前写过个不过被我干掉改用 R 生成更漂亮的图表了

作者: zhlong8   发布时间: 2011-07-14

本帖最后由 yinyuemi 于 2011-07-14 09:52 编辑

回复 zhlong8


   感谢斑竹，虽然我没有5.012 的环境，不过，这个思路绝对是值得学习的，这个while用的太帅了

作者: yinyuemi   发布时间: 2011-07-14

回复 zhlong8


    我也不懂这个是干嘛的，从别地儿看到的，就贴到这里了

作者: yinyuemi   发布时间: 2011-07-14



QUOTE:
回复  zhlong8


   感谢斑竹，虽然我没有5.012 的环境，不过，这个思路绝对是值得学习的，这个while用 ...
yinyuemi 发表于 2011-07-14 09:47




    就用了个 say ''; 打印个换行

作者: zhlong8   发布时间: 2011-07-14

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net