Perl scripting

[Rebocide]

I been thinking bout using perl or just something besides vb but i dont wanna commit to something i won't really get into.. Is there a site with some good information and a break down of perl i can check out? Like i said i dont wanna commit and get into it if i think it just dont work for me.

[Eglin]

Originally Posted by Rebocide

I been thinking bout using perl or just something besides vb but i dont wanna commit to something i won't really get into.. Is there a site with some good information and a break down of perl i can check out? Like i said i dont wanna commit and get into it if i think it just dont work for me.

google: Searched the web for perl tutorial. Results 1 - 10 of about 1,050,000. Search took 0.09 seconds.

All Perl dists come with core language references. The Activestate bundled docs have a fair amount of info. about using Windows specifics (using Perl in IIS, doing COM, WSH, etc), which would probably be useful to a person trying to move from vb. Any module more than 5 lines contains embedded docs that can be read using the perldoc function. These are very terse, though, and probably won't be very useful until you get to know the language a bit.

If you had more specific questions, like, "where can I look for x" or "what is a good book for x", then I think I could help a little bit more, but as it is, I don't really know what to recommend. Some people can just look at the included language reference and be good to go (or worse yet, the bnf grammar!). Others need a library of books that hold your hand and walk you through several example programs. How did you learn VB?

I can say that I, personally, think that the camel and llama books are a bit overrated, since I believe that the bundled docs provide equally useful (and oft times more current) referential material. The book that I used to recommend most often (back when I still recommended learning Perl!) was "Teach yourself Perl in 21 Hours" or something like that. I'm 99% sure it was "hours" and not "days," which also exists, I think. The book was designed to guide your progress through the language with a number of chapters each small enough to be digested within an hour. The author (sorry, I can't remember who) broke the language down exceptionally well, choosing good points of division and good order of introduction. Each chapter culminated in one or more examples that used the technologies discussed so far. There might've even been exercises/questions for further study at the end of each chapter (can't remember... sorry).

[mollymillions]

Some info regarding writing quests in Perl script (alot of which would be obvious to some). Refer to Eglin's posts for the low-down on embedded Pearl.
I have been using 5.2 DR1. Some of my observations may be incorrect, I welcome corrections.

-Perl script quest files must have a .pl extension.

-Any character can be used in the string for a Say command, although commas will cause concatenation problems (I would ignore this issue at present, as it would be fair to assume that this problem will be resolved in future releases).

-There must be only one occurrence of any particular event in a quest file (the length of code used in an event does not seem to be limited).

-$itemcount, and other commands, use a hash lookup and must use brackets {} instead of parenthesis () to contain the argument/s.

-A file can be parsed with perl.exe to locate errors, although this will not identify all possible problems with quest file.

-To reload a zone's quests, you need stop and restart the zone, using #reloadqst, zoning and re-entering the zone, or camping and re-entering the zone will not necessarily reload modified quest files.

-Working example:

sub EVENT_SAY {
if($text=~/Hail/i) {
quest::say("Greetings. I am Puab Closk. Master of the Ashen Order. Our home is your home, friend. Feel free to stay as long as you like. Learn our ways as many have done in the past. To fight like the tiger and strike like the cobra are your goals. ");
}
if($text=~/What are treant fist/i) {
quest::say("I have these items, and will gift them to any [monk of great skill]");
}
if($text=~/I am a monk of great skill/i) {
quest::say("Then you shall aid our family. My former pupil [Clawfist] has been banished by his people. You will go to him and hand him this token as proof of your origin. He shall be expecting you.");
quest::summonitem("12369");
}
if($text=~/Who is Clawfist/i) {
quest::say("Clawfist is a Kerran, a catman. He braved the dangers of Norrath to reach the Ashen Order. He sought knowledge of our disciples. He learned well.");
}
if($text=~/Where is Clawfist/i) {
quest::say("Clawfist has been banished by the Kerrans of Odus. Where they have sent him I am unsure"); }
}
sub EVENT_ITEM {
if ($itemcount{28055} == 1 ) {
quest::say("You have performed a great service to one who is your brother. Your loyalty shines brightly, as does your skill. Take the Treant fists. They are yours now.");
quest::summonitem("12344");
quest::exp("100"); }
}
#END of FILE Zone:freportw ID:4008 -- Puab_Closk

[Kroeg]

The above example contains commas within statements.. this will not work, and will smoosh your text together in one line. Simply removing commas (with something like "Inforapid fast text replacer" you can do this quickly)

[mollymillions]

Originally Posted by mollymillions

-Any character can be used in the string for a Say command, although commas will cause concatenation problems (I would ignore this issue at present, as it would be fair to assume that this problem will be resolved in future releases).

[Kroeg]

I know, i'm just used to it by now to notice that instantly