正则单行和多行处理

m 将待匹配串视为多行,^符号匹配字符串的起始或新的一行的起始;$符号匹配任意行的末尾。

以下例只匹配第一行为a,否则无匹配；

sh-3.2$ cat a6.pl 
$line='a
b
c';
if ($line =~ /^(.*)$/m){print $&."\n"};
sh-3.2$ perl a6.pl 
a

当成多行处理,只能匹配到a

$& ---匹配的内容


s 将待匹配串视为单行。可以匹配\n

sh-3.2$ cat a6.pl 
$line='a
b
c';
if ($line =~ /^(.*)$/s){print $&."\n"};
sh-3.2$ perl a6.pl 
a
b
c

-----------------------------------------------------------------------------------------------------------

/s  把多行当成单行处理

sh-3.2$ cat a5.pl
#!/usr/bin/perl   
use strict;
use DBI;
my $dbName = 'orcl';  
my $dbUser = 'test';  
my $dbUserPass = 'test';  
my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database ";
if ($#ARGV <0){
   print "请输入一个参数\n";
  exit(-1);
}
my $var=$ARGV[0];
my $sql = $var;

if ($var =~ /select\s+(.+)\s+from\s+.*/i