多行正则匹配问题

sunfeng116

# Query_time: 0.000133  Lock_time: 0.000027 Rows_sent: 0  Rows_examined: 2
SET timestamp=1313127830;
DELETE FROM mysql.db WHERE Db='test' OR Db='test\_%';
# Time: 110812 13:45:16
# User@Host: root[root] @ localhost []
# Query_time: 0.276385  Lock_time: 0.000016 Rows_sent: 173620  Rows_examined: 173620
use log;
SET timestamp=1313127916;
select * from i_public_table;
# Time: 110812 13:46:35
# User@Host: root[root] @ localhost []
# Query_time: 0.000791  Lock_time: 0.000017 Rows_sent: 10  Rows_examined: 10
SET timestamp=1313127995;
select * from i_public_table limit 10;

怎么把其中的sql语句取出来呢？

十里稻花香

1. #!/usr/bin/perl
   
2. $a=<<DATA
   
3. # Query_time: 0.000133  Lock_time: 0.000027 Rows_sent: 0  Rows_examined: 2
   
4. SET timestamp=1313127830;
   
5. DELETE FROM mysql.db WHERE Db='test' OR Db='test\_%';
   
6. # Time: 110812 13:45:16
   
7. # User@Host: root[root] @ localhost []
   
8. # Query_time: 0.276385  Lock_time: 0.000016 Rows_sent: 173620  Rows_examined: 173620
   
9. use log;
   
10. SET timestamp=1313127916;
    
11. select * from i_public_table;
    
12. # Time: 110812 13:46:35
    
13. # User@Host: root[root] @ localhost []
    
14. # Query_time: 0.000791  Lock_time: 0.000017 Rows_sent: 10  Rows_examined: 10
    
15. SET timestamp=1313127995;
    
16. select * from i_public_table limit 10;
    
17. DATA
    
18. ;
    
19. $a=~s/^#.+\n//mg;
    

复制代码

freflying

my (%hash,$key,$value);
while (<>) {
   chomp;
   if (/^\#/) {
      $key = $_;
   } else {
      $value = $value . $_;
   }
   $hash {$key} = $value;
}

foreach (keys %hash) {
        my $sql = (split ";", $hash{$_})[-1];
        print "$sql;\n";
}

freflying

错了，更正一下：
my (%hash,$key,$value);
while (<>) {
   chomp;
   if (/^\#/) {
      $key = $_;
   } else {
      $value = $value . $_;
   }
   $hash {$key} = $value;
   $value = undef;
}

foreach (keys %hash) {
    if ($hash{$_}) {
            my $sql = $hash{$_};
                print "$sql;\n";
        }
}