PHP to Perl conversion

adavis

OK, let me start off by making it perfectly clear. I HATE PERL!

That being said, I'm converting a prefectly hedious PHP program that I didn't write to Perl. It reads a flat file and manipulates it a little, builds sql statements, and dumps it into a mySQL database. If it reads a line that says a certain thing, then I know I'm done and want to break out of my while loop. I know how to do this in PHP.

Does anyone know how to do it in Perl. I have opened before me, my lovely Camel Book and it's as clear as mud. I think it's a next statement, but that seems like it would just bounce you down to the bottom of the while loop for another iteration. I want to just quit. I'm done. There are about 20 more lines in the file after that, but if the line has a number followed by the word "Orders" then I'm done. Stop. Quit. Finished. Can you tell I've had a long day? My baby has a basketball game in about an hour, but I'll be back after that.

planetsim

Take a look at the last; operator its exactly the same as break in C, PHP etc.

adavis

that worked. Thanks. Now I need to search a string for a dollar sign. Perl freaks even when I try to put it in a variable. I keep telling myself that every other Friday I get money for this. 😉 . I could do this thing in PHP in about a half a day. It's going to take me at least a week in Perl because I'm wearing this camel book out. :queasy:

Weedpacket

Backslash it? I find that chucking a backslash at the problem tends to help. It changes the error message at least, and that's a kind of progress.

Elizabeth

Weedpacket wrote:
Backslash it? I find that chucking a backslash at the problem tends to help.

Good advice for not only coding, but life in general.

vaaaska

Weedpacket wrote:
Backslash it? I find that chucking a backslash at the problem tends to help. It changes the error message at least, and that's a kind of progress.

Elizabeth wrote:
Good advice for not only coding, but life in general.

Isn't 'Backslash' a type of kung fu?