新人求助！！！求真心帮忙的

rubyish

第四:

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. 
   
4. my $VAR = {
   
5.     'elements' => {
   
6.         'element001' => {
   
7.             'ename'   => 'carbon',
   
8.             'aweight' => 12.010,
   
9.             'symbol'  => 'C',
   
10.             'mpointC' => 3500,
    
11.         },
    
12.         'element002' => {
    
13.             'ename'   => 'oxygen',
    
14.             'aweight' => 15.999,
    
15.             'symbol'  => 'O',
    
16.             'mpointC' => -218.4,
    
17.         },
    
18.         'element003' => {
    
19.             'ename'   => 'aluminum',
    
20.             'aweight' => 26.981,
    
21.             'symbol'  => 'Al',
    
22.             'mpointC' => 660,
    
23.         },
    
24.         'element004' => {
    
25.             'ename'   => 'neon',
    
26.             'aweight' => 20.179,
    
27.             'symbol'  => 'Ne',
    
28.             'mpointC' => -248.6,
    
29.         },
    
30.         'element005' => {
    
31.             'ename'   => 'fluorine',
    
32.             'aweight' => 18.998,
    
33.             'symbol'  => 'F',
    
34.             'mpointC' => -219.62,
    
35.         }
    
36.     }
    
37. };
    
38. my $e = $VAR->{elements};
    
39. for ( sort {$e->{$a}{ename} cmp  $e->{$b}{ename} } keys $e){
    
40.     say "Element: $e->{$_}{ename}";
    
41.     say "Symbol : $e->{$_}{symbol}";
    
42.     say "Atomic weight: $e->{$_}{aweight}";
    
43.     say "Melting point: $e->{$_}{mpointC} (Celsius)";
    
44.     say 'Melting point: ', 9/5 * $e->{$_}{mpointC} + 32, ' (Fahrenheit)';
    
45.     say '*' x 35;
    
46. }

复制代码

rubyish

第二:

1. #!/usr/bin/perl
   
2. print "Enter lines of words:\n";
   
3. for (<>) {
   
4.     my @a = split;
   
5.     print "@a[5,4,2,3]\n";
   
6. }

复制代码

babyma1109

感谢大神！
我真心给跪了。。。
写的那么牛。
比我的简洁了不是一点半点。。
话说加下QQ吧。。。或者留个邮箱甚么的也行。。
回复 13# rubyish


   

rubyish

babyma1109 发表于 2013-03-22 07:11
或者留个邮箱甚么的也行。。

留个邮箱:{:3_203:} {:3_203:}

babyma1109

......好吧
您老真幽默的说
回复 15# rubyish