> -----Original Message----- > From: Madhur Kashyap [mailto:[EMAIL PROTECTED] > Sent: Tuesday, May 10, 2005 11:34 AM > To: beginners@perl.org > Subject: Urgent Help with functions > > > Can someone help me out with this simple code? It gives an > error saying: > > Illegal division by zero at test.pl line 4. > Exit 255 > > Code: > --------------------------------------------- > #!/usr/local/bin/perl > sub test { > =09my @[EMAIL PROTECTED]; > =09my $div=3D$pars[0]/$par[1]; > =09print "Pars were @{_}\n"; > } > > test (1,2,3,4,5); > > PS: I understand that there could be several workarounds to > write the same code but whatif I do want to divide one of the > local variable with one of the passed parameters? Its lot > confusing for me as I have a strong C/C++ background. > > Another silly question ... is it possible to use the regular > expressions capability of perl and combine it with C++ codes > in some fashion. I mean is it possible to write programs > having both C++ and perl code snippets. > > Regards > Madhur Kashyap > > --
I ran the following code: #!/usr/bin/perl use warnings; use strict; # Always use warnings and strict! They are very helpful in finding bugs! sub test { my @pars = @_; my $div = $pars[0] / $pars[1]; print "Pars were @_\n"; # I don't know why you put the '_' (underscore) in parens '(' ')' in your code. I took them out. print "Division was $div\n"; } test (1,2,3,4,5); This code ran fine on my machine. I could not reproduce your divide by zero error. Are you sure you transcribed the function call exactly in your original email? I don't know about using the C++ code snippets. I bet that if you show us your c++ code snippets, we can show you how to do it in Perl, though!! --Errin -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>