10 lines
189 B
Perl
10 lines
189 B
Perl
#!/usr/bin/perl
|
|
|
|
$txt="ab\ncd";
|
|
$txt =~ /a.*c/ms;
|
|
print "===match start===\n$&\n===match end===\n";
|
|
|
|
$txt="ab\ncd";
|
|
$txt =~ /a[\d\D]*c/m;
|
|
print "===match start===\n$&\n===match end===\n";
|