perl语法错误？

yilongyansha

1. use strict;
   
2. use warnings;
   
3. use utf8;
   
4. 
   
5. open(FILE,"<:encoding(UTF-8)","D:/test1.txt") or die("Can't open test1.txt");
   
6. 
   
7. my (%hash1,%hash2);
   
8. my ($data1,$data2);
   
9. my $count = 0;
   
10. 
    
11. while(my $test = <FILE>){
    
12.   #中文
    
13.   my $word1 = "中文";
    
14.   if($test =~ /(\d)(\d)(\d)(\d)(\d)(\d)$word1/){
    
15.       $data1 = ($5)($6)($3)($4)($1)($2);      #不知道可不可以这样写
    
16.       $hash1{$data1} = $test;
    
17.   }
    
18. 
    
19.   #英语
    
20.   my $word2 = "英语";
    
21.   if($test =~ /(\d)(\d)(\d)(\d)(\d)(\d)$word2/){
    
22.       $data2 = ($5)($6)($3)($4)($1)($2);
    
23.       $hash2{$data2} = $test;
    
24.   }
    
25. }
    
26. 
    
27. foreach my $keyword1 (sort keys(%hash1)){
    
28.   foreach my $keyword2 (sort keys(%hash2)){
    
29.     if($keyword1 eq $keyword2){
    
30.         $count++;
    
31.     }
    
32.   }
    
33. }
    
34. print "count: $count\n";
    
35. close FILE;

复制代码

上面的代码报错：

1. syntax error at D:/hashtest.pl line 15, near ")("
   
2. syntax error at D:/hashtest.pl line 22, near ")("
   
3. Execution of D:/hashtest.pl aborted due to compilation errors.

复制代码

上面的代码不知道哪里出错了

jason680

回复 1# yilongyansha

$data1 = ($5)($6)($3)($4)($1)($2);

change to

$data1 = "($5)($6)($3)($4)($1)($2)";
or
$data1 = "$5$6$3$4$1$2";

   
BTW:

if($test =~ /(\d\d)(\d\d)(\d\d)$word1/){
    $data1 = "$3$2$1";    # or "$3,$2,$1"

yilongyansha

回复 2# jason680

谢谢，按照你说的修改搞定了