一段perl程序求解！

xiaofanbbk

> Hi!
>
> I work in a library and i need to have several fields in one line
>
> Example
>
> I have this
>
> =995  \\$xPR$wLivre
> =995 \\$bECAM$cECAM
> =995  \\$n
> =995  \\$oDisponible
> =995  \\$kG1 42171
>
>
> and i want in one line
>
> =995 \\$bECAM$cECAM$kG1 42171$n$oDisponible$xPR$wLivre
>

Using Dr., Ruud's data. This is another way of doing it:

1. use warnings;
   
2. use strict;
   
3. 
   
4. my %data_collection;
   
5. 
   
6. while (<DATA>) {
   
7.     chomp;
   
8.     my ( $key, $value ) = split /\s+/, $_, 2;
   
9.     push @{ $data_collection{$key} }, $value;
   
10. }
    
11. 
    
12. print $_, " ", @{ $data_collection{$_} }, $/ for keys %data_collection;
    
13. 
    
14. __DATA__
    
15. 
    
16. =995  \\$xPR$wLivre
    
17. =995 \\$bECAM$cECAM
    
18. =995  \\$n
    
19. =995  \\$oDisponible
    
20. =995  \\$kG1 42171
    
21. zz 1
    
22. zz  2
    
23. zz   3

复制代码

求大神 解释下push 这行中的@{} ，还有顺便解释下$/!!!

ths !!!

cecial

%data_collection是一个hash，每个key对应的value是一个array的引用

只是一个红薯

key1->value1{
                 \\$xPR$wLivre

                 \\$bECAM$cECAM

                 \\$n

                 \\$oDisponible

                 \\$kG1 42171
                     }
key2->value2{
                   1

                   2

                   3
                  }
“$/” 和 “$\”分别是输入输出记录分隔符。当你在读或者写数据时，他们主要控制用什么来定义一个“记录”。
当你第一次学习perl，第一次知道文件输入操作符的时候，也许你会被告知“<FILE>”就是从一个文件读
入一行数据，而读入的每一行都包括一个新行字符（“\n”）。其实你所知道的这些并不完全是真的，那只是一个很特殊的情况。实际上文件输入操作符（“<>”）读数据后会包含一个在“$/”中指定的文件输入分隔符。让我们来看一个例子：

假设你有一个文本文件，内容是些有趣的引文或者一些歌词或者一些别的什么东西。比如类似下面的内容：
代码


    This is the definition of my life
    %%
    We are far too young and clever
    %%
    Stab a sorry heart
    With your favorite finger



在这里有三段被一行“%%”分隔的引文。那么我们该如何从这个文件中一次读取一段引文呢。（译者注：这一段引文可是一行也可以是几行，比如例子中的第一段和第二段引文都是一行，而第三段引文是2行）
其中一个解决方法就是，一次从文件中读取一行，然后检查读入的行是否是“%%”。因此我们需要声明一个变量用来保存每次读入的数据，当遇到“%%”后重新组合先前读入的数据为一段完整的引文。哦，你还需要记得处理最后一段引文因为它最后没有“%%”。
这样的方法太过于复杂，一个简单的方法就是更改“$/”变量的内容。该变量的默认值是一个新行字符（“\n”），这也就是为什么“<>”
操作符在读取文件内容时是一次读一行。但是我们可以修改这一变量内容为我们喜欢的任意值。比如：

代码


    $/ = "%%\n";

    while (<QUOTE>) {
    chomp;
    print;
    }



现在我们每次调用“<>”，perl会从文件句柄中一次读取数据直到发现 “%%\n”为止。（不是一次读一行了）。
因此，当你用chomp函数来去掉读取数据的行分隔符时，就会删除“$/”变量中指定的分隔符了。在上例中经过chomp函数处理后的数据都会将
%%\n”删除。
回复 1# xiaofanbbk


   

xiaofanbbk

回复 3# 只是一个红薯


          非常感谢  没想到你解释的这么详细，彻底搞明白了$/的用法。

rubyish

明白了$/的用法。非常感谢