Re: Executing scripts from different directories

On Fri, 2004-07-09 at 11:14, sudhindra k s wrote: > > Hi > > I have two scripts abc.pl and xyz.pl. Now abc.pl uses xyz.pl. i have implemented > this as below. > > abc.pl > { > > > system("perl xyz.pl arg1 arg2"); > ... > } > > Now both abc.pl and xyz.pl are in the same directory c

Multiple results page problem

Hi everybody, I'm stuck trying to output multiple search results. I wrote this code but, and it outputs correctly the number of pages, but it shows only the results for the first page no mater what link do I click. You can find the script in "action" at www.wiq.ro/cgi-bin/rointera/results.

Re: $^T inconsistant?

On Thursday 08 July 2004 14:20, perl.org wrote: > > I have not been able to reproduce this in my drastically simplified > test case; it must be a bug in my code (while I've written my share > of bugs I honestly don't see how this could be one), a side effect of > more complex interaction or some ot

Counting characters in a thread

$string = "a%3A2%3A%7Bi%3A0%3Bs%3A3%3A%22489%22%3Bi%3A1%3Bs%3A32%3A%22a85a44c1881523798bc155a5369e1226%22%3B%7D" How would I empty $string if it contained more than ten % characters? In other words $string = "a%3A2%3A%7Bi%3A0%3Bs%3A3%3A%22489%22%3Bi%3A1%3Bs%3A32%3A%22a85a44c1881523798bc155a53

Re: Counting characters in a thread

* [EMAIL PROTECTED] [2004-07-09T07:20:57] > How would I empty $string if it contained more than ten % characters? In > other words $string = "" if split(/%/, $string) > 10; -- rjbs pgpO8nLAuJ7WJ.pgp Description: PGP signature

AW: Counting characters in a thread

unless ($string =~ /%{0,10}/) { $string = undef; } -Ursprungliche Nachricht- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Gesendet: Freitag, 9. Juli 2004 13:21 An: [EMAIL PROTECTED] Betreff: Counting characters in a thread $string = "a%3A2%3A%7Bi%3A0%3Bs%3A3%3A%22489%22%3Bi%3A1

Re: Counting characters in a thread

On Friday 09 July 2004 04:20, [EMAIL PROTECTED] wrote: > $string = > "a%3A2%3A%7Bi%3A0%3Bs%3A3%3A%22489%22%3Bi%3A1%3Bs%3A32%3A%22a85a44c18 >81523798bc155a5369e1226%22%3B%7D" > > How would I empty $string if it contained more than ten % characters? > In other words > > $string = > "a%3A2%3A%7Bi%3A0%

Re: Counting characters in a thread

On Friday 09 July 2004 04:26, Ricardo SIGNES wrote: > * [EMAIL PROTECTED] [2004-07-09T07:20:57] > > > How would I empty $string if it contained more than ten % > > characters? In other words > > $string = "" if split(/%/, $string) > 10; That will produce the warning: Use of implicit split to @_ is

Re: AW: Counting characters in a thread

On Friday 09 July 2004 04:31, Bastian Angerstein wrote: > > unless ($string =~ /%{0,10}/) { > $string = undef; > } That will only work if the % characters are all next to each other. perldoc -q "How can I count the number of occurrences of a substring within a string" John -- use Perl; progr

RE: Use of uninitialized value in string eq

FyD wrote: > Hi, > > Here is a short perl script: > >open (FILE, "<$START"); First of all, we ALWAYS recommend you put "use strict" at the top of your program and delcare your variables with "my". That can save you from lots of trouble with typos, etc. Also, always check the return value fro

Re: Multiple results page problem

CGI questions are often better addressed to [EMAIL PROTECTED] > > Hi everybody, > > I'm stuck trying to output multiple search results. > > I wrote this code but, and it outputs correctly the number of pages, but it > shows only the results for the first page no mater what link do I click. > >

Re: ${DBI::errstr} vs $DBI::errstr

In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Perl.Org) writes: >On 8 Jul 2004 13:41:28 -, Peter Scott wrote >> Also, look at the RaiseError property of DBI connections. I gave up >> referring to DBI::errstr some years ago. > >Looks good, except I think I noticed yesterday that if the er

RE: Multiple results page problem

Thanks. I'll try to repair. Hope to solve it soon. Cristi Ocolisan -Original Message- From: Wiggins d Anconia [mailto:[EMAIL PROTECTED] Sent: 9 iulie 2004 17:02 To: Cristi Ocolisan; [EMAIL PROTECTED] Subject: Re: Multiple results page problem CGI questions are often better addressed to

Re: where to put modules?

thank you everyone for the replies. one quick question though. is it customary to thank people for replies? or does it just cause more unecessary traffic on the newsgroup? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

delete vs undef

i want to remove items from a hash then later see if they exist using defined(). for example: delete($hash{MYKEY}); # blah blah if (defined($hash{MYKEY})) { # do blah blah } which should i use? delete() or undef()? obviously i could write a small script to test this (which i'm goi

Re: $^T inconsistant?

On Fri, 9 Jul 2004 02:55:41 -0700, John W. Krahn wrote > > Perhaps you should keep the localtime data local to the sub (sort of > like a closure.) > > { my %data; > sub getDateTime { > unless ( %data ) { > @data{ qw[sec min hour day mon year wday yday isdst] } = > local

Re: delete vs undef

> i want to remove items from a hash then later see if they exist using > defined(). for example: > You don't see if they exist using 'defined', you see if they are defined :-). To see if they exist, you use 'exists'. Which hits to the heart of your questions below. > delete($hash{MYKEY}); Th

Is "Thank you" okay? [was: where to put modules?]

Christopher J. Bottaro wrote: thank you everyone for the replies. one quick question though. is it customary to thank people for replies? or does it just cause more unecessary traffic on the newsgroup? I'm pretty new here, and don't know for sure if it's considered customary on this list or not,

Re: delete vs undef

On Fri, 9 Jul 2004 09:28:13 -0600, Wiggins d Anconia wrote > > > also, are these functionally equivalent? > > $myvar = undef(); > > undef($myvar); > > > > To my knowledge. Wait a second...I always thought undef was a constant value. Is it always a function or are there both? I don't know that

perl foreach loop

I am trying to write a perl program but I keep getting errors and I was wondering if you can give me some pointers that might help. The program is supposed to read from a file which has a list of server names then put this names in an array. I then used a foreach loop that is supposed to read e

Re: perl foreach loop

Selenis B Leguisamon said: >I am trying to write a perl program but I keep getting errors and I was >wondering if you can give me some pointers that might help. The program is >supposed to read from a file which has a list of server names then put >this names in an array. I then used a foreach l

Re: perl foreach loop

> > I am trying to write a perl program but I keep getting errors and I was > wondering if you can give me some pointers that might help. The program is > supposed to read from a file which has a list of server names then put > this names in an array. I then used a foreach loop that is supposed

Request to help beautify a Perl-based menu script

Hello, This is the current state of my text-based Perl "menu" script. It pretty much does everything I want with the exception of colors (two of my highly influential users want colors). I will therefore appreciate any help or pointers. --

RE: Request to help beautify a Perl-based menu script

[EMAIL PROTECTED] wrote: > Hello, > > This is the current state of my text-based Perl "menu" script. It > pretty much does everything I want with the exception of colors (two > of my highly influential users want colors). I will therefore > appreciate any help or pointers. Use Curses.pm for stu

Re: delete vs undef

On Friday 09 July 2004 17:14, Christopher J. Bottaro wrote: > i want to remove items from a hash then later see if they exist using [..] > which should i use? delete() or undef()? obviously i could write a small > script to test this (which i'm going to know), but i'd also like to hear > from an

Help with "use"

Hello all, Can "use" be used in a sub routine that is kept external? Ex. Program 1. #!/bin/perl require '/home/users/me/foo.pl'; exit; Foo.pl sub bar { use strict; use fcntl; use AnyDBM_File; }

Re: Help with "use"

> > Hello all, > Can "use" be used in a sub routine that is kept external? > Ex. > Program 1. > > #!/bin/perl > require '/home/users/me/foo.pl'; > exit; > > > Foo.pl > > sub bar { > use strict; > use fcntl; > use AnyDBM_File; > } > Did you try it? Did it return an error? Note that 'require'

RE: Help with "use"

I am receiving "/home/users/me/foo.pl did not return a true value at ./program1.pl at line 2" where line 2 is the "require". Any ideas? -Original Message- From: Wiggins d Anconia [mailto:[EMAIL PROTECTED] Sent: Friday, July 09, 2004 1:24 PM To: BOLCATO CHRIS (esm1cmb); [EMAIL PROTECTED]

RE: Help with "use"

BOLCATO CHRIS (esm1cmb) wrote: > Hello all, > Can "use" be used in a sub routine that is kept external? Yes. > Ex. > Program 1. > > #!/bin/perl > require '/home/users/me/foo.pl'; > exit; > > > Foo.pl > > sub bar { > use strict; > use fcntl; > use AnyDBM_File; > } This would not be a typical

RE: Help with "use"

BOLCATO CHRIS (esm1cmb) wrote: > I am receiving "/home/users/me/foo.pl did not return a true value at > ./program1.pl at line 2" > where line 2 is the "require". That's the semantics of "require" (see perldoc -f require). The standard idiom is to place 1; at the end of foo.pl, so that the la

Re: delete vs undef

Philipp Traeder wrote: I don't know what an expert would say, Neither do I. :) but for testing if a hash contains an element, I normally use "exists": Your wording "if a hash contains an element" is ambigous IMO. A hash or associative array consists of key/value pairs, where the keys are indexes an

Could anyone please help with PERL file association.

Hi Team , I am always grateful to you for helping. I used PERL in UNIX and not familiar with Win-2000 environment. I installed ActiveState PERL on Windows-2k but it did not setup MSWin32 file association. so now when I double-click on myscript.PL rather than executing my module it opens it with No

RE: Help with "use"

It doesn't seem to be foo.pl that is causing the error is seems to be coming from "use AnyDBM_File;" Could this be? That AnyDBM_File doesn't return a true vlaue? -Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: Friday, July 09, 2004 1:36 PM To: BOLCATO CHRIS (esm1cmb

RE: Help with "use"

BOLCATO CHRIS (esm1cmb) wrote: > It doesn't seem to be foo.pl that is causing the error is seems to be > coming from "use AnyDBM_File;" Why do you say that? > Could this be? That AnyDBM_File doesn't return a true vlaue? Did you add 1; To the end of foo.pl? You need to. -- To unsubscribe,

Re: Could anyone please help with PERL file association.

Right mouse click on Start,select Explore, locate the file, Right mouse click on the file, click on Open with, select other program, then locate the Perl interpreter (something like perl???.exe). You could select always use to lock the file association. __ William Ampeh (x3

RE: Help with "use"

I added 1; Inside sub foo and it didn't work, but I just added it to the end of foo.pl and it worked! I don't get it? But thanks. -Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: Friday, July 09, 2004 1:49 PM To: BOLCATO CHRIS (esm1cmb); [EMAIL PROTECTED] Subject:

How to install when no c compiler allowed?

How do you move what is necessary from one machine to another machine of like architecture and operating system when NO c compiler allowed? We see the make install modules and the packaging list. Is there a module which will do this? If not would using the list from the make be the way o

Re: Could anyone please help with PERL file association.

Hi, I associted it with c:\Perl\bin\perl.584 it runs my module one time with perl but the module does not stay associated even though I check marked always associte with this program. Marco. [EMAIL PROTECTED] wrote: Right mouse click on Start,select Explore, locate the file, Right mouse c

RE: Help with "use"

Please bottom post > I added > 1; > Inside sub foo and it didn't work, but I just added it to the end of foo.pl > and it worked! > I don't get it? Inside 'foo' the 1 becomes the return value of the subroutine when it is called, at the end of the foo.pl library it becomes the return value of

LWP::Simple

Hi All, Can I use LWP::Simple to check a local file that contains only URI's (http://www.website.com) each on a new line? Maybe something like this...? -- open(IN, "<$file") || die "Can't open $file: $!"; while () { -

Re: delete vs undef

On Friday 09 July 2004 19:25, Gunnar Hjalmarsson wrote: > Philipp Traeder wrote: > > I don't know what an expert would say, > > Neither do I. :) I think this is a good base for talking about hashes. ;-) > > but for testing if a hash contains an element, I normally use > > "exists": > > Your wordi

RE: Help with "use"

On Fri, 9 Jul 2004 13:36:26 -0400 , Bob Showalter wrote > BOLCATO CHRIS (esm1cmb) wrote: > > I am receiving "/home/users/me/foo.pl did not return a true value at > > ./program1.pl at line 2" > > where line 2 is the "require". > > That's the semantics of "require" (see perldoc -f require). > > Th

regex help : find % not within <>

Hello, I need to find all % characters in a string that are not element attributes. for syntax instance: some value% I need a regex that matches the % in value% but not in 100% because it is within angle braces. Is it possible or more complicated than regex? TIA, -John -- To unsubscribe

Re: regex help : find % not within <>

On Fri, 9 Jul 2004 15:17:20 -0400, perl.org wrote > > I need to find all % characters in a string that are not element > attributes. for syntax instance: > > some value% > > I need a regex that matches the % in value% but not in 100% because > it is within angle braces. > > Is it possible or

Could anyone please help with PERL file association.

Hi Team , I am always grateful for your help. when I double-click on myscript.PL rather than executing my module it opens it with Notes-editor. I did an ~Open-with on it and associted it with c:\Perl\bin\perl.584 this will run my module only one time with perl, and the module does not stay associ

Re: delete vs undef

On Friday 09 July 2004 08:14, Christopher J. Bottaro wrote: > > i want to remove items from a hash then later see if they exist using > defined(). for example: > > delete($hash{MYKEY}); > # blah blah > if (defined($hash{MYKEY})) { > # do blah blah > } > > which should i use? delete()

forking

I need some assistance. I wrote a script that takes an array of IP addresses, and in a foreach loop uses a subroutine to make a few SNMP connections, and writes results to a flat file.(snipet below) For 1000 IP addresses, it takes 17 minutes. I wonder if there's a way to fork 10-20 (at a time) (

Re: Is "Thank you" okay? [was: where to put modules?]

Good point! Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote:Christopher J. Bottaro wrote: > thank you everyone for the replies. one quick question though. is > it customary to thank people for replies? or does it just cause > more unecessary traffic on the newsgroup? I'm pretty new here, and don't k

RE: Write to file with shared server certificate

> -Original Message- > From: Gunnar Hjalmarsson [mailto:[EMAIL PROTECTED] > Sent: Thursday, July 08, 2004 8:58 PM > To: [EMAIL PROTECTED] > Subject: Re: Write to file with shared server certificate > > > Ron Goral wrote: > > If I try to create the file using open(LOG,"+>>$logfile), the er

Re: warnings on old Perl

On Tue, 06 Jul 2004 20:18:53 +0200, Gunnar Hjalmarsson wrote > > But if you want to ensure that warnings is enabled, the equivalent of > using the -w switch is to give the $^W variable a true value. Note > that unlike "use warnings;", this enables warnings dynamically, not > lexically. Hi Gunnar,

Re: delete vs undef

ahh great, you all cleared it up perfectly for me, thank you. that perlfaq section was great also. Philipp Traeder wrote: > On Friday 09 July 2004 19:25, Gunnar Hjalmarsson wrote: >> Philipp Traeder wrote: >> > I don't know what an expert would say, >> >> Neither do I. :) > > I think this is a

Re: delete vs undef

perl.org wrote: > Wait a second...I always thought undef was a constant value. Is it always > a > function or are there both? I don't know that it matters but I prefer to > show the parens when I invoke a function, but everywhere in my code I have > $var = undef; its a function. it always retur

Re: delete vs undef

Philipp Traeder wrote: Gunnar Hjalmarsson wrote: Your wording "if a hash contains an element" is ambigous IMO. A hash or associative array consists of key/value pairs, where the keys are indexes and the values are considered to be the elements (I think). Ok - that's a possible terminology, and yes,

Re: Searching ahead in a file

> From: ml-perl[at]thepierianspring.org (Randy W. Sims) > > Once > your program allocates memory, it can never be freed even if you > undefine every variable in your script. Will that memory be re-used by the existing Perl process, or is it just leaked? "Terrorism is a symptom, not the diseas

Optiperl

Has anyone used Optiperl (http://www.xarka.com/optiperl/) and if so do you have any feedback on it? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Is "Thank you" okay? [was: where to put modules?]

--- jason corbett <[EMAIL PROTECTED]> wrote: > One observation I have made is that this list sometimes looks like a > help desk forum: Somebody asks a question, and get one or a few > replies, and that's it. I don't know if that's how it's supposed to > be, but personally I would like to see more o

Re: forking

> I need some assistance. > > I wrote a script that takes an array of IP addresses, and in a foreach > loop uses a subroutine to make a few SNMP connections, and writes > results to a flat file.(snipet below) > > For 1000 IP addresses, it takes 17 minutes. I wonder if there's a way > to fork 10-

Re: regex help : find % not within <>

> Hello, > > I need to find all % characters in a string that are not element attributes. > for syntax instance: > > some value% > > I need a regex that matches the % in value% but not in 100% because it is > within angle braces. > > Is it possible or more complicated than regex? > As your s

Re: regex help : find % not within <>

Try this: _BEGIN_ #!/usr/bin/perl use warnings; use strict; my $html = 'some value%'; $html =~ /(?:\<.+\>)?(.+\%)(?:\<.+\>)?/; print $1; _END_ HTH, Rod --- Wiggins d Anconia <[EMAIL PROTECTED]> wrote: > > Hello, > > > > I need to find all % characters in a string that are not element > attribu

Re: warnings on old Perl

Perl.Org wrote: Gunnar Hjalmarsson wrote But if you want to ensure that warnings is enabled, the equivalent of using the -w switch is to give the $^W variable a true value. Note that unlike "use warnings;", this enables warnings dynamically, not lexically. For modules, can I just put this after the

Re: Help with "use"

BOLCATO CHRIS (esm1cmb) wrote: I added 1; Inside sub foo and it didn't work, but I just added it to the end of foo.pl and it worked! I don't get it? the 1; at the end of a file you're sue()ing returns true for the use statement. otherwise it won't be true and therefore fail.. HTH Lee.M - Jupit

Re: Write to file with shared server certificate

Ron Goral wrote: Thanks again for the replies. I contacted my host and the shared SSL does indeed operate under its own name which is different from mine. It is possible to create files under such circumstances, but they must be created in a folder that is 0777. I'm not crazy about having a fold

Re: warnings on old Perl

Also on this subject, is there some easy syntax that will use warnings if it is supported or set $^W otherwise, so I don't have to go through all the scripts (the vendor has upgraded their Perl distro to 5.6 with the current release we haven't migrated to yet)? -- To unsubscribe, e-mail: [EMAIL P

Re: warnings on old Perl

Perl.Org wrote: Also on this subject, is there some easy syntax that will use warnings if it is supported or set $^W otherwise, so I don't have to go through all the scripts (the vendor has upgraded their Perl distro to 5.6 with the current release we haven't migrated to yet)? If you have made your

Re: Split the line with "|" character

Great explanation. Now it works well. Thanks to all and I appreciate all feedbak help. -Wil "Bob Showalter" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > Wil wrote: > > @data = split ("\|",$line); > > The double quotes are eating the backslash before split sees it. split() >

Re: warnings on old Perl

On Sat, 10 Jul 2004 00:59:08 +0200, Gunnar Hjalmarsson wrote > > If you have made your scripts pass $^W (or the -w switch) without > generating warnings, you obviously don't need the flexibility that > "use warnings;" may offer, so there is really no need to replace $^W > with "use warnings;" just

Re: Split the line with "|" character

> "Bob Showalter" <[EMAIL PROTECTED]> wrote in message > news:[EMAIL PROTECTED] > > > You should write it like: > > > >split(/\|/, $line) > > > > or > > > >split('\|', $line) > > > > this will work (but don't do it this way) see why? > > > >split("\\|", $line) I don't see why you shoul

Re: warnings on old Perl

Perl.Org wrote: Gunnar Hjalmarsson wrote: If you have made your scripts pass $^W (or the -w switch) without generating warnings, you obviously don't need the flexibility that "use warnings;" may offer, so there is really no need to replace $^W with "use warnings;" just because Perl is upgraded. Act

Re: warnings on old Perl

Perl.Org wrote: I'm not sure what the difference between strict and warning is (I have always used strict and resolved any "warnings" that can generate). Strictures normally triggers fatal errors that make your program stop, rather than warnings. Warnings are just printed to STDERR. After all, they

RE: How efficient is this permutation algorithm?

Sorry for the delay. I have been thinking about this problem off and on for the last 2 weeks. This is my second try. Could this be done any more efficiently? Thanks. #!/usr/bin/perl use warnings; use strict; my @data = 1 .. 4; # qw(man bites dog); permute([EMAIL PROTECTED]); sub permute { my

Re: Mail::Internet Mime::Entity object $part

Wiggins d Anconia wrote: Howdy group. In a recent post someone mentioned this url: http://www.perl.com/pub/a/2004/06/10/email.html Thanks for you input with the question about some code at that url Wiggins :) I think I'm a bit closer to getting it but here is what I'm getting: my $obj = Mail::In

Re: Is "Thank you" okay? [was: where to put modules?]

> "Jason" == Jason Corbett <[EMAIL PROTECTED]> writes: Jason> I consider myself to be relatively human, and assume that others who Jason> answer questions here do, too. ;-) IMO, saying "thanks" is good Jason> manners here just like in the rest of the world. I don't mind not being thanked. I