Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: $* is no longer supported

by hippo (Deacon)
on Oct 30, 2013 at 16:58 UTC ( #1060396=note: print w/ replies, xml ) Need Help??


in reply to $* is no longer supported

I would try removing (or commenting out if you prefer) the $* = 1 line and add the /m modifier to the match inside the last while. That's only a guess but it would make sense for the . not to match the newline here, I think.

while (/(^|(\r?\n))[^0-9]*((\d\d\d).*)$/mg) {

Back your script up before making any changes, of course.

How long have you had that script? It is in quite an old style.


Comment on Re: $* is no longer supported
Select or Download Code
Re^2: $* is no longer supported
by nootkan (Initiate) on Oct 30, 2013 at 17:58 UTC

    Thanks guys, I was afraid of that. This isn't my script it was open source (webadverts) that has long since been abandoned. It worked fine on perl 5.8.8 on my old server so I guess I'll have to roll back to that version. If I didn't have hundreds of clients using the exchange I would just look for another one and start over.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (10)
As of 2014-08-21 13:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (135 votes), past polls