Sponsored Content
Full Discussion: A bug in Perl regex
Top Forums Shell Programming and Scripting A bug in Perl regex Post 302497754 by cronc on Friday 18th of February 2011 02:07:15 AM
Old 02-18-2011
A bug in Perl regex

The regex
Code:
'ab' =~ /((\w+)(?{print defined $2 ? "\$2=$2\n" : "\$2 not defined\n"})){2}/;

outputs:
Code:
$2=ab
$2 not defined
$2=b

Why $2 not defined? I think, the regex here must print $2=a. Is it a bug?

Last edited by pludi; 02-18-2011 at 05:18 AM..
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

q with Perl Regex

For a programming exercise, I am mean to design a Perl script that detects double letters in a text file. I tried the following expressions # Check for any double letter within the alphabet /+/ # Check for any repetition of an alphanumeric character /\w+/ Im aware that the... (8 Replies)
Discussion started by: JamesGoh
8 Replies

2. Shell Programming and Scripting

Perl regex

I have got numbers like l255677 l376039 l188144 l340482 l440700 l254113 to match the numbers starting with '13' what would be the regex =~/13(.*)/ =======>This is not working .... But for user123,user657 regex =~/user(.*)/ ========>works Thanks for help..!! (7 Replies)
Discussion started by: trina_1
7 Replies

3. Shell Programming and Scripting

Converting perl regex to sed regex

I am having trouble parsing rpm filenames in a shell script.. I found a snippet of perl code that will perform the task but I really don't have time to rewrite the entire script in perl. I cannot for the life of me convert this code into something sed-friendly: if ($rpm =~ /(*)-(*)-(*)\.(.*)/)... (1 Reply)
Discussion started by: suntzu
1 Replies

4. UNIX for Dummies Questions & Answers

Perl Regex Help!!!

Hi, I get the following when I cat a file *.log xxxxx ===== dasdas gwdgsg fdsagfsag agsdfag ===== random data ===== My output should look like : If the random data after the 2nd ==== is null then OK should be printed else the random data should be printed. How do I go about this... (5 Replies)
Discussion started by: manutd
5 Replies

5. Programming

Perl regex

HI, I'm new to perl and need simple regex for reading a file using my perl script. The text file reads as - filename=/pot/uio/current/myremificates.txt certificates=/pot/uio/current/userdir/conf/user/gamma/settings/security/... (3 Replies)
Discussion started by: jhamaks
3 Replies

6. Programming

Perl regex

Hi Guys I have the following regex $OSRELEASE = $1 if ($output =~ /(Mac OS X (Server )?10.\d)/); output is currently Mac OS X 10.7.5 when the introduction of Mac 10.8 output changes to OS X 10.8.2 they have dropped the Mac bit so i changed the regex to be (2 Replies)
Discussion started by: ab52
2 Replies

7. Programming

Perl regex

Hello folks, Looking for a quick help on regex in my perl script. here's the string i want to parse and get the 2nd field out of it. $str = " 2013-08-07 12:29 Beta ACTIVE"; I want to extract 'Beta' out of this string. This string will keep on changing... (2 Replies)
Discussion started by: jhamaks
2 Replies

8. Shell Programming and Scripting

Perl, RegEx - Help me to understand the regex!

I am not a big expert in regex and have just little understanding of that language. Could you help me to understand the regular Perl expression: ^(?!if\b|else\b|while\b|)(?:+?\s+){1,6}(+\s*)\(*\) *?(?:^*;?+){0,10}\{ ------ This is regex to select functions from a C/C++ source and defined in... (2 Replies)
Discussion started by: alex_5161
2 Replies

9. Shell Programming and Scripting

Perl REGEX help

Experts - I found a script on one of the servers that I work on and I need help understanding one of the lines. I know what the script does, but I'm having a hard time understanding the grouping. Can someone help me with this? Here's the script... #!/usr/bin/perl use strict; use... (2 Replies)
Discussion started by: timj123
2 Replies
MB_REGEX_SET_OPTIONS(3) 						 1						   MB_REGEX_SET_OPTIONS(3)

mb_regex_set_options - Set/Get the default options for mbregex functions

SYNOPSIS
string mb_regex_set_options ([string $options = mb_regex_set_options()]) DESCRIPTION
Sets the default options described by $options for multibyte regex functions. PARAMETERS
o $options - The options to set. This is a string where each character is an option. To set a mode, the mode character must be the last one set, however there can only be set one mode but multiple options. Regex options +-------+-------------------------------+---+---+ |Option | | | | | | | | | | | Meaning | | | | | | | | +-------+-------------------------------+---+---+ | i | | | | | | | | | | | Ambiguity match on | | | | | | | | | x | | | | | | | | | | | Enables extended pattern form | | | | | | | | | m | | | | | | | | | | | | | | | | '.' matches with newlines | | | | | | | | | s | | | | | | | | | | | | | | | | '^' -> 'A', '$' -> '' | | | | | | | | | p | | | | | | | | | | | Same as both the m and s | | | | | options | | | | | | | | | l | | | | | | | | | | | Finds longest matches | | | | | | | | | n | | | | | | | | | | | Ignores empty matches | | | | | | | | | e | | | | | | | | | | | eval(3) resulting code | | | | | | | | +-------+-------------------------------+---+---+ Regex syntax modes +-----+----------------------------+---+---+ |Mode | | | | | | | | | | | Meaning | | | | | | | | +-----+----------------------------+---+---+ | j | | | | | | | | | | | Java (Sun java.util.regex) | | | | | | | | | u | | | | | | | | | | | GNU regex | | | | | | | | | g | | | | | | | | | | | grep | | | | | | | | | c | | | | | | | | | | | Emacs | | | | | | | | | r | | | | | | | | | | | Ruby | | | | | | | | | z | | | | | | | | | | | Perl | | | | | | | | | b | | | | | | | | | | | POSIX Basic regex | | | | | | | | | d | | | | | | | | | | | POSIX Extended regex | | | | | | | | +-----+----------------------------+---+---+ RETURN VALUES
The previous options. If $options is omitted, it returns the string that describes the current options. SEE ALSO
mb_split(3), mb_ereg(3), mb_eregi(3). PHP Documentation Group MB_REGEX_SET_OPTIONS(3)
All times are GMT -4. The time now is 12:43 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy