請(qǐng)教一個(gè)標(biāo)量轉(zhuǎn)換為數(shù)組的問題

小漁村

請(qǐng)教各位大俠：

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. sub read_file
   
4. {
   
5.         my (%conf_hash);
   
6.         open(CONFFILE, "1.conf") || die "connot open 1.conf: $!";
   
7.         while (<CONFFILE>) {
   
8.                 next if (m/^[ \t]*$/);        
   
9.                 chomp;                                      
   
10.                 s/#.*//;                                      
    
11.                 s/^[\b\t]+//;                        
    
12.                 %conf_hash = ( %conf_hash, split(/=/) );     
    
13.         }
    
14. return %conf_hash;
    
15. }
    
16. 
    
17. my %conf = read_file();
    
18. my $man = "$conf{man}";
    
19. my @man2 = $man;
    
20. foreach (@man2)
    
21. {
    
22.             print "$_\n";
    
23. }
    

復(fù)制代碼

----------------------------------------------------
$  ./1.pl
$ "張三","李四","王五"
$ cat 1.conf ###配置文件
#配置文件
man="張三","李四","王五"
----------------------------------------------------
請(qǐng)問有沒有辦法將從配置文件讀出來的內(nèi)容 賦予給一個(gè)數(shù)組呢？或以數(shù)組形式展現(xiàn)。謝謝

wfnh

用split函數(shù)··

yybmsrs

什么樣的數(shù)組形式呢？

小漁村

就是簡(jiǎn)單的數(shù)組形式就好了

split具體應(yīng)該怎么用呢 我看看哈

珞水的大叔

對(duì)啊，哈希不是很好么，可以很方便的根據(jù)配置項(xiàng)的名稱取到對(duì)應(yīng)的值

Perl_Er

回復(fù) 1# 小漁村


    可以用split，正則表達(dá)式等

小漁村

回復(fù) 6# Perl_Er


    但還是不怎么明白 split怎么用

my @man2 = ($man,split(/,/));
這樣好像不行

小漁村

my @man2 = split(/\,/, $man);
這樣好了 暈

Perl_Er

回復(fù) 8# 小漁村


    http://perldoc.perl.org/5.10.0/index.html