Lines Matching refs:regex
742 my $regex = $del;
746 $regex .= $1.$sl.$del;
748 return $regex;
750 $regex .= $3;
819 my( $regex, $subst, $path, $global, $print, $nmatch, $fl ) = @_;
822 $regex =~ s/\n/\\n/g;
831 while( --\$n && ( \$s = m ${regex}g ) ){}
832 \$s = ( substr( \$_, pos() ) =~ s ${regex}${subst}s ) if \$s;
837 { \$s = s ${regex}${subst}s${global};
1245 my $regex = stripRegex( $del, \$cmd );
1246 if( defined( $regex ) ){
1247 $addr1 = 'm '.bre2p( $del, $regex, $fl ).'s';
1250 Warn( "malformed regex, 1st address", $fl );
1262 my $regex = stripRegex( $del, \$cmd );
1263 if( defined( $regex ) ){
1264 $addr2 = 'm '. bre2p( $del, $regex, $fl ).'s';
1267 Warn( "malformed regex, 2nd address", $fl );
1350 my $regex = stripRegex( $del, \$cmd );
1351 if( ! defined( $regex ) ){
1356 $regex = bre2p( $del, $regex, $fl );
1371 if( ! defined( $regex ) ){
1393 $arg = makes( $regex, $subst,
1911 =item malformed regex, 1st address
1913 =item malformed regex, 2nd address