regex problem (again)

sweepy838 has asked for the wisdom of the Perl Monks concerning the following question:

$input = "xxxx aaaa bbbbb";
($txt) = $input =~ /\S{5}(.+)(?{length($input);})/;
chomp;
print $txt;
[download]

output should be "aaaa bbbbb" with no space at the beginning, but i get the space, and i know it has something to do with the \S that means any non-space character.. but it doesnt work without it either. help? thanks again, i am trying :p

Original content restored above by GrandFather

edit: jeez it's always after i post that i find the problem, replace the \S with a dot.. problem solved

Comment on regex problem (again) Download Code

Replies are listed 'Best First'.
Re: regex problem (again) by JavaFan (Canon) on Apr 30, 2012 at 06:22 UTC
Use `/\S{4}\s(.+)/`. I don't understand the `(?{length($input);})` part -- it will always true unless `$input` is the empty string. BTW, the regexp as given did not match, so $txt did not start with a space.	[reply] [d/l] [select]
Re^2: regex problem (again) by uday_sagar (Scribe) on Apr 30, 2012 at 06:45 UTC
Hi sweepy, Just replace S (upper case) with s (lower case) `$input = "xxxx aaaa bbbbb"; ($txt) = $input =~ /\s{5}(.+)(?{length($input);})/; chomp; print $txt;` [download] This is working!	[reply] [d/l]
Re^3: regex problem (again) by JavaFan (Canon) on Apr 30, 2012 at 15:11 UTC
No, it's not: `my $input = "xxxx aaaa bbbbb"; my ($txt) = $input =~ /\s{5}(.+)(?{length($input);})/; print $txt, "\n"; __END__ Use of uninitialized value $txt in print at ?? line ??.` [download]	[reply] [d/l]