新人求助�。�！求真心幫忙的

babyma1109

新人， 然后有習(xí)題不懂得，求大神幫助�。�
第一個(gè)問題： 怎么把my $Fe l lows = "despi:55008, pat:55025, serge:55028, norm:55024, " .
"gerd:55011, kris:55018" ; 變成
Number of fellows: 6
My fellows list:
1. despi 55008
2. gerd 55011
3. kris 55018
4. norm 55024
5. pat 55025
6. serge 55028

第二個(gè)問題：Enter lines of words:
Come let us hasten to a higher plane
Where dyads tread the fairy fields of Venn
Their indices bedecked from one to n
Commingled in an endless Markov chain
a to us hasten
fields fairy tread the
to one bedecked from
chain Markov an endless

This command prints four words of each line in the order: fourth, third,
rst and second. The arguments of a command are stored in the special
list @ARGV. The input on a LINUX machine was terminated by a Ctrl-D.
On Windows use a Ctrl-Z.

第三個(gè)問題：怎么樣寫一個(gè)這樣的程序呢？
Enter your initial deposit: 2500
Enter the annual interest rate: 0.05
How many years you do not want to touch the money: 5
*****************************************************
After 0 years you have: $2500
After 1 years you have: $2625
After 2 years you have: $2756.25
After 3 years you have: $2894.0625
After 4 years you have: $3038.765625
After 5 years you have: $3190.70390625


第四個(gè)問題：
my $VAR = {
'elements' => {
'element001' => {
'ename' => 'carbon' ,
'aweight' => 1 2 . 0 1 0 ,

'symbol' => 'C' ,
'mpointC' => 3500 ,
},
'element002' => {
'ename' => 'oxygen' ,
'aweight' => 15.999 ,
'symbol' => 'O' ,
'mpointC' => -218.4 ,
} ,
'element003' => {
'ename' => 'aluminum' ,
'aweight' => 26 .981,
'symbol' => 'Al' ,
'mpointC' => 660 ,
} ,
'element004' => {
'ename' => 'neon' ,
'aweight' => 20.179,
'symbol' => 'Ne' ,
'mpointC' => -248.6 ,
} ,
'element005' => {
'ename' => 'fluorine' ,
'aweight' => 18.998 ,
'symbol' => 'F' ,
'mpointC' => -219.62,
}
}
}；
使用foreach循環(huán)語句，用Fahrenheit_value = (9/5) * Celsius_value + 32這個(gè)公式，寫出一個(gè)這樣的東西
Element: aluminum
Symbol : Al
Atomic weight: 26.981
Melting point: 660 (Celsius)
Melting point: 1220 (Fahrenheit)
*************************
Element: carbon
Symbol : C
Atomic weight: 12.01
Melting point: 3500 (Celsius)
Melting point: 6332 (Fahrenheit)
*************************
Element: fluorine
Symbol : F
Atomic weight: 18.998
Melting point: -219.62 (Celsius)
Melting point: -363.316 (Fahrenheit)
*************************
Element: neon
Symbol : Ne
Atomic weight: 20.179
Melting point: -248.6 (Celsius)
Melting point: -415.48 (Fahrenheit)
*************************
Element: oxygen
Symbol : O
Atomic weight: 15.999
Melting point: -218.4 (Celsius)
Melting point: -361.12 (Fahrenheit)
*************************


這個(gè)有點(diǎn)多，可能也沒有說清楚，
不過真的不知道怎么辦了，只好求助大家。
集思廣益啊，我也在看小駱駝那本書呢，哎�。�！
求各位大神幫助�。。�！

ypqfyf

前三題參考小駱駝書，最后一題看大駱駝書第9章

rubyish

感覺好難{:3_188:}

第一:

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. 
   
4. my $Fellows =
   
5.     "despi:55008, pat:55025, "
   
6.   . "serge:55028, norm:55024, "
   
7.   . "gerd:55011, kris:55018";
   
8. 
   
9. my @f = grep s/:/  /, sort split ', ', $Fellows;
   
10. my $n = 1;
    
11. say 'Number of fellows: ' . @f;
    
12. say 'My fellows list:';
    
13. say $n++, ". $_" for @f;

復(fù)制代碼

babyma1109

哈 能有直觀的回復(fù)是最好不過的了。。。。回復(fù) 2# ypqfyf


  

babyma1109

貌似跟老師教的不太一樣。不過也能成功�。。。√�感謝了 話說后面幾個(gè)還在看書 有神嗎見解咩回復(fù) 3# rubyish


   

ypqfyf

回復(fù) 5# babyma1109


    3樓已經(jīng)寫的差不多了，你自己內(nèi)插一下輸出就和題目上的一樣了，say就和Java里的println差不多。

ypqfyf

回復(fù) 5# babyma1109


    才發(fā)現(xiàn)，你復(fù)制的時(shí)候沒有把格式給復(fù)制過來，所以根據(jù)你的題目，3樓是完全正確的。。。

rubyish

第三個(gè):

1. #!/usr/bin/perl
   
2. print 'Enter your initial deposit: ';
   
3. my $d = <>;
   
4. print 'Enter the annual interest rate: ';
   
5. my $r = <>;
   
6. print 'How many years you do not want to touch the money: ';
   
7. my $y = <>;
   
8. 
   
9. chomp( $d, $r, $y );
   
10. print '*' x 53, "\n";
    
11. 
    
12. for ( 0 .. $y ) {
    
13.     print "After $_ years you have: \$$d\n";
    
14.     $d *= 1 + $r;
    
15. }

復(fù)制代碼

babyma1109

對不起你。。。。不過能不能加下QQ啊 422653644.。。。 有問題可以直接問你
回復(fù) 8# rubyish


   

babyma1109

說多了都是淚。。。
大神， 你就是我的大救星。。時(shí)間有點(diǎn)緊迫
回復(fù) 9# babyma1109