Re: devices without division

2011-04-20 Thread Jenda Krynicky
> How to write a device funciton without using a '/' operator > > sub device_now($a, $b){ > my ($a, $b)=@; > > > > return $result; > > } > &device_now(6,3); That's "divide", not "device". Not sure it's the solution that the professor had in mind, but you can use exponentiation (in Pe

Re: sample distribution

2011-04-20 Thread Jenda Krynicky
From: Peter Scott > On Tue, 19 Apr 2011 16:29:16 -0700, ai nguyen wrote: > > > A population of 20 cows, each one has age and weight (known). Device > > this population into 2 group, each group has 10 cows. > > > > Questions: > > How to pick a cow on each group so that a distribution of AGE and W

Re: Nature of this list

2011-04-20 Thread Dermot
On 19 April 2011 16:00, Peter Scott wrote: ... > :[...] > : * If you think what you are writing may be taken in a way you didn't > : intend, please add a smiley :-) Many flame wars are stopped by a simple > : smiley! > : * No flames. If your fingers are burning as you are typing the email, it > :

unable to remove the ./ when using File::Find::name

2011-04-20 Thread Agnello George
Hi I have script where i need to go in to a directory and put all files in to a array if ( chdir ("$dirtemp") ) { find (sub { push @all , $File::Find::name}, "."); my %selectfiles = qw( /classes/mail.class.php classes/dealer.class.php classes/memcache.class.php classes/phpmailer classes/phpma

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Shlomi Fish
On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: > Hi > > I have script where i need to go in to a directory and put all files > in to a array > > if ( chdir ("$dirtemp") ) { > find (sub { push @all , $File::Find::name}, "."); > > my %selectfiles = qw( /classes/mail.class.php > classes

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Agnello George
On Wed, Apr 20, 2011 at 4:14 PM, Shlomi Fish wrote: > On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: >> Hi >> >> I have script where i need to  go in to a directory and put all files >> in to a array >> >> if ( chdir ("$dirtemp") ) { >>  find (sub { push @all , $File::Find::name}, "."); >

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Agnello George
On Wed, Apr 20, 2011 at 4:14 PM, Shlomi Fish wrote: > On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: >> Hi >> >> I have script where i need to  go in to a directory and put all files >> in to a array >> >> if ( chdir ("$dirtemp") ) { >>  find (sub { push @all , $File::Find::name}, "."); >

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Shlomi Fish
Hi Agnello, On Wednesday 20 Apr 2011 13:59:24 Agnello George wrote: > On Wed, Apr 20, 2011 at 4:14 PM, Shlomi Fish wrote: > > On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: > > > > You can remove the ./: > > > > [CODE] > > foreach my $filename (@all) > > { > >my $fn_wo_prefix =

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Agnello George
On Wed, Apr 20, 2011 at 4:34 PM, Shlomi Fish wrote: > Hi Agnello, > > On Wednesday 20 Apr 2011 13:59:24 Agnello George wrote: >> On Wed, Apr 20, 2011 at 4:14 PM, Shlomi Fish wrote: >> > On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: >> > >> > You can remove the ./: >> > >> > [CODE] >> >

Re: sample distribution

2011-04-20 Thread Shawn H Corey
On 11-04-19 07:29 PM, ai nguyen wrote: A population of 20 cows, each one has age and weight (known). Device this population into 2 group, each group has 10 cows. Questions: How to pick a cow on each group so that a distribution of AGE and WEIGHT on each group is similar. Show your strategy or/a

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Shawn H Corey
On 11-04-20 06:55 AM, Agnello George wrote: Thanks a lot , but was just wondering if i could ignore it in the File::Find function Yup. my @all = qw( /classes/mail.class.php classes/dealer.class.php classes/memcache.class.php classes/phpmailer classes/phpmailer/.htaccess classes/phpmailer/cla

Re: Nature of this list

2011-04-20 Thread Shawn H Corey
On 11-04-20 02:31 AM, shawn wilson wrote: given the proper precursory research Part of the problem is that beginners may not know that perldoc even exists, yet alone, know that "Quote and Quote-like Operators" is found in perlop. The search function for perldoc are very crude and http://pe

Re: devices without division

2011-04-20 Thread Saran
Here is the program use strict; use warnings; my ($div,$reminder) = ÷_now(20,4); print "Dividend: $div\nReminder: $reminder\n"; sub divide_now { my ($a,$b) = @_; my ($s,$n); for($n=1;;$n++) { $d+=$b; $s = $a - ($n*$b); retu

Re: Nature of this list

2011-04-20 Thread Luis Roca
On Apr 19, 6:25 pm, mer...@stonehenge.com ((Randal L. Schwartz)) wrote: > Here (and on monks and usenet and now StackOverflow), I'm (often) > reacting to bad code.  And I make no apologies for saying code is bad or > wrong or illpurposed or a security threat, if that's indeed what it is, > and I a

Re: Perl source code beautifier

2011-04-20 Thread Bruno Costacurta
Indeed Perl::Tidy and perltidy does perfectly the job. Thanks to all for your help. Bye, Bruno -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl

Re: sample distribution

2011-04-20 Thread ai nguyen
On Apr 20, 5:28 am, shawnhco...@ncf.ca (Shawn H Corey) wrote: > On 11-04-19 07:29 PM, ai nguyen wrote: > > > > > A population of 20 cows, each one has age and weight (known). > > Device this population into 2 group, each group has 10 cows. > > > Questions: > > How to pick a cow on each group so tha

Re: devices without division

2011-04-20 Thread Brian Fraser
On Wed, Apr 20, 2011 at 7:58 AM, Saran wrote: > Here is the program > > use strict; > use warnings; > > my ($div,$reminder) = ÷_now(20,4); Please don't call subs with &; It'll bite you in the arse eventually. You can read why in perldoc perlsub[0], or well, this mailing list. Brian. [0] htt

RE: sample distribution

2011-04-20 Thread Tim Lewis
Suppose that you want to sell the cows. You have two buyers, and each one is paying you $10,000 for 10 cows. You want to divide the cows as fairly as possible so that each buyer gets the same value. Who would you split the cows up? Does that help any? -Original Message- From: ai nguy

RE: sample distribution

2011-04-20 Thread Tim Lewis
Sorry about the typo. HOW would you split the cows up? -Original Message- From: Tim Lewis [mailto:twle...@sc.rr.com] Sent: Wednesday, April 20, 2011 3:40 PM To: beginners@perl.org Subject: RE: sample distribution Suppose that you want to sell the cows. You have two buyers, and each one

Re: sample distribution

2011-04-20 Thread Jim Gibson
On 4/20/11 Wed Apr 20, 2011 12:31 PM, "ai nguyen" scribbled: > On Apr 20, 5:28 am, shawnhco...@ncf.ca (Shawn H Corey) wrote: >> On 11-04-19 07:29 PM, ai nguyen wrote: >> >> >>> A population of 20 cows, each one has age and weight (known). >>> Device this population into 2 group, each group ha

Re: sample distribution

2011-04-20 Thread ai nguyen
On Apr 20, 12:39 pm, twle...@sc.rr.com ("Tim Lewis") wrote: > Suppose that you want to sell the cows.  You have two buyers, and each one > is paying you $10,000 for 10 cows.  You want to divide the cows as fairly as > possible so that each buyer gets the same value.  Who would you split the > cows

RE: sample distribution

2011-04-20 Thread Tim Lewis
Try this: Make up mock values for 20 cows with age and weight, and write those values on 20 index cards. Now, go through the cards and separate as evenly as possible by age and weight. Either age or weight needs to take precedence. As Jim has already pointed out, there are some unknown variables/

Re: devices without division

2011-04-20 Thread Kenneth Wolcott
On Wed, Apr 20, 2011 at 03:58, Saran wrote: > Here is the program > > use strict; > use warnings; > > my ($div,$reminder) = ÷_now(20,4); > print "Dividend: $div\nReminder: $reminder\n"; > > sub divide_now { >        my ($a,$b) = @_; > >        my ($s,$n); >        for($n=1;;$n++) { >              

Re: sample distribution

2011-04-20 Thread shawn wilson
On Apr 20, 2011 1:05 AM, "ai nguyen" wrote: > > > A population of 20 cows, each one has age and weight (known). Irrelevant > Device this population into 2 group, each group has 10 cows. > two data sets to compare > Questions: > How to pick a cow on each group so that a distribution of AGE and >

Re: sample distribution

2011-04-20 Thread Jim Gibson
On 4/20/11 Wed Apr 20, 2011 3:17 PM, "shawn wilson" scribbled: > On Apr 20, 2011 1:05 AM, "ai nguyen" wrote: >> >> >> A population of 20 cows, each one has age and weight (known). > > Irrelevant I don't think so. The fact that there are 20 cows and 2 attributes for each is central to the p

Re: Changing XML Tag Value in Perl

2011-04-20 Thread Rob Dixon
On 18/04/2011 21:55, Rajpreet wrote: Thanks for your replies. But the above message is jst a sample and the exact message we get is pretty huge(its a trading sysem message)... I do have XML Parser installed.. I was trying to format a sample message using start and a default handler. I do get data

Re: Nature of this list

2011-04-20 Thread Paul
On Tue, April 19, 2011 12:45 pm, Raymond Wan wrote: > On Wed, Apr 20, 2011 at 01:17, Rob Dixon wrote: >> On 19/04/2011 16:00, Peter Scott wrote: >>> If anything is clear from that FAQ it is that the intention is to avoid >>> flames on this list.  Casey and Kevin appear to have stopped >>> monitor

perl interview questions

2011-04-20 Thread Jyoti
Hello All, Please give me any link or any tutorial which will be helpful for preparation of PERL interview. Thanks in advance. Jyoti

Re: perl interview questions

2011-04-20 Thread Doug
2011/4/21 Jyoti : > Hello All, > > Please give me any link or any tutorial which will be helpful for > preparation of PERL interview. > There are lots. But, doesn't google give you any info you want? -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: begin

Re: perl interview questions

2011-04-20 Thread Alan Haggai Alavi
Hello Jyoti, Please give me any link or any tutorial which will be helpful for preparation of PERL interview. Please read `perldoc perlfaq` (http://perldoc.perl.org/perlfaq.html). It is a collection of frequently asked questions which will certainly help you at an interview. Regards, Alan Hag

Re: perl interview questions

2011-04-20 Thread Shlomi Fish
Hi Jyoti, On Thursday 21 Apr 2011 07:49:00 Jyoti wrote: > Hello All, > > Please give me any link or any tutorial which will be helpful for > preparation of PERL interview. > First of all, see: * http://perl-begin.org/learn/Perl-perl-but-not-PERL/ (It's either "Perl" or "perl", but never "PERL

Re: sample distribution

2011-04-20 Thread Shlomi Fish
Hi Jenda, On Wednesday 20 Apr 2011 10:21:40 Jenda Krynicky wrote: > From: Peter Scott > > > On Tue, 19 Apr 2011 16:29:16 -0700, ai nguyen wrote: > > > A population of 20 cows, each one has age and weight (known). Device > > > this population into 2 group, each group has 10 cows. > > > > > > Que