Re: [OT] Is there a policy regarding subscrjbers with challenge/respo nse mail filters?

Offer Kaye wrote: On 6/6/05, Chris Devers wrote: Or -- shock horror -- get a gmail / hotmail / yahoo / etc account Why *horror*? Gmail rocks :) Really? Why does it take two days to get here? Or are you in a really, really different timezone? ;-) John -- use Perl; program fulfillment

Re: [OT] Is there a policy regarding subscrjbers with challenge/respo nse mail filters?

On 6/6/05, Chris Devers wrote: > > Or -- shock horror -- get a gmail / hotmail / yahoo / etc account Why *horror*? Gmail rocks :) Email me if you want an invitation. Cheers, -- Offer Kaye -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: using open3 to interact with external program

Here is what I now have... use IPC::Open3; use strict; use warnings; before IPC::Open3 local(*HIS_IN, *HIS_OUT, *HIS_ERR); $childpid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, 'gpg --edit root'); Make sure open3 worked open3(...) or die $!; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For a

Module name space collision

I am having trouble defining a few interrelated modules. I made some progress based on this advice (http://readlist.com/lists/perl.org/beginners/0/2844.html) but am now having another problem Basically, I want to have: 1) a set of configuration variables stored in the local web space.

Re: xml parser

Dermot Paikkos wrote: > Hi, > > I need to create a cgi program that will parse an xml file for > output. I haven't began to write anything yet but had a look at the > xml file I am going to work with. The snippet below contains 3 > records. > > My question is what would be the best (easiest/f

Re: xml parser

On Wed, 8 Jun 2005, Dermot Paikkos wrote: > My question is what would be the best (easiest/fastest) way to parse > the file. Should I try and set the record separator to something like > > $/ = "\n"; > > Or should I use a XML::Parser (which looks a bit scary) or > XML::Simple (my first attempt at

Re: using open3 to interact with external program

D. J. Birkett wrote: > Thomas Bätzler wrote: > >> D. J. Birkett <[EMAIL PROTECTED]> asked: >> >>> OK I've tried altering my code as you suggested, replacing the >>> regexes with ones that would work. gpg still just sits there as soon >>> as it has entered it's intereactive mode, and perl doesn't

RE: perl question - unused variables

You're right; I'm not using 'use strict;' at the moment. But if I declare a variable called '$nothing' in a script on working on now, I get: Useless use of a variable in void context at mail_test line 11. Name "main::nothing" used only once: possible typo at mail_test line 11. If I use 'use

RE: perl question - unused variables

Ryan Frantz wrote: > I'm (very) new to Perl but I thought there was an easier way to do > this. I use the '-w' switch when specifying my interpreter at the > beginning of my script: > > #!/usr/bin/perl -w > > and it always tells me if I have a declared variable that doesn't get > used. > > ry

RE: perl question - unused variables

I'm (very) new to Perl but I thought there was an easier way to do this. I use the '-w' switch when specifying my interpreter at the beginning of my script: #!/usr/bin/perl -w and it always tells me if I have a declared variable that doesn't get used. ry -Original Message- From: Bob Sho

RE: perl question - unused variables

Troy S wrote: > How can i automatically detect unused variables in Perl? > > i delcrae variables like: > my $abc; > > but don't use $abc within the subroutine. > > how can i get perl to autmatically tell me that $abc is not being used > (other than the declaration) Possibly use the output o

perl question - unused variables

How can i automatically detect unused variables in Perl? i delcrae variables like: my $abc; but don't use $abc within the subroutine. how can i get perl to autmatically tell me that $abc is not being used (other than the declaration) evhorig -

Re: using open3 to interact with external program

Zentara wrote: Since you are not showing us your code, we can only guess. My guess is that you are not setting up the gpg command properly. Here is what I now have... use IPC::Open3; local(*HIS_IN, *HIS_OUT, *HIS_ERR); $childpid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, 'gpg --edit root'); sle

xml parser

Hi, I need to create a cgi program that will parse an xml file for output. I haven't began to write anything yet but had a look at the xml file I am going to work with. The snippet below contains 3 records. My question is what would be the best (easiest/fastest) way to parse the file. Should

Re: using open3 to interact with external program

Thomas Bätzler wrote: D. J. Birkett <[EMAIL PROTECTED]> asked: OK I've tried altering my code as you suggested, replacing the regexes with ones that would work. gpg still just sits there as soon as it has entered it's intereactive mode, and perl doesn't seem to be passing any commands to it

finding the right non printing non word character

Hi guys I'm trying to find a character for use in a regex pattern that is non printing and non word. I've been using \0 and \xFF as a means of marking up and splitting a string but have just found out that the regex engine thinks that they are word characters, as in being matched by \w I need a

re: blessing a class

Thank you all for your inputs. I am busy reading all the material. I am sure I will have questions. -rs -- It's all a matter of perspective. You can choose your view by choosing where to stand. Larry Wall --- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL

Re: E and pod2html translation problem

On 6/7/05, Offer Kaye wrote: > Hi all, > I have a POD file with the following link: > L > podchecker complained about this ("node '$/' contains non-escaped | or > /"), so I looked at "perlpod" and read that I should use "E" > instead of a literal "/" inside an "L<...>" link. > But now, after runnin

Re: How to change the value of a Hash Key

Mallik wrote: Hi, Hello, I have a below hash (printed using Dumper). $VAR1 = { 'Technologies':'Optical':'Dense Wavelength Division Multiplexing (DWDM)' }; $VAR2 = { 'typeInfoSortKey' => '', 'mdfName' => 'Linear with Optical Add/Drop Multiplexing (OADM)

RE: How to change the value of a Hash Key

Hello Mallik, you asked: > I want to accomplish some thing like this... > > %hash = ( > "abc" => "mallik", > "xyz" => "arjun", > "mno" => "priya" > ); > > Need be changed to > > %hash = ( > "123" => "mallik", > "243" => "arjun", > "532" => "priya" > ); > > The key valu

Re: How to change the value of a Hash Key

The following code may be not simple: ===code=== #!/usr/bin/perl use warnings; use strict; my %hash = ("abc"=>"mallik","xyz"=>"ariun","mno"=>"priya"); my %hash2 = ("abc"=>"123","xyz"=>"243","mno"=>"532"); foreach (keys %hash2) { $hash{$hash2{$_}} = $hash{$_}; delete $hash{$_}; } foreach (keys

RE: How to change the value of a Hash Key

Hi Thomas, Thanks for your reply. I want to accomplish some thing like this... %hash = ( "abc" => "mallik", "xyz" => "arjun", "mno" => "priya" ); Need be changed to %hash = ( "123" => "mallik", "243" => "arjun", "532" => "priya" ); The key value abc is changed to 123 a

Re: find and replace large blocks

On Jun 8, 2005, at 8:44, Ing. Branislav Gerzo wrote: Offer Kaye [OK], on Tuesday, June 7, 2005 at 17:04 (+0300) contributed this to our collective wisdom: OK> There's no need to escape metachars in the replacement part. Without OK> modifiers (such as "e" or "x") the replacement part is treat

Re: Removing *some* XML Character encodings with regular expression

Toby Stuart [TS], on Wednesday, June 8, 2005 at 16:47 (+1000 ) made these points: TS> Before: $s = "abc@123"; TS> After : $s should only contain: "abc@123" TS> I've tried a few things with ranges etc. but can't get it. Obviously I TS> could check if the number is <= 29 and then replace but would

RE: Removing *some* XML Character encodings with regular expressi on

Toby Stuart <[EMAIL PROTECTED]> asked: > I'm trying to remove chars 00-29 from an XML document and > need a regular expression to do so... > > Before: $s = "abc@123"; > After : $s should only contain: "abc@123" $s =~ s/(&#(\d+);)/$2<=29?"":$1/eg; HTH, Thomas -- To unsubscribe, e-mail: [EMAIL