Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: $* is no longer supported

by hippo (Canon)
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?

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2018-10-20 16:46 GMT
Find Nodes?
    Voting Booth?
    When I need money for a bigger acquisition, I usually ...

    Results (119 votes). Check out past polls.