Re: map HoAoA

2010-10-12 Thread John W. Krahn
Shlomi Fish wrote: On Wednesday 13 October 2010 06:39:03 Mike McClain wrote: I've looked at this for a few days but still can't see 'why' I get what I do. Why do @arrays and @seconds not have the same number of elements? Thanks, Mike Reformatting due to my mailer's limitations: #!/usr

Out of Memory!

2010-10-12 Thread Panda-X
Hi List, My script is running on WinXP, Dos shell, which is a server program. It works fine, unless it will pops-up a "Out of Memory!" and stop running per each few days! Could someone tell me this error message is coming from Perl ? or from the Dos shell ? Thanks! ex

Re: map HoAoA

2010-10-12 Thread Shlomi Fish
Hi Mike, On Wednesday 13 October 2010 06:39:03 Mike McClain wrote: > I've looked at this for a few days but still can't see 'why' > I get what I do. > Why do @arrays and @seconds not have the same number of elements? > Thanks, > Mike > Reformatting due to my mailer's limitations: > #!/usr/b

Re: map HoAoA

2010-10-12 Thread John W. Krahn
Mike McClain wrote: I've looked at this for a few days but still can't see 'why' I get what I do. Why do @arrays and @seconds not have the same number of elements? Thanks, Mike { my %HoAoA = ( a => [ [ qw / aa1 aa2 / ], [ qw / ab1 ab2 / ] ], b => [ [ qw / ba1 ba2 /

Re: Sending an E-Mail

2010-10-12 Thread Shlomi Fish
On Wednesday 13 October 2010 07:50:58 Shlomi Fish wrote: > Hi Mark, > > On Wednesday 13 October 2010 04:08:13 Mark wrote: > > On 10/10/10 3:50 AM, Shlomi Fish wrote: > > > Looking at your code, I see that you process the E-mail message using > > > regular expressions. Please don't do that and use

Re: Sending an E-Mail

2010-10-12 Thread Shlomi Fish
Hi Mark, On Wednesday 13 October 2010 04:08:13 Mark wrote: > On 10/10/10 3:50 AM, Shlomi Fish wrote: > > Looking at your code, I see that you process the E-mail message using > > regular expressions. Please don't do that and use a CPAN module. > > I'm not sure I understand the admonishment.

map HoAoA

2010-10-12 Thread Mike McClain
I've looked at this for a few days but still can't see 'why' I get what I do. Why do @arrays and @seconds not have the same number of elements? Thanks, Mike { my %HoAoA = ( a => [ [ qw / aa1 aa2 / ], [ qw / ab1 ab2 / ] ], b => [ [ qw / ba1 ba2 / ], [ qw / bb1 bb2 / ], [

Re: Replace digit by equivalent in words.

2010-10-12 Thread Jon Hermansen
Hi Pawan, For converting integers to their English equivalents, use Lingua::En::Inflect. # http://search.cpan.org/~dconway/Lingua-EN-Inflect-1.892/lib/Lingua/EN/Inflect.pm#CONVERTING_NUMBERS_TO_WORDS On Tue, Oct 12, 2010 at 8:16 PM, pawan kumar wrote: > Hi Folks, > I need an help.I

Replace digit by equivalent in words.

2010-10-12 Thread pawan kumar
Hi Folks, I need an help.I am trying to read the file contents line by line and if there are any number in the word (like 1,2,...) then i hav to replace that digit by its equivalent in terms of words. Ex:if input is hi*5*go Output has to be hi*five*go..This changes has to be reflected

Re: Sending an E-Mail

2010-10-12 Thread Mark
On 10/10/10 3:50 AM, Shlomi Fish wrote: Looking at your code, I see that you process the E-mail message using regular expressions. Please don't do that and use a CPAN module. I'm not sure I understand the admonishment. Is it that, if I use regex to process the e-mail, then I don't *need* a C

Re: Calling all methods (URGENT)

2010-10-12 Thread Brian Fraser
If I understood you correctly, you want to see all the methods from a series of .pm files, right? I see two ways to do this: First, you could simply read the files manually, finding any lines that have 'sub' followed by a valid name (to avoid anonymous subroutines); since methods are subs with an a

Re: Perl Threads

2010-10-12 Thread Brian Fraser
The usual elevator example: http://www.perl.com/pub/2002/09/04/threads.html I'm not entirely sure if the article is dated (I used it a couple of months back as a personal introduction to threads in general, for whatever that counts), but if anything, the explanation on building a threaded Perl, an

Re: How to parse email header

2010-10-12 Thread Uri Guttman
> "SPS" == S Pratap Singh writes: SPS> There are other headers too and they are bit different than this SPS> one so can it be generalized. use a module. there are several which parse email headers. doing it yourself and with a regex is very difficult. uri -- Uri Guttman -- u...

Re: How to parse email header

2010-10-12 Thread Parag Kalra
And in case : could also be present as a part of data, you should probably look for regex as a delimiter for the split operation. Cheers, Parag On Tue, Oct 12, 2010 at 10:05 AM, Parag Kalra wrote: > Ok. > > I think simpler option here would be: > > 1. Assign the email header string to a varia

Re: How to parse email header

2010-10-12 Thread Parag Kalra
Ok. I think simpler option here would be: 1. Assign the email header string to a variable. 2. Split the variable (using delimiter : ) and assign the list values to a hash. 3. Keys of this hash would be the field attributes and values would be the actual values. 4. You can then either apply regex

Re: How to parse email header

2010-10-12 Thread S Pratap Singh
Here it is Return-path: Envelope-to: sea...@example.com Delivery-date: Sat, 14 Aug 2010 18:08:06 -0700 Received: from localhost.localdomain ([127.0.0.1]:58763 helo=[192.168.0.122]) by server.example.com with esmtpa (Exim 4.69) (envelope-from ) id 1OkRhm-000

Re: "Perl Elements to Avoid" Document on http://perl-begin.org/

2010-10-12 Thread Shlomi Fish
On Monday 11 October 2010 13:20:07 Dr.Ruud wrote: > On 2010-10-08 16:52, Shlomi Fish wrote: > > my ($arg1, $arg2, $arg3 ... ) = @_; > > Bad pattern: numbered names. Well, thanks for trimming out so much of my message. In any case, naturally, I didn't intend that you actually name the argumen

Re: How to parse email header

2010-10-12 Thread Parag Kalra
Could you please post an actual example of your email header. Cheers, Parag On Tue, Oct 12, 2010 at 9:20 AM, S Pratap Singh wrote: > Hello , > > I am trying to write a script which can parse email header and based on > certain criteria/parameter it will update the email subject detail in the

How to parse email header

2010-10-12 Thread S Pratap Singh
Hello , I am trying to write a script which can parse email header and based on certain criteria/parameter it will update the email subject detail in the database. I have written a code but it is taking too much time to execute the code and each process is utilizing 100% of its cpu resources allo

Re: "Perl Elements to Avoid" Document on http://perl-begin.org/

2010-10-12 Thread Dr.Ruud
On 2010-10-08 16:52, Shlomi Fish wrote: my ($arg1, $arg2, $arg3 ... ) = @_; Bad pattern: numbered names. -- Ruud -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: "Perl Elements to Avoid" Document on http://perl-begin.org/

2010-10-12 Thread Dr.Ruud
On 2010-10-10 03:09, Ron Bergin wrote: Have you considered including an example were it would be appropriate to use the C-style for loop, such as when the iterator needs to change by some value other than 1? Bad data structure. -- Ruud -- To unsubscribe, e-mail: beginners-unsubscr...@perl.or

Re: perl net::ssh module

2010-10-12 Thread Irfan Sayed
now getting following error: Key class 'Net::SSH::Perl::Key::RSA' is unsupported: Cannot find current script './igor_tar.pl' at /home/y/lib/perl5/5.8/FindBin.pm line 188 BEGIN failed--compilation aborted at /home/y/lib/perl5/5.8/FindBin.pm line 188. here is the latest code: my $host = "gwbl7001

Re: perl net::ssh module

2010-10-12 Thread Alexey Mishustin
10/12/2010, "Irfan Sayed" you wrote: >i am using this code : > >my $host = "abc.data.com"; > my $user = "ybici1"; > my $id_file = "/home/ybici1/.ssh/openid"; > my $ssh = Net::SSH::Perl->new($host,$user,$id_file); > my($stdout, $stderr, $exit) = $ssh->cmd("ls /homes/ybici1"); > print "$stdout\n";

Re: perl net::ssh module

2010-10-12 Thread Irfan Sayed
i am using this code : my $host = "abc.data.com"; my $user = "ybici1"; my $id_file = "/home/ybici1/.ssh/openid"; my $ssh = Net::SSH::Perl->new($host,$user,$id_file); my($stdout, $stderr, $exit) = $ssh->cmd("ls /homes/ybici1"); print "$stdout\n"; print "$stderr\n"; print "$exit\n"; but stil