母亲要我帮忙做个题。

qing

最初由 javalee 发表
+ - * / 都用到了吧~~

没有用括号的话。。。

devel

最初由 javalee 发表
+ - * / 都用到了吧~~

不需要都用到的。。。

KornLee

最初由 qing 发表
没有用括号的话。。。

|/home/javalee|echo $((1+2*3*4+5+6+7+8+9))
60

libinary

写了一个，好像可以用，

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. @str = ('1','','2','','3','','4','','5','','6','','7','','8','','9');
   
5. @op = ('+','-','*','/');
   
6. bl(1);
   
7. 
   
8. sub bl{
   
9.   my ($n, $i, $s);
   
10.   $n = $_[0];
    
11.   for($i = 0; $i < 4; $i++){
    
12.     $str[$n] = $op[$i];
    
13.     if($n == 15){
    
14.       $s = join('', @str);
    
15.       if(eval($s) == 60){
    
16.         print $s, "\n";
    
17.       }
    
18.     }else{
    
19.       bl($n + 2);
    
20.     }
    
21.   }
    
22. }
    

复制代码

libinary

我这里有个问题，如何替换字符串中的一个字符？
象C语言可以用str[1] = 'x';，perl里怎么搞呀？
用$str[1]肯定不行，这个是@str的第二个元素，刚才就是这个小问题把我搞住了半天，只好用@str、join解决了。
奇怪，这个问题我怎么好像以前没遇到呢？

ltkun

qiang!

devel

谢谢libinary,还有....,没想到有这么多的答案。我也碰到你的问题，
还有请问ltkun的"qiang"是什么意思？偶看不懂?/

libinary

qiang == 强

perloicq

最初由 libinary 发表
我这里有个问题，如何替换字符串中的一个字符？
象C语言可以用str[1] = 'x';，perl里怎么搞呀？
用$str[1]肯定不行，这个是@str的第二个元素，刚才就是这个小问题把我搞住了半天，只好用@str、join解决了。
奇怪，这个问题我怎么好像以前没遇到呢？

$ perl -e '$x="aaaaaa";substr($x, 1, 1) = "z"; print "$x\n"'
azaaaa

libinary

好，谢谢perloicq