Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: $* is no longer supported

by hippo (Abbot)
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.

Replies are listed 'Best First'.
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?
[Your Mother]: :P
[ambrus]: YourMother: my brother told me their cat wants to climb into the dishwasher if they leave the door open. Not when the dishwasher is started, but after it's done washing, because it's still warm and cats like warm.

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (12)
As of 2017-12-18 15:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (491 votes). Check out past polls.

    Notices?