Re: Check url for form submission

On Tue, Mar 11, 2003 at 07:34:40PM -0500, Fred Sahakian wrote: > I may be wrong, but some browser have problems giving referers > properly causing your visitor not to be able use your CGI. On a related note, referers can be set to anything the user-agent wants. While browser bugs might be an issue

Re: Script Works With One Newsgroup, Not With Another

On Fri, Feb 21, 2003 at 12:38:29AM +, Desmond Coughlan wrote: > OK ... no wants to answer me. > > *shrug* > > D. It's often not a matter of people not wanting to answer you so much as not being able to. I personally have no experience in the area of your question. Answers on mailing lists

Re: writing a script

On Sat, Feb 15, 2003 at 01:03:50PM -0800, brady jacksan wrote: > Hi Hi, > I am writing a script that reads file from command line and places > each line from the files into an array, and prints out the total lines > read and then > each line read. > > while (defined ($files = <>)) { >

Re: reading files

Hi Mario, On Sat, Feb 01, 2003 at 06:35:55AM +, mario kulka wrote: > Before I upload a file with a random name I would like to make sure that > another file with the same name doesn't already exist. Is there a way to > look for a specific $name file within a directory (on UNIX). if( -e $fil

Re: How do I get simple random numbers?

On Fri, Jan 31, 2003 at 03:51:04PM -0500, Jamie Risk wrote: > I'm looking around, and I see "Quantum::Entanglement" which looks like > overkill; I'd like to generate, 8/16/32 bit random numbers. > > - Jamie rand() seems like what you're looking for. perldoc -f rand -- Michael [EMAIL PROTECTED]

Re: build an array from a pattern match?

On Sat, Jan 11, 2003 at 02:00:58PM -0800, John W. Krahn wrote: > Rob Dixon wrote: > > "Michael Kelly" <[EMAIL PROTECTED]> wrote > > > # print out all the captured numbers > > > map{ print "$_\n"; } @numbers; > > > > Hi Michael. &g

Re: build an array from a pattern match?

On Fri, Jan 10, 2003 at 10:22:37PM -0500, David Nicely wrote: > Hello, Hi David, > I am a total beginner, so any help or a pointer to an appropriate doc > will be appreciated. > > I am trying to read a file, and find all the lines that look like; > "Finding 111" where "111" could be any number w

Re: Expanding a variable

On Sun, Dec 22, 2002 at 04:33:41PM -0500, Bob H wrote: > I can actually do that. : ) > > What I need to do is take the contents of the $file variable expand it > and then run some system() commands using it. The print only shows to > console. Can I do anything with that? What do you mean, "expan

Re: @INC question after conversion to linux.

On Sun, Dec 22, 2002 at 09:38:44AM -0500, Michael Hooten wrote: > > export PERL5LIB=/usr/local/lib/perl > > I added this to .bash_profile. I then executed it with no change. I had > to relogin to see the changes. Is this the case? The .bash_profile file is sourced when you log in, so unless you m

Re: problems with redirect page

On Wed, Dec 04, 2002 at 09:04:50PM -0600, perl wrote: Hi Josh, > I'm trying to make a page redirect to a homepage if a user has logged in > before. I have everything running except the redirect command. Here's > what I have: > > print redirect ( "homepage.pl" ); > > > It gives me a messa

Re: HELP W. Print

On Thu, Nov 21, 2002 at 04:57:03PM -0200, [EMAIL PROTECTED] wrote: > Hi, Hi, > How do i solve this > Say i have an variable $number witch has the integer value of 16.526899874 > I wan to print it formatted like 16.52 (only 2 decimals) > How do i do this with the basic print "$number"; command? >

Re: about substr

On Sat, Nov 28, 2037 at 10:04:37AM +0800, billy wrote: > when i user substr,i find "Tab" key is calculated as 1,but i want to set it as >8,what will i do? > thks. I'm not sure what you mean. Are you saying you want to replace the tab character with 8 spaces? In that case just do something like

Re: Special Name for @ Element

On Thu, Nov 21, 2002 at 07:56:51AM -0500, Sturdevant-Contractor, Robert W wrote: > Thanks, Jeff. > Yes, index ... with all the special names avail I thought there might be one > > to identify the position of the element within an array. > Bob I might be imagining this, but I thought I remembered

Re: Redirection?

On Fri, Nov 08, 2002 at 02:18:31PM -0800, Carol Nguyen wrote: [snip] > > > http://www.mysite.com/index.html";> > > > > this should redirect to the new url. Or just use HTTP headers to redirect (almost) instantly: print "Location: http://www.mysite.com/index.html\n\n";; That's just how thi

Re: autoincrement and autodecrement

On Tue, Oct 08, 2002 at 10:00:09AM -0700, Anil Shekhar wrote: > Thanks Mark. > > I mean how is the following possible. > > print ++($foo = 'Az'); # prints 'Ba' > print ++($foo = 'zz'); # prints 'aaa' (I'm obviously not Mark, but I figure I'll give this a shot) That's how the

Re: WHO IS NAVER-MAILER@naver.com ???

On Thu, Oct 03, 2002 at 01:38:26PM +0800, [EMAIL PROTECTED] wrote: > Hello, All: > > Every time I send a message to this list, I receive a message from > [EMAIL PROTECTED] immediately afterwards. It appears to be garbage > (lots of screwy characters...). > > Where is this coming from? Am I the

Re: SQUID Log Unix time

On Thu, Oct 03, 2002 at 04:23:19PM +0200, Jasper Wammes wrote: > Hi there, Hi, > I am analizing a Squid proxy log file. The times is like this: > 1033638320.833 > Hoe can i convert that to a normal time? > > Thanks for your time. This should do it, to a certain extent: my $number_time = 10336

Re: State Variables

On Fri, Sep 27, 2002 at 08:29:53PM -0500, Grant Hansen wrote: > Can anyone provide an example of how to use a state variable to break out of a > loop? > > Thanks I smell homework. But to be fair: what do you have so far? Why doesn't it do what you want? If you showed us your code where you wer

Re: dbmopen can't open /etc/aliases.db file

On Thu, Sep 26, 2002 at 09:38:18PM -0300, Bruno Negrao - Perl List wrote: > Hi, Hi Bruno, > I'm triyng to open the /etc/aliases.db file for reading with the dbmopen > function - the result is that I can't open the file for reading, or > something like this. yes, I have permission because I'm roo

Re: how to recognize a number with regex?

On Wed, Sep 18, 2002 at 05:49:48PM -0700, Timothy Johnson wrote: > > You'll need to escape the period. > > $_ =~ /\d+\.\d+/; If you want it to match "1234" as well, that would be $_ =~ /\d+(\.\d+)?/; or $_ =~ /^\d+(\.\d+)?$/; if you don't want it to match "ab1234c", etc. -- Michael -- T

Re: Executing DOS "copy" command from perl script via web interface

On Tue, Sep 17, 2002 at 08:00:06AM -0400, FlashGuy wrote: > Hi, Hi FlashGuy, > I have a web interface where I'm executing a compiled perl script. Within the perl >script I'm trying to execute a DOS command but its not working properly. > If I put my command in a batch file and execute the batch

Re: SEND MAIL QUESTION ON NT

On 5/22/02 6:19 PM, Lance Prais <[EMAIL PROTECTED]> wrote: > HOW CAN I SEND MAIL USING PERL ON NT? DOES ANYONE KNOW OF EXAMPLES THAT > ARE OUT THERE ON THE WE? YOU CAN USE THE Net::SMTP MODULE. IT WORKS QUITE WELL FOR THINGS LIKE THIS. HERE IS A SNIPPET THAT MIGHT HELP. SEE THE DOCS ON THE Net

Re: Mail?

On 5/11/02 9:27 PM, Bill Lyles <[EMAIL PROTECTED]> wrote: Hi Bill, > I still can't get this to work > > Thats why I hate being a newbie > so I'm attaching the form page and the script > > some please tell me what I'm doing wrong > > Everytime I run it my browser it just says the page cannot b

Re: Multiple emails with Sendmail

On 5/11/02 9:05 PM, Troy May <[EMAIL PROTECTED]> wrote: > Hello, > > I'm trying to figure out how to send emails through Sendmail with an email > list that could change at any given time. I'm trying it with a text file > now: (file is in this format: email, email, email, email) > > --

Re: Mail?

On 5/11/02 7:56 PM, Bill Lyles <[EMAIL PROTECTED]> wrote: > Ok here is the mail script > Please note that the variables are taken from a form > This line is at the top > use Net::SMTP; > > these are the variables > $adminmail = 'q^webmaster2\@adelphia.net^'; Assuming your email address is "q^we

Re: Pattern Matching...last one.

On 5/9/02 1:15 PM, Batchelor, Scott <[EMAIL PROTECTED]> wrote: > $value =~ s/%([\dA-Fa-f]{2})/pack("C", hex($1))/eg; > > this is saying substitute any alpha, non-alpha characters with the > hexadecimal string of $1. > > I am not sure what the "%" sign does or the "eg" > > Again, thanks in adva

Re: here document

On 5/9/02 10:45 AM, Elliott M Moskowitz <[EMAIL PROTECTED]> wrote: > How do you implement a Unix shell "here" document in perl ? $stuff = <

Re: unix -sed

On 4/28/02 8:41 AM, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > ... > In vi I could say :1,$g/^...$/s/\(.*\)/???\1/g# and it > works. > In Unix when I output to sed file | sed 's\(.*\)/???\1/g' ## > it works. > When I dofile | sed 'g/^...$/s/\(.*\)/???\1/

Re: Checking and email address

On 4/15/02 10:38 PM, Timothy Johnson <[EMAIL PROTECTED]> wrote: > I think the preferred way to do a negative match is with the !~ operator. > > if( $email !~ /@/ ) > > at this point you don't really need to check if $email eq "", because if it > does it will not have an @ in it. > > I'm not su

Re: Returning one item out of a list

Thanks all! I knew it was something like that. Parenths, not curlies... And thanks for the ref on File::Basename, too. Looks like I won't have to reinvent the wheel on that one. :) Thanks, -- Michael -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECT

Returning one item out of a list

Hey all, I seem to remember seeing this done somewhere, but now I can't figure out how to do it now. If you have a function that returns a list, such as split(), is there a way to only return one item from that list, as if you were working with an array? For instance, if you have something like

Re: weird characters

On 4/3/02 4:02 PM, Pedro A Reche Gallardo <[EMAIL PROTECTED]> wrote: > Hi, I have a cgi script that uploads files but I have found that when > those files are uploaded from a Mac or Windows the return character > (maybe other characters too) are replaced by something else. Does any > one know how

Re: Cant open file...

On 4/3/02 6:47 PM, Daniel Falkenberg <[EMAIL PROTECTED]> wrote: > Well I think I have figured it out... > > The location of my file looked like this... > > $file = "c:\folder\folder\test.cgi"; > > Now this didn't work like this so I changed it to... > > $file = 'c:\folder\folder\test.cgi'; >

Re: Time arithmetics...

On 4/2/02 1:54 AM, Jonathan E. Paton <[EMAIL PROTECTED]> wrote: >> for instance between feb 28, 200 and >> jan 30, 2002... > > You must be a historian of some sort, nobody > else is interested in such large 'stages' of > time ;-) The question is, what are you doing with log files from the year

Re: my first regex i think

Oops, I didn't realize this was cross-posted, and replied to the first instance I saw (the beginner's CGI list). The Perl beginner's and Perl beginner's CGI lists are, for the most part, mutually exclusive. (Does it or does it not have to do with CGI?). Please don't cross post, people. I assure yo

Re: Might be OT. Making a webpage.

On 3/21/02 5:36 AM, Tor Hildrum <[EMAIL PROTECTED]> wrote: >I want to make > my own Perl/CGI webpage. But, I don't really see any options in CGI.pm to > give the site the kind of design I want. Is there some place I could look > for information about the design options CGI.pm provides? I tried us

Re: Making my own error.logs

On 3/20/02 11:05 AM, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > My new web hosting service at oneononeinternet.com doesn't have error logs > for each site. What do I do? > > Is there a way for me to create my own logs for my perl files? You could redirect STDERR like this... open(STDERR,">

Re: Running perl script on background

On 3/19/02 10:59 PM, OZGUR GENC <[EMAIL PROTECTED]> wrote: > Hi All, > Does anyone help me about how I can run my perl scripts on background? > Ozgur Genc I assume you're on Unix/Linux (otherwise you just switch apps while the script is running, right?) perl myscript.pl & Works for me. -- Mi

Re: CGI with a form

On 3/9/02 8:41 PM, Troy May <[EMAIL PROTECTED]> wrote: > Hello, > > How do I link to a certain part of a CGI program with a form? I was > thinking that I have to link to a sub-routine, but I can't get it working. > Here's the form tag I'm trying: > > > > $cgi being the program itself of cour

Re: Perl for Mac

On 3/7/02 4:40 PM, Kevin Meltzer <[EMAIL PROTECTED]> wrote: > Assuming you are on OS X, what's wrong with vi? Or emacs? Though BBEdit does admittedly take a lot longer to start up than vim (or the like), BBEdit is more flexible (AFAIK, IMHO) and full-featured. (...Which is why you pay over $100

Re: Perl for Mac

On 3/7/02 2:02 PM, Naveen Parmar <[EMAIL PROTECTED]> wrote: > Any good text editors for Mac? > > I am interested in something that will display at least line #s. > > TIA, > - NP BBEdit . (Not BBEdit Lite, mind you, the full version.) IMHO, it's t

Re: Perl to work like Java

On 3/3/02 6:36 PM, Daniel Falkenberg <[EMAIL PROTECTED]> wrote: > Leon, > > Yes that is easy enough but can I do this with out the page having to > have to be refreshed? I would essentially like it to work exactly like > Java does. > Thx, > > Dan Nope. (That is, assuming that by "java" you me

Re: Perl script for simple web pages

On 3/3/02 10:36 AM, michael <[EMAIL PROTECTED]> wrote: > Is writing a perl script for making simple HTML pages > reinventing the wheel? If you can find another script that does what you want (such as CGI.pm), yes. Otherwise, no. (I've written quite a few quickie scripts that I couldn't find anyw

Re: Chaning case

On 2/28/02 9:33 PM, Daniel Falkenberg <[EMAIL PROTECTED]> wrote: > G'day All, > > Quick question I want to be able to change all folders in a directory to > lower case? Does any one know how I could do this using Perl? > > Would I go something like this? > > system('lc *'); > > well somethin

Re: Does Perl have "Case" Statements?

On 2/28/02 1:41 PM, Chris <[EMAIL PROTECTED]> wrote: > I have been looking in the Learning Perl book, and cannot find it. > > I am sure that it is just a terminology thing. > > In VB {Yeah the old VB again :P) I could do: > > Select Case $Junk > Case 1 > Do Something > Case 2 > Do Something >

Re: a simple question

On 2/26/02 10:27 PM, jds <[EMAIL PROTECTED]> wrote: > #win2k system > > ... > @array=; > ... > > Q:when running,how to break the input,and not exit program? Hi jds, Your EOF char. On most systems, this is ^D, and on Windows I believe it is ^Z. Hope that helps, -- Michael -- To unsubscrib

Re: Multiple lines - I must be doing something wrong

On 2/23/02 8:51 PM, Marc Morrison <[EMAIL PROTECTED]> wrote: Hi Marc, > The form generally has input as follows: > > Comment: comment 1 then a new line > then comment two then a new line > then comment three > > I am trying to capture all three lines of this > Comment: field. Oops, sorry abo

Re: Multiple lines - I must be doing something wrong

On 2/23/02 3:52 PM, Marc Morrison <[EMAIL PROTECTED]> wrote: > I have an online form that has a "Comments" field. I > need to extract ALL of the information from the > comments field. > > Each "Comments" line begins with Comment: so the > /^Comments/ works to match that, however the user may,

Re: using perl to generate a simple report.

On 2/22/02 10:40 AM, Carlo Sayegh <[EMAIL PROTECTED]> wrote: > Hello All, Hi Carlo, > I've written a very simple script where the user inputs data, from which > a report is generated. My problem is that some of this data is in rows > and columns and every time the user hits enter to start a ne

Re: Need help with Perl error Please

On 2/21/02 10:15 PM, Jeff 'japhy' Pinyan <[EMAIL PROTECTED]> wrote: > On Feb 21, Michael Kelly said: > >> On 2/21/02 10:00 PM, Michael Eggleton <[EMAIL PROTECTED]> wrote: >> >>> If I use the '<' for Justify left. I get the error

Re: Need help with Perl error Please

On 2/21/02 10:00 PM, Michael Eggleton <[EMAIL PROTECTED]> wrote: > Hi All, > > I have a problem with the Perl format command. > > If I use the '<' for Justify left. I get the error message: Missing > right curly or square braket. You need to terminate formats with '.' (a single period), not '.

Re: foreach loop problems

On 2/13/02 2:44 PM, dan radom <[EMAIL PROTECTED]> wrote: > Hi, > > > I've got a problem with the following code... > > my @hosts=qw( lunar solar venus mars saturn pluto ); > > foreach (\@hosts) { > system("/usr/bin/ssh @hosts $ARGV[0]"); > } > > > > What I'm wanting to do is call foo.p

Re: help for sed

On 2/6/02 6:58 AM, r p <[EMAIL PROTECTED]> wrote: > hi everyone. > > i am trying to use sed in order to change all my batch > script. Is it just me, or is this a Perl list, not a sed list? -- Michael Kelly [EMAIL PROTECTED] http://www.jedimike.net -- To unsubscri

Re: simple question

;i' (case-Insensitivity) option on the regex, you'll only replace upper-case Ms, and unless you use 'g' (Global replace), you'll only replace the first M. Hope that helps, -- Michael Kelly [EMAIL PROTECTED] http://www.jedimike.net -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Off-Topic (200%) - Where are you from?

> San Diego, California, dude. Definitely a small world. Same here! Good ol' sunny San Diego where it's...foggy. -Michael Kelly Email: [EMAIL PROTECTED] The Web: http://www.jedimike.net > -Original Message- > From: Etienne Marcotte [mailto:[EMAIL PROTECTED]] >

Re:

Am I the only one receiving all the emails from the Perl Beginners, Perl Beginners CGI, and MacPerl lists as "" from nobody? (All the headers are in the message body.) Is this something on my end? All other emails I get are ok. Thanks, -Michael Kelly Email: [EMAIL PROTECTED] The

Re: variable variable-names

> > I've also tried using @question_${num}, but that > soesn't work either. From the error message, I'm > assuming that I am making multiple errors, but I'm > stumped. Can anyone help? > > > Thanks, > > Drunken Master > > > >

Re: Please Stop (was: Re: eval problem)

pay any attention" type of stuff.) Well, that's my $0.02. > -- > Peter Scott > Pacific Systems Design Technologies > http://www.perldebugged.com -Michael Kelly Email: [EMAIL PROTECTED] The Web: http://jedimike.hypermart.net -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: For list admin

On 9/18/01 10:54 AM, chris morris wrote: > Could the list admin please contact me off-list. Thank you. Oh, boy. Please not this again. I suggest that you look at the bottom of your own message for your answer. -Michael Kelly Email: [EMAIL PROTECTED] The Web: http://jedimike.hypermart.

Re: 'CRAZY t" driving me loco: help!!

th "". (i.e. join("",@array);) I realize that a 1 is not a t, but I just thought this might be of some use. If it's not, just ignore this message :) -Michael Kelly Email: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Afew questions and request for help.

o the "value" attribute of an tag, or in between tags. Perhaps if you could show us what you have so far, or be more specific. -Michael Kelly Email: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: PERL IS NOT A HIGH LEVEL LANGUAGE

On 8/18/01 9:55 AM, Matthew Peter Lyon wrote: > I'm getting tired of this thread... let's talk about regexp's... Sorry if this sounds a bit curt, but if you don't like the thread, don't read it. 'Nuff said. -Michael Kelly Email: [EMAIL PROTECTED] -- To unsu

Re: s/^W+//;

On 8/15/01 4:28 PM, Clinton wrote: > Hi > I'm reading data from MSAccess, joining 2 fetched values with a comma and > writing to another table. The data seems to be padded. My resultant column > shows some space between the two values eg > valuefromFirstcolumn, valuefromSecondcolu

Re: [ADMIN] Re: [ADMIN] Re: FW: F*** YOU

orry to bring more of this up, but... Can't someone just block this John character from the list? I know I'm already adding a little filter to delete all messages from him, but couldn't the list do that automatically? :) -Michael Kelly Email: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Hit counters

On 8/8/01 1:58 PM, Sharon Carter wrote: > Hi! How are you? Hi! We are fine! > I send you this file in order to have your advice As a wise man once said... "[S]he who sendeth viruses to a perl group shall get no advice." > See you later. Thanks The pleasure's all mine!

Re: Variable Recalculation

ying to do quite precicely, and your suggestions work great! Thanks! -Michael Kelly Email: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Variable Recalculation

ferences, but I've had no luck. Thanks, -Michael Kelly Email: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: == vs eq What's the difference?

[Agh! I'm used to groups that automatically change the reply-to address! Apologies to all the messages I'm only sending to individual people. I'm not used to this yet...] On 8/6/01 10:33 AM, Brett W. McCoy wrote: > On Mon, 6 Aug 2001, CDitty wrote: > >> The subject pretty much says it all. Why

Re: split problem

letter of the var and > the value. Sometimes nothing. Where is the error? > > Krisztian > Your syntax is fine, and the split works just as it should. $var gets set to "var" and $value gets set to "value". (The variables and strings with the same names might be caus

Re: search and replace

rch and replace the FIRST occurance of &member&. To do it more than once you need to use the /g (Global) modifier: $textarea =~ s/&member&/$member/ig; #/ig instead of just /i -Michael Kelly Email: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]