LinuxSir.cn,穿越时空的Linuxsir!

 找回密码
 注册
搜索
热搜: shell linux mysql
12
返回列表 发新帖
楼主: devel

母亲要我帮忙做个题。

[复制链接]
发表于 2004-2-22 19:59:25 | 显示全部楼层
最初由 javalee 发表
+ - * / 都用到了吧~~
没有用括号的话。。。
 楼主| 发表于 2004-2-22 20:15:45 | 显示全部楼层
最初由 javalee 发表
+ - * / 都用到了吧~~

不需要都用到的。。。
发表于 2004-2-22 20:22:28 | 显示全部楼层
最初由 qing 发表
没有用括号的话。。。

|/home/javalee|echo $((1+2*3*4+5+6+7+8+9))
60
发表于 2004-2-22 21:09:07 | 显示全部楼层
写了一个,好像可以用,

  1. #! /usr/bin/perl -w

  2. @str = ('1','','2','','3','','4','','5','','6','','7','','8','','9');
  3. @op = ('+','-','*','/');
  4. bl(1);

  5. sub bl{
  6.   my ($n, $i, $s);
  7.   $n = $_[0];
  8.   for($i = 0; $i < 4; $i++){
  9.     $str[$n] = $op[$i];
  10.     if($n == 15){
  11.       $s = join('', @str);
  12.       if(eval($s) == 60){
  13.         print $s, "\n";
  14.       }
  15.     }else{
  16.       bl($n + 2);
  17.     }
  18.   }
  19. }
复制代码
发表于 2004-2-22 21:13:51 | 显示全部楼层
我这里有个问题,如何替换字符串中的一个字符?
象C语言可以用str[1] = 'x';,perl里怎么搞呀?
用$str[1]肯定不行,这个是@str的第二个元素,刚才就是这个小问题把我搞住了半天,只好用@str、join解决了。
奇怪,这个问题我怎么好像以前没遇到呢?
发表于 2004-2-22 21:33:32 | 显示全部楼层
qiang!
 楼主| 发表于 2004-2-22 21:40:13 | 显示全部楼层
谢谢libinary,还有....,没想到有这么多的答案。我也碰到你的问题,
还有请问ltkun的"qiang"是什么意思?偶看不懂?/
发表于 2004-2-22 21:41:36 | 显示全部楼层
qiang == 强
发表于 2004-2-27 12:25:28 | 显示全部楼层
最初由 libinary 发表
我这里有个问题,如何替换字符串中的一个字符?
象C语言可以用str[1] = 'x';,perl里怎么搞呀?
用$str[1]肯定不行,这个是@str的第二个元素,刚才就是这个小问题把我搞住了半天,只好用@str、join解决了。
奇怪,这个问题我怎么好像以前没遇到呢?


$ perl -e '$x="aaaaaa";substr($x, 1, 1) = "z"; print "$x\n"'
azaaaa
发表于 2004-2-27 19:14:07 | 显示全部楼层
好,谢谢perloicq
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表