Re: input web page question

as no meaning to me... don't know what it does - Original Message - From: "Chris Devers" <[EMAIL PROTECTED]> To: "Luinrandir" <[EMAIL PROTECTED]> Cc: Sent: Wednesday, October 12, 2005 7:05 PM Subject: Re: input web page question > On Wed, 12 Oct 20

Re: input web page question

there is no code yet.. i will write the code. i need the one line that get the web page $Input=?? answers like your suck.. why do you bother. - Original Message - From: "Chris Devers" <[EMAIL PROTECTED]> To: "Luinrandir" <[EMAIL PROTECTED]> Cc: Sen

input web page question

I know this question has been asked before. I have done a search on thelist and the web.. I can't find it.. thought i saved it.. help? how do a capture a web page to a var so I can strip the html? Lou -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTEC

Re: Package require question again

- Original Message - From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]> To: "Luinrandir" <[EMAIL PROTECTED]> Cc: Sent: Monday, September 19, 2005 6:43 AM Subject: Re: Package require question again > >my $g = $main::{$Player{Location} . &

Package require question again

I want to thank everyone who has helped me with this. and I'm trying to remember to bottom post ok I have the program working again. but how do I get a var from the package? At the time you are reading this I am still experimenting wih the following: the package has this line in it. $Options="B

Re: Problem with package

there must be a problem with my web host. cause now I can't even run the program. Lou - Original Message - From: "Charles K. Clarkson" <[EMAIL PROTECTED]> To: Sent: Thursday, September 15, 2005 6:49 PM Subject: RE: Problem with package > Luinrandir <mail

Why is my package executing everything!

My package is executing ALL subroutines when required? why? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Problem with package

package Inn; BEGIN {} END {} return 1; An error comes up when I include the END{} but not the BEGIN{} any clues? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Why wont this work? Package require question

> but what if I want to pass a var? then > $glob->($foo,$bar); > ? Yes sir.. we have a winner But I still have no clue as to why this works... esp. $glob->(); just looked in my book.. am I dereferencing a reference? but hey! thanks anyway! Lou $Player{Location}="Inn"; $Player{Actio

Re: Why wont this work? Package require question

I also got this to work: $Player{Location}="Inn"; $Player{Action}="Sell"; require "$Player{Location}.pl"; # this code calls on the package # my $glob = $main::{$Player{Location} . "::"}{$Player{Action}}; # $glob->(); #

Re: Why wont this work? Package require question

> > Now you want to call the Inn::HTML() function, right? You can't easily do > > it if strict is turned on. Here's one way, though: > > > >my $glob = $main::{$Player{Location} . "::"}{HTML}; > >$glob->(); Ok.. that works.. why? what is ->() -- To unsubscribe, e-mail: [EMAIL PROTECT

Re: Why wont this work? Package require question

> Now you want to call the Inn::HTML() function, right? You can't easily do > it if strict is turned on. Here's one way, though: > >my $glob = $main::{$Player{Location} . "::"}{HTML}; >$glob->(); ah yes.. must bottom post ok in the first line you set the var $glob to equal the packa

Re: Why wont this work? Package require question

OK I got this to work require "$Player{Location}.pl"; but not "$Player{Location}"::HTML(); #error or "$Player{Location}::HTML()"; # ignored completely! or '$Player{Location}::HTML()';# ignored completely! or '$Player{Location}'::HTML(); #error or $Player{Location}::HTML(); #error now what? hey.. a

Re: Why wont this work? Package require question

i have the vars correct so that if I want to change $Player{Location}="Inn"; to $Player{Location}="Gate"; the program would require the correct package require "Gate.pl" and the call on the sub HTML in that package? Gate::HTML(); - Original Message - From:

Why wont this work? Package require question

$Player{Location}="Inn" require '$Player{Location}.pl'; #no error here, I think. '$Player{Location}'::HTML(); #error occurs here I'd hate to have to make a big if then else just to do this... Thanks Luinrandir -- To unsubscribe, e-mail: [EMAIL PROTECT

Re: Just need a yes or no answer on passing a hash to a package

Devers" <[EMAIL PROTECTED]> To: "Luinrandir" <[EMAIL PROTECTED]> Cc: "Perl Beginners List" Sent: Friday, September 02, 2005 8:34 PM Subject: Re: Just need a yes or no answer on passing a hash to a package On Fri, 2 Sep 2005, Luinrandir wrote: > Can I pass

Re: Just need a yes or no answer on passing a hash to a package

ginal Message - From: "Chris Devers" <[EMAIL PROTECTED]> To: "Luinrandir" <[EMAIL PROTECTED]> Cc: "Perl Beginners List" Sent: Friday, September 02, 2005 8:34 PM Subject: Re: Just need a yes or no answer on passing a hash to a package On Fri, 2 Sep 20

Just need a yes or no answer on passing a hash to a package

head spin! ## I warned you! #!/usr/bin/perl use strict; require 'ReadWriteParse.pl'; #<"Luinrandir",Town =>"Avalon",Homeland =>"Ireland",); #this is where the call for the package goes###

Re: Need help... packages again -more

t qq||; } } results in HTML: -Ireland 2-Ambros:Baird:Cabhan:Dahey:Eirnin:Fergus:Glendan:Hugh:Innis:Liam:Murtagh:Or in:Pierce:Quinn:Ronan:Scolaighe:Turlach:Luinrandir Ambros Baird Cabhan Dahey Eirnin Fergus Glendan Hugh Innis Liam Murtagh Orin Pierce Quinn Ronan Scolaighe Turlach Luinrandir 1-Iceland 2-Sigurður:Guðmundur:Jón:Gun

Need help... packages again

in the package: @Countries=("Ireland","Iceland"); $Lord{Ireland}=("Ambros","Baird","Cabhan","Dahey","Eirnin","Fergus","Glendan ","Hugh","Innis", "Liam","Murtagh","Orin","Pierce","Quinn","Ronan","Scolaighe","Turlach","Luin randir"); $Lord{Iceland}=("Sigurður","Guðmundur","Jón","Gunnar","Ólafur","M

Re: Need help... packages

my alternative is this, in the program: @[EMAIL PROTECTED]::Countries; foreach $Country(@Countries) { if ($Country eq "Ireland") [EMAIL PROTECTED]@NameList::IrelandLord} if ($Country eq "Wales") [EMAIL PROTECTED]@NameList::WalesLord} print @Lords; } but th

Need help... packages

OK.. maybe I'm trying to be too fancy. the package is: ### package Names; @Countries("Ireland","Wales"); %Lord{Ireland}=("Bob","Tom"); %Lord{Wales}=("Ted","Ned"); return 1; # the program is: ### foreach $Country(@Names::Countries) { print qq|$Na

Re: Need a list of files in a dir.

in a dir. Ooh ooh ooh! One I know! open(COMMAND, "dir |"); @files = ; Daniel -----Original Message- From: Luinrandir [mailto:[EMAIL PROTECTED] Sent: Thursday, August 25, 2005 21:33 To: beginners@perl.org Subject: Need a list of files in a dir. How do I get the list of files in

Re: Need a list of files in a dir.

Thanks.. I'll look it over Lou - Original Message - From: "John W. Krahn" <[EMAIL PROTECTED]> To: "Perl Beginners" Sent: Thursday, August 25, 2005 6:26 PM Subject: Re: Need a list of files in a dir. > Luinrandir wrote: > > How do I get the li

Need a list of files in a dir.

How do I get the list of files in a DIR and put in an array? I'm drawing a blank on my search for this. thanks Lou -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

I finally did it- Packages

I have just successfully figured out how to get the "return" from a "package" in the main program.. @Data = ReadFile::ReadFile("TownCrier.db"); Wha Hoo ANYONE having more informtion on making and using packages, please let me know. My 6 book library barely mentions it! my programming just g

Question about Moduals

I am creating my own packages/moduals for a game I am writing. my question is should I create one big program with many moduals? or many small programs (one for each business in the town) with a few moduals. My concern is that loading up the moduals and a big program would slow things down... whi

Re: Package/modual question -- more

Ok.. thats what I thought... thanks Lou .. in my 5 year mission to wrap my brain around perl. - Original Message - From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]> To: "Luinrandir" <[EMAIL PROTECTED]> Cc: Sent: Monday, July 25, 2005 2:27 PM Su

Package/modual question -- more

From: "John Doe" <[EMAIL PROTECTED]> To: Sent: Monday, July 25, 2005 10:44 AM Subject: Re: Package question > Luinrandir am Montag, 25. Juli 2005 21.42: > > I am just learning about making and using my own packages and moduals > > > > > > I have a CGI that

Package question

I am just learning about making and using my own packages and moduals I have a CGI that requires a package. the package is a subroutine that is called on in the main program(CGI) The subroutine works fine as a sub in the main program. but when I put it in a package, it does not work. I thought r

Re: Questions about game design in perl

Hey What ever I did I'm sorry. Obvisious ly it upset someone... I'm gone.. you guys are way to uptight about little shit L Hernsen - Original Message - From: "WC -Sx- Jones" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, April 07, 2004 12:00 PM Subject: Re: Questions ab

Re: More Details --- Re: Questions about game design in perl

need to know how to pass variables with the HIDDEN INPUT command from web page to web page that perl generates. Thanks for your help again Lou - Original Message - From: "James Edward Gray II" <[EMAIL PROTECTED]> To: "Luinrandir Hernsen" <[EMAIL PROTECTED]&

Questions about game design in perl

Hallo I am trying to build a game in perl. I have questions. This is a story book game... here is the story, make a choice next page..here is the story, make a choice 1-Do I set up the login file (password name and your game details) in one big file, or in many files, one file per player? Th

File question

I want to write an online game... I need a to make a logon page and a new person page. I think I can do this with little help... however on the map... Do I keep one big file with all the info.. of several little files.. which is better? Thanks Lou -- To unsubscribe, e-mail: [EMAIL PROTECTED] F

capturing a webpage in a variable

IS this how I capture a web page code to a variable? > #!/usr/bin/perl > > use LWP::UserAgent; > > my $req; > my $ua = LWP::UserAgent->new; > $req = HTTP::Request->new(GET => 'http://www.yahoo.com'); print $req; ## ? from here I can print at the code for the web page?

Simple Perl code/syntax question

Hallo everyone and thank you for your previous help in basic the code would be for x=1 to 100 Select Case Case=10,20,30,40,50,60,70,80,90 then do this else else do this end select next x how is this done in perl? foreach (10,20,30,40,50,60,70,80,90); { do this; } I

Re: Program to write code

I use OptiPerl from www.xakra.com Any one else use this? L Hernsen - Original Message - From: "McMahon, Chris" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Thursday, January 22, 2004 2:32 PM Subject: RE: Program to write code > > I like jEdit: www.jedit.org .

Join strings problem

Hallo and thank in advance. what am I doing wrong? I'm new to Perl. my Building string is not being built. is it that I need to declare the joined strings a string?How? Lou #!/usr/local/bin/perl print qq|Content-type: text/html\n\n|; my $EW5NS5="TEST.gif"; ##this is the string I need to build.

File Transfer

Is there a way in Perl to make a directory and transfer files to it? Lou -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

HTML for my perl CGI

Can anyone direct me to HTML help? Re: Tables, backround, and images Thanks Lou -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Max Len for string in perl???

that it was unlimited, but I could be wrong (might have been PHP). Just keep it as short as possible. >>> "Luinrandir Hernsen" <[EMAIL PROTECTED]> 03/04/03 05:43AM >>> Hallo What is the maximum number of charecters in a string? $A=123456789>>>

Random access files in Perl????

Long ago in GW Basic there were sequential files and random access files. Does perl have the latter? I only to get (and then put) certain info in a certain place every time. If I can avoid writing the whole file every time I bet my web site hoster would appreciate it! Just point me in a direction

Max Len for string in perl???

Hallo What is the maximum number of charecters in a string? $A=123456789 Lou -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

please please comfirm (was Parsing variables)

Thank you for your help but I want to learn this too Here is the code from the HTML GET North West And here I think is the CGI code $input=$ENV{QUERY_STRING}; @pairs = split(/&/, $input); foreach $pair (@pairs) { ($name, $value)=split(/=/,$pair); $form

Parsing variables

Hallo I need simple parsing code for a "get" not a "post". that will yeild 4 or 5 variables. Lou #I know I need to get rid of the "&" # Split the name-value pairs @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { # Split the pair up into individual variables.

need help ... text boxes/form .... alphanumeric input only

Hallo I had to replace the pull down menues to text boxes on my order form. This means I need to filter out unwanted text. I need to make it alphanumeric only.for security reasons. I have red/bold the two lines I changed last time to eliminate all "0" "zero" orders. if you are not receiving th

Re: converting a list into array

Hallo I had to replace the pull down menues to text boxes on my order form. This means I need to filter out unwanted text. I need to make it alphanumeric only.for security reasons. I have red/bold the two lines I changed last time to eliminate all "0" "zero" orders. if you are not receiving th

need help

This line is from a script if ($Config{'print_blank_fields'} || $Form{$field} ne '0') I need to change the last part (in bold) to read for both 0 and the empty set '' so the logic should read if ($Config{'print_blank_fields'} || $Form{$field} ne '0' or '' ) Or to say it another way I need the

Screen control again

The last question had to do with X,Y placement for alphanumerics... I ask, what about .gifs? can they be moved across the screen using some command. Also is there a command to find out the persons screen Height/width? LH

wildcard for unix????

What is the global wildcard for unix? I'm trying to chmod 755 all files in a dir... possible? chmod 755 *.* ? Thanks LH

Please point me to a language (perl I hope)

Sorry if this is off topic, but I really don't know who else to ask. Heres what I want to do.. maybe you would be so kind as to tell me what language this can best be done in. I'm just learning perl and know HTML. within frames (or a table)... I would like to put a large gif in the backround an

trying to secure text input.

Below is the code i'm using to filter out non alphanumeric charecters... however when i type ?!$BOB yeilds this: -_3f_21_24bob- The ?!$ should be stripped away and come back empty, not _3f_21_24 ANY ideas as to what I'm doing wrong??? I'm asking for an email address. my $eaddress = ""; rea

Question about GIF's

within an HTML frame... I want to run a GIF animation and make play again as required. In this animation a person is riding a horse, 4 steps of the horse is one cycle for the animation. Can perl make it recycle again without having to load each time? It is possible to load a gif once to the pe

just bragging

guess what I found!!! and it works (mad scientist laugh) $password=~tr/A-Z/a-z/;##changes everything to lowercase $password=~tr/a-z0-9/_/c; instead of ##$password=~s/@/\_/g; ##removes"@" ##$password=~s/\./\_/g; ##removes"."

Re: help!!!trying to match password

bobby or abobby, then you may have to use border like this ~/\bbob\b/ end of msg - Original Message - From: "Luinrandir Hernson" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Saturday, January 19, 2002 6:41 PM Subject: help!!!trying to ma

Re: more help!!!trying to match password OPPPSSSS

- Original Message - From: Luinrandir Hernson To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Saturday, January 19, 2002 10:06 PM Subject: more help!!!trying to match password Thanks Jeff . I had tried $password eq /bob/ but your way works just fine. Now for

more help!!!trying to match password

r (and the last question) thanks in advance Lou - Original Message - From: Jeff 'japhy' Pinyan To: Luinrandir Hernsen Cc: [EMAIL PROTECTED] Sent: Saturday, January 19, 2002 10:09 PM Subject: Re: help!!!trying to match password On Jan 19, Luinrandir Hernson said

help!!!trying to match password

I have managed to get this far. I've stripped down read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); to the actual input, in this case bob and it works but so does bob123 , bobbies and bobs_a_bum etc... Just how do I match the input exactly bob to just bob ??? thanks in advance code below

Password ---- cgi-perl-html

I am trying to password protect part of my website. I have the password page done. But how to I make the pages protected so you have to go through the password page? Do i do it by passing hidden inputs from page to page? How do I force people coming in around the password page to go through the

off topic - javascript question

I want to have a window loaded when someone leaves my website. does anyone know what is wrong with the following code? Thanks!

LH question about variables

if more than two people are using my perl program (an online game), do i need to create different variables for each person or does unix/apachie know who variable is whos? Each players variables are recorded to their own unique files... i just need to know about the variables.. does the ques

please help with perl form

My question is, What command (in my perl prog?) do i use to goto the next page? Also, do i have the part of the perl prog correct? it doesn't make the file. And what command do i use to set the CHMOD on the net file (in perl)? This is in my HTML page code: Email address?

new code .. will it work?

Below is a piece of code that determines what web site you just came from. I want to put a line in their that will exclude me ###here is the working code if ($ENV{'HTTP_REFERER'} eq "" | '0') {$previous = "$ENV{'HTTP_HOST'}$ENV{'DOCUMENT_URI'}";} else {$previous = "$ENV{'HTTP

permission question

I want to let other people put my webpages on their site. I want to control the contents of the web page without changing their code. I am going to make up a web page of .pl's that just type the html code for them as below. My question is what permission (775?) must i set the .pl's at so that a 3

Re: string manipulation

Whats a bash prompt?? Ok OK let me see if i have it the name of the string is EightyCharsLong $EightyCharsLong and the substr command is like the midstring command substr() I'm going to guess the first charecter is 0 so that 19 becomes the 20th position??? and of course the 10 is for the legt

string manipulation

OK.. thanks to all who helped me... i'm actually learning this thing... perl In BASIC there are commands for leftstring, midstring, and rightstring. I am looking for the perl equiv for these. maybe an example too??? not in butt tight code, but in line by line code so I can learn. THEN I'll

if then else

ok, where did i go wrong now??? ## ##set $previous site var. ## if ($ENV{'HTTP_REFERER'} = "") {$previous = "an unknown site"} else {$previous = "$ENV{'HTTP_REFERER'}};

Re: Perl Templates?!

I think what this oerson means is this: What is the format of a if then else statement in perl?? I know in basic is would be If (condition) then (result1) else (result2) its a matter of code syntax referral In perl is it if condition { result1 } ? Lou

Re: code to force a fresh page

never mind i found it in javascript Lou - Original Message - From: Luinrandir Hernson To: [EMAIL PROTECTED] Sent: Thursday, June 07, 2001 10:01 PM Subject: code to force a fresh page Im not sure if i need to use java or perl... Heres the scratch. I want to force my

referer.pl I wrote and works!!!

I am a firm believer in sharing information. here is a working program i just wrote and tested. it my not be clenched-buttock tight code. but, blast it, it works!!! Lou #!/usr/bin/perl -w use strict; use diagnostics; print "Content-type: text/html\n\n"; ## ##declared variables

code to force a fresh page

Im not sure if i need to use java or perl... Heres the scratch. I want to force my webpage to a new frame/browser so I don't get my site trapped inside someone elses. Lou

$ENV

I have tried perldoc -f env perldoc -f http perldoc -f %env perldoc -f $env to find documentation on %ENV. no luck anyone???

counter update

from within the body of the .htm page use this command This is the .cgi program #!/usr/bin/perl -w use strict; use diagnostics; my $count; $count = "12345"; print "Content-type: text/html\n\n"; print "-($count)-\n"; exit; ## this works.. now to build up the

Re: one last attempt?

well i cant beleive it know what the first problem was spaces after and before the double dashes. i was using and the correct command is this caused three days of hairpulling madness... I'm laughing on the outside... but inside ERRR! the spaces were suggested to me on this list. ANY

one last attempt?

Well i'm about to chuck perl out the window this is the command line from my index.htm file I've made this so darn simple it should work. this is the perl program in my cgi-bin: #!/usr/bin/perl -w use strict; use diagnostics; my $count; $count = "12345"; print "-($count)-"; exit; does anyone

Re: newcounter(was did i do that correctly)

n(NUMBER,">$counterfile"); print NUMBER "$number"; close(NUMBER); } if (($position>0) && ($position<=length($number))) { $positionnumber=substr($number,(length($number)-$position),1); } else { $positionnumber="0"; } if ($imagefile{$positionn

Re: did i do this correctly?

oh ok... the "." is a way in perl to concentrate the variables then? so this $counterfile = "$homepage counter.txt"; etc should change to $counterfile = $homepage."counter.txt"; I am learning! i will not forget!!! - Original Message - From: Edu

Re: did i do this correctly?

here is the entire code it works but no .gif files appear? i set permissions to 775 on all .gif's the counter.txt file and the .pl and .cgi programs ideas if i didn't want to use the .gif's could i put a print "counter.txt"; somewhere #!/usr/bin/perl -w use strict; ###

did i do this correctly?

I am working on a cgi and i'm new to perl. could someone please check to see if i did this right? below is code for a program. as you can see it is going to take a lot of editing. #!/usr/bin/perl # Setup begin $counterfile = "/home/yourdomain/counter/counte

Re: Counter problem

ne else on this thanks L H - Original Message - From: Me To: Luinrandir Hernson Sent: Sunday, June 03, 2001 1:33 AM Subject: Re: Counter problem I think I just spotted why it isn't working. You are using a line something like: Right? You need a space

Re: Counter problem

: Johnathan Thibodeau To: Luinrandir Hernson Cc: [EMAIL PROTECTED] Sent: Saturday, June 02, 2001 11:35 PM Subject: Re: Counter problem On Sat, 2 Jun 2001, Luinrandir Hernson wrote: > the command that calls this is > Maybe one of the techs at your provider got smart and dissabl

Re: Counter problem

I just used that and where the number should be it said [an error occurred while processing this directive] thanks for your effort - Original Message - From: Johnathan Thibodeau To: Luinrandir Hernson Cc: [EMAIL PROTECTED] Sent: Saturday, June 02, 2001 11:35 PM Subject

Re: Counter problem

. hmm. its late, maybe i need sleep ;-) I just talked to my web host person and he says all the permissions are ok. he says the program is not even being run because of the problem in the code abort the whole thing. - Original Message - From: Me To: Luinrandir Hernson ; [EMAIL

Counter problem

Something is wrong with this code it WAS working.. This code is suposed to work from any of my web pages and count the number of hits to each web page. the command that calls this is Just substitute your homepage for the "homepage" throughout the program #!/usr/bin/perl -w # ##gets the nam

Re: How do I....

Thanks Peter C. I know about the .pl association with active perl... thats working I'm set up on the web server and am currently running a perl program on my web page. My server is Unix type. (EXCITEMENT!!!) I know what the "shebang" line is and means!!! WahWho! Let you know more tomorrow Th

Re: How do I....

perl on my PC? #!c:/internet/perl/perl5 ?? Lou (thanks folks!!!) - Original Message - From: Brett W. McCoy To: Luinrandir Hernson Cc: [EMAIL PROTECTED] Sent: Tuesday, May 29, 2001 5:59 PM Subject: Re: How do I On Tue, 29 May 2001, Luinrandir Hernson wrote

How do I....

I am dedicating a PC to internet only, including perl. I only know about windows. Is there a platform/OS like (maybe red hat???) that i can put on that PC and still run my windows netscape and run perl on too? I want to make the PC perl friendly... or can I run unix on it? Where do I find it? a