Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Regex (find an * after a digit)

by The Mad Hatter (Priest)
on Feb 06, 2004 at 02:56 UTC ( #326972=note: print w/ replies, xml ) Need Help??


in reply to Regex (find an * after a digit)

Though I know little in the way of Unicode, it seems to me that somewhere Perl thinks something in your regex is trying to specify a UTF-8 character when you aren't; are you using UTF-8 other places in the script? What version of perl are you using?

Just as a side note, {1,} can be written more succintly as +, like thus: /\d+\*/


Comment on Re: Regex (find an * after a digit)
Select or Download Code
Re: Re: Regex (find an * after a digit)
by Anonymous Monk on Feb 06, 2004 at 03:08 UTC
    It thinks so, but I'm not using Unicode anywhere. Here's the whole script.
    #!/usr/bin/perl # # use strict; use warnings; my $file = "input.txt"; open ( FILE, $file ) || die "Can't open $file $!"; while ( <FILE> ) { chomp; if ( $_ = /\d+\*/ ) { print "$_\n"; } }
    As for the \d{1,} -- I was actually going to put an upper limit on it at one point, so just wrote it that way. For now the + will do though.

    Update - I tried on another machine, and it works, so it's definitely machine related. Both machines are running Perl v5.8.0 Cheers
      Do you get the same error if you use =~ instead of = ?
      From perl581delta:
      =head2 UTF-8 On Filehandles No Longer Activated By Locale In Perl 5.8.0 all filehandles, including the standard filehandles, were implicitly set to be in Unicode UTF-8 if the locale settings indicated the use of UTF-8. This feature caused too many problems, so the feature was turned off and redesigned: see L</"Core Enhancement +s">.
      Consider upgrading, or switch to a non-UTF8 locale, or binmode FILE.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://326972]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2014-11-22 05:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (118 votes), past polls