Re: Please help: perl run out of memory

Às 11:33 de 17/04/22, wilson escreveu: hello the experts, can you help check my script for how to optimize it? currently it was going as "run out of memory". $ perl count.pl Out of memory! Killed My script: use strict; my %hash; my %stat; To be honest you don't need the %stat, however

Re: Please help: perl run out of memory

On Sun, 2022-04-17 at 17:33 +0800, wilson wrote: > hello the experts, > > can you help check my script for how to optimize it? > currently it was going as "run out of memory". > > $ perl count.pl > Out of memory! > Killed I would use a database like Mariadb for this, not only to create a repor

Re: Please help: perl run out of memory

On Thu, 21 Apr 2022 07:12:07 -0700 al...@coakmail.com wrote: > OP maybe need the streaming IO for reading files. Which is what they were already doing - they used: while () { ... } Which, under the hood, uses readline, to read a line at a time. (where "HD" is their global fileh

Re: Please help: perl run out of memory

OP maybe need the streaming IO for reading files. Thanks On 2022-04-21 21:56, David Precious wrote: > On Thu, 21 Apr 2022 17:26:15 +0530 > "M.N Thanishka sree Manikandan" wrote: > >> Hi wilson >> Try this module file::slurp > > Given that the OP is running into memory issues processing an 80

Re: Please help: perl run out of memory

On Thu, 21 Apr 2022 17:26:15 +0530 "M.N Thanishka sree Manikandan" wrote: > Hi wilson > Try this module file::slurp Given that the OP is running into memory issues processing an 80+ million line file, I don't think suggesting a CPAN module designed to read the entire contents of a file into mem

Re: Please help: perl run out of memory

Hi wilson Try this module file::slurp Regards, Manikandan On Sun, 17 Apr, 2022, 15:03 wilson, wrote: > hello the experts, > > can you help check my script for how to optimize it? > currently it was going as "run out of memory". > > $ perl count.pl > Out of memory! > Killed > > > My script: > u

Re: Please help: perl run out of memory

I am not sure, but can Tie::Hash etc be used by tying hash to a local file to reduce the memory use? regards.

Re: Please help: perl run out of memory

Hi Wilson, Looking at the script I see some room for improvement. You currently declare %hash as a global variable, and keep it around forever. With tens of millions of rows that is quite a large structure to just have sitting around after you have build the %stat hash. So I would start by limitin

Re: Please help: perl run out of memory

I see nothing glaringly inefficient in the Perl. This would be fine on your system if you were dealing with 1 million items, but you could easily be pushing up against your system's limits with the generic data structures that Perl uses, especially since Perl is probably using 64-bit floats and int

RE: please help correct my script

From: Shaji Kalidasan [shajiin...@yahoo.com] Sent: Thursday, November 07, 2013 4:30 AM To: Wang, Li; beginners@perl.org Subject: Re: please help correct my script Dear Wang, It is actually writing the desired info to the output file "summaryOFdNdS.txt". Here is the content of

RE: please help correct my script

Dear Shaji Yes, that is what I want for the output file. Best Li From: Shaji Kalidasan [shajiin...@yahoo.com] Sent: Thursday, November 07, 2013 4:30 AM To: Wang, Li; beginners@perl.org Subject: Re: please help correct my script Dear Wang, It is actually writing

Re: please help correct my script

On Nov 7, 2013, at 2:28 AM, David Precious wrote: > On Wed, 6 Nov 2013 23:51:04 + > "Wang, Li" wrote: > >> Dear Perl Users >> >> I have hundreds of input files, named as geneName_paml_formated.mlc >> In each file, there are some contents similar as follows: >> >> w (dN/dS) for branches:

Re: please help correct my script

Dear Wang, It is actually writing the desired info to the output file "summaryOFdNdS.txt". Here is the content of the output file. In my case, I gave the filename "mydata.txt" as command line argument [content of summaryOFdNdS.txt] geneNamebranchtNSdN/dSdNdSN*dNS*dS mydata.txt5..1      0.043  1

Re: please help correct my script

On Wed, 6 Nov 2013 23:51:04 + "Wang, Li" wrote: > Dear Perl Users > > I have hundreds of input files, named as geneName_paml_formated.mlc > In each file, there are some contents similar as follows: > > w (dN/dS) for branches: 0.00010 1.07967 145.81217 0.00010 > dN & dS for each branch > b

Re: Please help to load script from secure server HTTPS in Safari and Opera

Jeremiah Foster wrote: > On Jan 5, 2010, at 1:03, Steve Bertrand wrote: > >> Jeremiah Foster wrote: >>> On Jan 4, 2010, at 11:49, Simphiwe Mkhize wrote: >>> Good new year Can any one please help me to solve problem with Safari, Google Chrome and Opera. my script has to loa

Re: Please help to load script from secure server HTTPS in Safari and Opera

On Jan 5, 2010, at 1:03, Steve Bertrand wrote: > Jeremiah Foster wrote: >> On Jan 4, 2010, at 11:49, Simphiwe Mkhize wrote: >> >>> Good new year >>> >>> Can any one please help me to solve problem with Safari, Google Chrome and >>> Opera. my script has to load from secure server HTTPS for

Re: Please help to load script from secure server HTTPS in Safari and Opera

Jeremiah Foster wrote: > On Jan 4, 2010, at 11:49, Simphiwe Mkhize wrote: > >> Good new year >> >> Can any one please help me to solve problem with Safari, Google Chrome and >> Opera. my script has to load from secure server HTTPS for security reason. >> It works fine from IE and Firefox. >>

Re: Please help to load script from secure server HTTPS in Safari and Opera

On Jan 4, 2010, at 11:49, Simphiwe Mkhize wrote: > Good new year > > Can any one please help me to solve problem with Safari, Google Chrome and > Opera. my script has to load from secure server HTTPS for security reason. > It works fine from IE and Firefox. > > Here are the errors I get >

Re: Please help me recover my Perl script.

>> >> What does it say in a hex editor? >> > > > # hexdump Test.pl > 000 > * > 0001090 > 0001094 I would take a guess and say don't waste anymore time on it. Put your energies in rewriting the program -- Owen -- To unsubscribe, e

Re: Please help me recover my Perl script.

> > What does it say in a hex editor? > # hexdump Test.pl 000 * 0001090 0001094 Cheers, Parag

Re: Please help me recover my Perl script.

>> >> I think it's from UTF-16 to UTF-8. >> >> > > That doesn't seem to work. > > When I try to view my roasted file through 'less' command I get > following > output: > > # less Test.pl > *"Test.pl" may be a binary file. See it anyway? * > > Is there a way I can convert this binary file to its i

Re: Please help me recover my Perl script.

> > I think it's from UTF-16 to UTF-8. > > That doesn't seem to work. When I try to view my roasted file through 'less' command I get following output: # less Test.pl *"Test.pl" may be a binary file. See it anyway? * Is there a way I can convert this binary file to its initial readable state.

Re: Please help me recover my Perl script.

On Sunday 27 Dec 2009 12:19:48 Shlomi Fish wrote: > On Friday 25 Dec 2009 09:07:53 Parag Kalra wrote: > > Can anyone please let me know how to use 'iconv' command with Perl > > script. > > > > I mean what should be my input and output file format while using 'iconv' > > with a Perl script which wil

Re: Please help me recover my Perl script.

On Friday 25 Dec 2009 09:07:53 Parag Kalra wrote: > Can anyone please let me know how to use 'iconv' command with Perl script. > > I mean what should be my input and output file format while using 'iconv' > with a Perl script which will help me recover my Perl script. > I think it's from UTF-16

Re: Please help me recover my Perl script.

> "Parag" == Parag Kalra writes: Parag> I was coding my Perl script in Notepad++ editor and it was on verge of Parag> completion. Parag> All of a sudden my machine rebooted. And after that I found all my data Parag> lost. It is containing series of 'NUL' characters. Welcome to Windows. Per

Re: Please help me recover my Perl script.

Can anyone please let me know how to use 'iconv' command with Perl script. I mean what should be my input and output file format while using 'iconv' with a Perl script which will help me recover my Perl script. Hey BTW Merry Christmas to all. :) Cheers, Parag On Fri, Dec 25, 2009 at 11:05 AM

Re: Please Help Me!

On Sat, Jul 25, 2009 at 05:48, Shawn H. Corey wrote: > Umar Draz wrote: >> >> As you can see its not works because there is no space after the word is >> So would you please help me how to solve this. >> > > Change the word boundary, \b, to a not-digit, \D. snip That will cause "0300-1234567" to f

Re: Please Help Me!

Umar Draz wrote: As you can see its not works because there is no space after the word is So would you please help me how to solve this. Change the word boundary, \b, to a not-digit, \D. -- Just my 0.0002 million dollars worth, Shawn Programming is as much about organization and comm

Re: Please Help me

Umar Draz wrote: > I want to print all mobile from above string. Mobile code always start > from 03. and not more than 4 digits. > So here I have use this regular expression. > while($str =~ /(\b(0([3](\d\d)))+[-]+\d{7}|\ b(0([3](\d\d)))+\d{7})/g){   >      print "Your Mobile No. is " . $1 . "\n

Re: Please help me w/ my sub

Chas. Owens wrote: On Tue, Oct 14, 2008 at 02:15, Richard Lee <[EMAIL PROTECTED]> wrote: below sub works fine except the line where key is default. Instead of printing out PCMU only once, it's printing it out 40 times randomly.. Trying to figure out what I did wrong. snip I found your

Re: Please help me w/ my sub

Chas. Owens wrote: On Tue, Oct 14, 2008 at 02:15, Richard Lee <[EMAIL PROTECTED]> wrote: below sub works fine except the line where key is default. Instead of printing out PCMU only once, it's printing it out 40 times randomly.. Trying to figure out what I did wrong. snip I found your

Re: Please help me w/ my sub

On Tue, Oct 14, 2008 at 02:15, Richard Lee <[EMAIL PROTECTED]> wrote: > below sub works fine except the line where key is default. > Instead of printing out PCMU only once, it's printing it out 40 times > randomly.. > Trying to figure out what I did wrong. snip I found your code to be very odd. Y

Re: Please help me w/ my sub

John, I think this is now fixed. Still looking to make sure its covering all basis.. sub codec_list { #my @codec_d = qw/0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 # 28 29 30 31 32 33 34 35--71 72--76 77--95 96--127/; my @codec_d = qw

Re: Please help me w/ my sub

John W. Krahn wrote: Richard Lee wrote: below sub works fine except the line where key is default. Instead of printing out PCMU only once, it's printing it out 40 times randomly.. Trying to figure out what I did wrong. Please leave me a feedback. thank you. 156 time(s) Codec(s) : unassign

Re: Please help me w/ my sub

Richard Lee wrote: below sub works fine except the line where key is default. Instead of printing out PCMU only once, it's printing it out 40 times randomly.. Trying to figure out what I did wrong. Please leave me a feedback. thank you. 156 time(s) Codec(s) : unassigned_38 185 time(s) Cod

Re: Please help critcize and shorten my sub code

Jenda Krynicky wrote: > > Only the loops that need to be labeled should be labeled. I agree. Apart from your spelling of 'labelled' :) Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Please help critcize and shorten my sub code

From: Peter Scott <[EMAIL PROTECTED]> > On Sun, 11 May 2008 02:05:06 +0200, Jenda Krynicky wrote: > > You do not need the label unless you need to jump out of some other > > loop than the innermost. In this case there are no nested loops so it > > would probably be better to skip the label. > >

Re: Please help critcize and shorten my sub code

On Sun, 11 May 2008 02:05:06 +0200, Jenda Krynicky wrote: > You do not need the label unless you need to jump out of some other > loop than the innermost. In this case there are no nested loops so it > would probably be better to skip the label. While I personally program the way you suggest, ta

Re: Please help critcize and shorten my sub code

Jenda Krynicky wrote: From: Richard Lee <[EMAIL PROTECTED]> Jenda Krynicky wrote: You may do something like this: for my $wanted ( [outsideroute_group_m => route_name => \$routename, route_group_id => \$routegroupid], [outsideroute_trunk_m => route_group_id => \$routeg

Re: Please help critcize and shorten my sub code

From: Richard Lee <[EMAIL PROTECTED]> > Jenda Krynicky wrote: > > You may do something like this: > > > > for my $wanted ( > > [outsideroute_group_m => route_name => \$routename, > > route_group_id => \$routegroupid], > > [outsideroute_trunk_m => route_group_id => \$routegroupid,

Re: Please help critcize and shorten my sub code

Jenda Krynicky wrote: From: Richard Lee <[EMAIL PROTECTED]> I dont know how to go through the array over and over again pending on my previous search so I ended up writing it like below which works.. but looks really really inefficient.. sub dd_fact { my $routename

Re: Please help critcize and shorten my sub code

From: Richard Lee <[EMAIL PROTECTED]> > I dont know how to go through the array over and over again pending on > my previous search so I ended up writing it like below which works.. but > looks really really > inefficient.. > > > sub dd_fact { > my $routename = shift; >

Re: Please help with convoluted script

On Sun, 2007-02-04 at 07:27 -0800, Tom Phoenix wrote: > On 2/3/07, Mathew Snyder <[EMAIL PROTECTED]> wrote: > > > my @date = (localtime)[3..5]; > > my $day = sprintf '%02d', $date[0] - 1; > > my $month= sprintf '%02d', $date[1] + 1; > > You shouldn't have to do arithmetic on the date

Re: Please help with convoluted script

Mathew Snyder schreef: > I need to make sure $day and $month are in 2-digit format Don't mix value and presentation. Variant-1: perl -wle' my $i = 0; my ($day, $month, $year) = map $_ + (0, 1, 1900)[$i++], (localtime)[3..5]; printf qq/%04d %02d %02d\n/, $year, $month, $day; '

Re: Please help with convoluted script

Rob Dixon wrote: > Mathew Snyder wrote: >> Tom Phoenix wrote: >>> On 2/9/07, Mathew <[EMAIL PROTECTED]> wrote: >>> I'm running this as a cron job 1 minute after midnight on Saturday nights (Sunday morning) so as to cover all of Saturday back through the previous Sunday. Does your su

Re: Please help with convoluted script

On Sun, 11 Feb 2007 03:51:17 -0500 Mathew Snyder <[EMAIL PROTECTED]> wrote: > Jeff Pang wrote: > >> #!/usr/bin/perl > >> > >> use warnings; > >> use strict; > >> > >> my @date = (localtime (time - (24*60*60)))[3..5]; > >> > >> foreach my $i (@date) { > >>print $i . "\n"; > >> } > >> >

Re: Please help with convoluted script

Mathew Snyder wrote: > Tom Phoenix wrote: >> On 2/9/07, Mathew <[EMAIL PROTECTED]> wrote: >> >>> I'm running this as a cron job 1 minute after midnight on Saturday >>> nights (Sunday morning) so as to cover all of Saturday back through the >>> previous Sunday. Does your suggestion mean I'd have t

Re: Please help with convoluted script

> >I need to make sure $day and $month are in 2-digit format so that wouldn't >work. > At least, not anyway I'm presently familiar with. I tried to use sprintf in >there but it failed because of not enough arguments. $day = '0' . $day if length($day) < 2; $month = '0' . $month if length($month

Re: Please help with convoluted script

Owen wrote: > On Sun, 11 Feb 2007 03:18:00 -0500 > Mathew Snyder <[EMAIL PROTECTED]> wrote: > >> Tom Phoenix wrote: >>> On 2/9/07, Mathew <[EMAIL PROTECTED]> wrote: >>> I'm running this as a cron job 1 minute after midnight on Saturday nights (Sunday morning) so as to cover all of Saturd

Re: Please help with convoluted script

On Sun, 11 Feb 2007 03:18:00 -0500 Mathew Snyder <[EMAIL PROTECTED]> wrote: > Tom Phoenix wrote: > > On 2/9/07, Mathew <[EMAIL PROTECTED]> wrote: > > > >> I'm running this as a cron job 1 minute after midnight on Saturday > >> nights (Sunday morning) so as to cover all of Saturday back through th

Re: Please help with convoluted script

Jeff Pang wrote: >> #!/usr/bin/perl >> >> use warnings; >> use strict; >> >> my @date = (localtime (time - (24*60*60)))[3..5]; >> >> foreach my $i (@date) { >>print $i . "\n"; >> } >> >> exit; >> >> I get this: >> >> 10 >> 1 >> 107 >> >> >> I still have to add 1 to the month. Is that r

Re: Please help with convoluted script

> >#!/usr/bin/perl > >use warnings; >use strict; > >my @date = (localtime (time - (24*60*60)))[3..5]; > >foreach my $i (@date) { >print $i . "\n"; >} > >exit; > >I get this: > >10 >1 >107 > > >I still have to add 1 to the month. Is that right? Also, the year still needs >to be fixed

Re: Please help with convoluted script

Tom Phoenix wrote: > On 2/9/07, Mathew <[EMAIL PROTECTED]> wrote: > >> I'm running this as a cron job 1 minute after midnight on Saturday >> nights (Sunday morning) so as to cover all of Saturday back through the >> previous Sunday. Does your suggestion mean I'd have to run it late >> Sunday nigh

Re: Please help with convoluted script

On 2/9/07, Mathew <[EMAIL PROTECTED]> wrote: I'm running this as a cron job 1 minute after midnight on Saturday nights (Sunday morning) so as to cover all of Saturday back through the previous Sunday. Does your suggestion mean I'd have to run it late Sunday night in order for it to cover Saturd

Re: Please help with convoluted script

I'm running this as a cron job 1 minute after midnight on Saturday nights (Sunday morning) so as to cover all of Saturday back through the previous Sunday. Does your suggestion mean I'd have to run it late Sunday night in order for it to cover Saturday back to the previous Sunday (since the timest

Re: Please help with convoluted script

On 2/3/07, Mathew Snyder <[EMAIL PROTECTED]> wrote: my @date = (localtime)[3..5]; my $day = sprintf '%02d', $date[0] - 1; my $month= sprintf '%02d', $date[1] + 1; You shouldn't have to do arithmetic on the date components, including all that mess about how many days are in a month

Re: please help find logic error in home-brewed brute force anagram solver/creator script

- Original Message - From: ""Wolcott, Kenneth A"" <[EMAIL PROTECTED]> Newsgroups: perl.beginners To: Sent: Friday, December 30, 2005 3:23 PM Subject: please help find logic error in home-brewed brute force anagram solver/creator script Hi; I have enclosed both the perl source and

Re: please help find logic error in home-brewed brute force anagram solver/creator script

Jupiter host has a good point about not reinventing the wheel but it might still be educational to fix this code. There's an interesting warning if you run this with '-w': word=NERO |NERO| |ENRO| |RNEO| |ONER| Use of uninitialized value in join or string at ./anagram.pl line 33. |NERO| Use o

Re: please help find logic error in home-brewed brute force anagram solver/creator script

Wolcott, Kenneth A wrote: Hi; I have enclosed both the perl source and the associated output of a bruce-force anagram script that I wrote that has a logic error in it that I can't find. Instead of a new wheel search cpan for Permutation -- To unsubscribe, e-mail: [EMAIL PROTECTED] For a

Re: Please help me to get CONVERTER script which XML file convert to text

On Thu, 13 Oct 2005 [EMAIL PROTECTED] wrote: > I need to perl scriptcode which is convert XML file to txt(TEXT). > Please any body help me how can i find or write this converter. Search Google for Perl's XML modules. XML::Simple might be a good one to start with. Look it up, read the documenta

Re: Please help me to get CONVERTER script which XML file convert to text

On Oct 13, 2005, at 8:35, [EMAIL PROTECTED] wrote: I need to perl scriptcode which is convert XML file to txt(TEXT). Please any body help me how can i find or write this converter. I try explain. This program must work on the OS Unix. So, this programm must convert XML file to text file. I

Mail::IMAPClient failing [was Re: Please help]

On Oct 5, [EMAIL PROTECTED] said: Please help me fix this. Please choose a more descriptive subject line next time. When I run it, I get the following message: Can't call method "select" on an undefined value at ./fof_imap1.pl line 12. This means that $imap is undefined, which means that

RE: Please Help!!! Newbie Question

Perl wrote: > Hi List, > > I have this script which actually returns the value of the filename > with extension but If the file name is something like > "c:\projects\text 009.txt" (having a space in filename which is > common in windows). > This script only returns "text" instead of returning ful

Re: Please Help!!! Newbie Question

Perl wrote: Hi List, I have this script which actually returns the value of the filename with extension but If the file name is something like "c:\projects\text 009.txt" (having a space in filename which is common in windows). This script only returns "text" instead of returning full name of fil

Re: Please Help!!! Newbie question

On Wednesday 31 August 2005 09:12 am, Perl wrote: > I am new to perl so I need some help from the list with this script. It > takes a value from command line and then returns afters processing. > For example, If value is "c:\projects\test 2005.txt" the script will > returns it as "test" (actually o

RE: Please Help!!! Newbie question

Perl wrote: > I am new to perl so I need some help from the list with this script. > It takes a value from command line and then returns afters processing. > For example, If value is "c:\projects\test 2005.txt" the script will > returns it as "test" (actually omitts any space in the directory or >

Re: PLEASE HELP

Angie wrote: Hi Kris, Hi Angie I'm afraid I can't help you any further. I just happened to unsubscribe yesterday and it worked straight away, with a confirmation to answer and a final confirmation that I was unsubscribed. >Thanks for the e-mail. Yes, I wrote from this addy, the one I s

RE: PLEASE HELP

Angie wrote: : I am sorry to bother the list folks with this, but I : am trying to get off this list. I have sent SEVERAL : unsubscribe from this list to : [EMAIL PROTECTED] and every other alias : provided in the welcome e-mail. No dice! Nothing! I : even wrote an e

RE: please help me to check why this perl script does not work!

> -Original Message- > From: Fei Li [mailto:[EMAIL PROTECTED] > Sent: Tuesday, May 31, 2005 6:59 PM > To: Chris Heiland > Cc: beginners@perl.org > Subject: Re: please help me to check why this perl script > does not work! > > Hi, Chris, > > Thank

Re: please help me to check why this perl script does not work!

wrote: > > > > -Original Message- > > From: Bob Showalter [mailto:[EMAIL PROTECTED] > > Sent: Sunday, May 29, 2005 5:41 AM > > To: Fei Li; beginners@perl.org > > Subject: Re: please help me to check why this perl script > > does not work! > >

RE: please help me to check why this perl script does not work!

> -Original Message- > From: Bob Showalter [mailto:[EMAIL PROTECTED] > Sent: Sunday, May 29, 2005 5:41 AM > To: Fei Li; beginners@perl.org > Subject: Re: please help me to check why this perl script > does not work! > > Fei Li wrote: > > I wish to sub

Re: please help me to check why this perl script does not work!

Fei Li wrote: I wish to submit some protein sequences via LWP:UserAgent to the http://www.cbs.dtu.dk/services/ChloroP/ The error message is given as follows: Webface ErrorWebface Error: Read: Field not declared; 'seqpaste' [snip] my $response = $browser->post('http://www.cbs.dtu

RE: Please help!

Jason Dusek wrote: > I have code that looks like this: > ... > my $funk = '/home/jdd/sbin/idlwave2outline.pl'; > my $jam = '/home/jdd/sbin/outline2html.pl -p -t'; > my $web_dir = '/home/jdd/www'; > ... > sub makedocs { > $code = $File::Find::name; > $name = $web_dir.'/'.$_; > system(

Re: Please help!

Wiggins d Anconia wrote: Backticks, qx(), but then it is usually discouraged, why call a program written in the same language by shelling out? I think it's silly too, but I honestly don't know any better. So I looked up perlipc, and it's given me alot to think about but it hasn't exactly narrow

Re: Please help!

Please use a better subject line > I really need help with that system call thing! Here it is again: > Patience is a virtue... > Hi List, > > I have code that looks like this: > > > # >#:# > #:#:#:#:# > #:#:#:#:#:# What's with the excessive comments? > my $funk = '/home/jdd/s

Re: Please help me! Thanks.

On Dec 17, 2003, at 9:36 AM, Randal L. Schwartz wrote: "Drieux" == Drieux <[EMAIL PROTECTED]> writes: Drieux> neat solution, minor problem is that Math::Fraction Drieux> is not a 'default' module yet. And if that's a problem for you, you aren't using Perl properly yet. could well be. help clarify

Re: Please help me! Thanks.

> "Drieux" == Drieux <[EMAIL PROTECTED]> writes: Drieux> neat solution, minor problem is that Math::Fraction Drieux> is not a 'default' module yet. And if that's a problem for you, you aren't using Perl properly yet. -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777

Re: Please help me! Thanks.

R. Joseph Newton wrote: > > Rob Dixon wrote: > > > > It's also worth pointing out here that rational values are almost always what is > > wanted in this sort of situation. > > > > The (very nice indeed) Math::Fraction module lets you do just this. The only > > changes to the code are to initialise

Re: Please help me! Thanks.

Rob Dixon wrote: > Hacksaw wrote: > > > > > now, a stupid solution is: > > > > > > for (my $value = -1000; $value <= 1000; $value += 100) { > > > print $value/1000, "\n"; > > > } > > > > > > hehe, > > > > > > > Sadly, it's not as stupid as you think. Unless I misunderstand things, what > >

Re: Please help me! Thanks.

On Dec 16, 2003, at 7:16 AM, Rob Dixon wrote: [..] Rob use strict; use warnings; use Math::Fraction; for (my $value = frac -1; $value <= 1; $value += 0.1) { print $value->decimal, "\n"; } [..] neat solution, minor problem is that Math::Fraction is not a 'default' module yet.

Re: Please help me! Thanks.

Hacksaw wrote: > > > now, a stupid solution is: > > > > for (my $value = -1000; $value <= 1000; $value += 100) { > > print $value/1000, "\n"; > > } > > > > hehe, > > > > Sadly, it's not as stupid as you think. Unless I misunderstand things, what > you are seeing here is a problem called IEE

Re: Please help me! Thanks.

Paul Johnson wrote: > On Tue, Dec 16, 2003 at 02:25:42PM +0800, pagoda wrote: > > > now, a stupid solution is: > > > > for (my $value = -1000; $value <= 1000; $value += 100) { > > print $value/1000, "\n"; > > } > > > > hehe, > > Not so stupid, really. If you can keep most of your maths co

Re: Please help me! Thanks.

On Tue, 16 Dec 2003, pagoda wrote: > > for (my $value = -1; $value <= 1; $value += 0.1) { > print "$value\n"; > } Hi, I don't know if it might be helpful, but the following code works better: for ($value = -1; $value <= 1; $value += 0.1) { printf ("%.1f\n",$value); } This p

RE: Please help me! Thanks.

pagoda <[EMAIL PROTECTED]> wrote: : Take a look at the first question in perlfaq4: Why am I getting long decimals (eg, 19.94999) instead of the numbers I should be getting (eg, 19.95)? HTH, Charles K. Clarkson -- Head Bottle Washer, Clarkson Energy Homes, Inc. Mobile Home Specialists

Re: Please help me! Thanks.

On Tue, Dec 16, 2003 at 02:25:42PM +0800, pagoda wrote: > now, a stupid solution is: > > for (my $value = -1000; $value <= 1000; $value += 100) { > print $value/1000, "\n"; > } > > hehe, Not so stupid, really. If you can keep most of your maths confined to integers you will have fewer

Re: Please help me! Thanks.

> now, a stupid solution is: > > for (my $value = -1000; $value <= 1000; $value += 100) { > print $value/1000, "\n"; > } > > hehe, > Sadly, it's not as stupid as you think. Unless I misunderstand things, what you are seeing here is a problem called IEEE 754 floating point. I'm sure th

Re: Please help me! Thanks.

now, a stupid solution is: for (my $value = -1000; $value <= 1000; $value += 100) { print $value/1000, "\n"; } hehe, - Original Message - From: "pagoda" <[EMAIL PROTECTED]> To: "begin begin" <[EMAIL PROTECTED]> Sent: Tuesday, December 16, 2003 1:54 PM Subject: Please help me!

Re: Please help!

> I'm an absolute beginner to Perl. I need to write a script that will take tables from a SQL server database, somehow get them into HTML format, and automatically generate an email to a list of users containing the info I just converted into HTML. All I can seem to find online is generating autom

Re: Please help!

On Nov 13, 2003, at 1:14 PM, [EMAIL PROTECTED] wrote: Hi- I'm an absolute beginner to Perl. I need to write a script that will take tables from a SQL server database, somehow get them into HTML format, and automatically generate an email to a list of users containing the info I just converted

RE: Please Help: Perl-TK: how to get a double-click in one Listbox?

On Thu, 25 Sep 2003 19:34:52 +0530, "Chetak Sasalu M" <[EMAIL PROTECTED]> wrote: > > Hi, > Any place to ask perl-xml questions and questions about schema? All of the lists hosted by perl.org are available on a Lists List page at: http://lists

RE: Please Help: Perl-TK: how to get a double-click in one Listbox?

bject: RE: Please Help: Perl-TK: how to get a double-click in one Listbox? On Thu, 25 Sep 2003 08:09:23 +0200, [EMAIL PROTECTED] wrote: > > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] > Sen

RE: Please Help: Perl-TK: how to get a double-click in one Listbox?

On Thu, 25 Sep 2003 08:09:23 +0200, [EMAIL PROTECTED] wrote: > > > -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > Sent: Wednesday, September 24, 2003 3:29 PM > To: [EMAIL PROTECTED] > Subject: Perl-TK: how to get

Re: please help !! pattern match

"Pandey Rajeev-A19514" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > Hi , Hello > > I need some help me to extract a pattern. The delimiters is a pair of "abcd" and "efgh". Can some one help me with an efficient use of Greedy and non greedy matches, look ahead and lookbehind feat

Re: Please help !! Socket

Pandey Rajeev-A19514 wrote: Hi, I want to create differnent Socket Handles in a function and the function creates the created Socket Handle.. my $sock = gensym(); I am getting the same instance of Handle "S". Please some one tell me how to create different instances of sockets in perl. Regards

Re: Please help... struggling beginner.

Denham Eva said: > Hello, > > I am very much a novice at perl and probably bitten off more than I can > chew > here. > I have a file, which is a dump of a database - so it is a fixed file > format. > The problem is that I am struggling to manipulate it correctly. I have > been > trying for two day

Re: Please help... struggling beginner.

On Mon, Jun 23, 2003 at 10:43:07AM +0200 Denham Eva wrote: > I am very much a novice at perl and probably bitten off more than I can chew > here. > I have a file, which is a dump of a database - so it is a fixed file format. > The problem is that I am struggling to manipulate it correctly. I have

Re: Please Help!! Error 401.3 Unauthorized: Unauthorized due to ACL on resource

Nancy Ford wrote: > I'm trying to run my first Perl script on a WinNT server. I get a logon box. > If I enter my username and password, it lets me in. If I cancel out or enter > the username and password of someone who is not in the Administrator's > group, I get the following error. > > HTTP Err

Re: Please Help!! Error 401.3 Unauthorized: Unauthorized due to ACL on resource

Nancy Ford wrote: > I'm trying to run my first Perl script on a WinNT server. I get a logon box. > If I enter my username and password, it lets me in. If I cancel out or enter > the username and password of someone who is not in the Administrator's > group, I get the following error. Is this CGI?

Re: Please help !! Locking mail before delivery

There seems to be no real clean way of doing this, I can think of two ways. 1) Modify your smtp server ( sendmail ) not to process the queue automatically. If you are using sendmail you would the start up script would have sendmail -bd -q5m remove the -q5m after the end of the processing cl

Re: Please help Simple Perl programm

From:"Alfa rOMEO" <[EMAIL PROTECTED]>To:[EMAIL PROTECTED]:Please help Simple Perl programmDate:Fri, 06 Dec 2002 21:32:22 +Mime-Version:1.0Content-Type:text/plain; format=flowedMessage-ID:<[EMAIL PROTECTED]> Plain Text Attachment [ Save to my Yahoo! Briefcase | Download File ] >>Hi,>>>I

  1   2   >