good info.. but this doesn't look like a method call. I prefer prototypes for modules that I write for internal use at my company, especially when I don't feel like explaining to 60 people everytime why thier code doesn't work, when they forget to pass an extra argument.
> -----Original Message----- > From: Chas Owens [mailto:[EMAIL PROTECTED]] > Sent: Thursday, March 28, 2002 11:03 AM > To: [EMAIL PROTECTED] > Subject: RE: && > > > On Thu, 2002-03-28 at 10:50, Nikola Janceski wrote: > > There in lies your problem.. you are not passing to the subroutine > > correctly. > > > > try declaring your sub like so: > > sub extract_data (\@\@\@){ > > but if you do this don't call extract_data with & > > use > > extract_data(@datum, @seminare, @staedte); > > > > or pass the ref of the arrays: > > extract_data(\@datum, \@seminare, \@staedte); > > Passing as refs appears to be the preferred method. Subroutine > prototypes are flaky and don't work properly with OO based Perl > (prototypes can only handle stuff at compile time, while OO > method calls > happen at runtime). > > > > > > > > -----Original Message----- > > > From: [EMAIL PROTECTED] > > > [mailto:[EMAIL PROTECTED]] > > > Sent: Thursday, March 28, 2002 10:39 AM > > > To: Chas Owens > > > Cc: [EMAIL PROTECTED] > > > Subject: Re: && > > > > > > > > > Hi Chas, > > > > > > > > > thanks for your reply. > > > The code was the simplified code of a subroutine (below). > The Data > > > originates from a Webformula and is passed on to the > Subroutine like > > > > > > snippet > > > &extract_data(@datum, @seminare, @staedte); > > > .. > > > .. > > > .. > > > > > > sub extract_data { > > > my $dates = shift; > > > my $themes = shift; > > > my $cities = shift; > > > my @dates = split /\s+/, "$dates"; > > > my @themes = split /\s+/, "$themes"; > > > my @cities = split /\s+/, "$cities"; > > > if(@dates && !@themes && !@cities) { > > > my $date_count = @dates; > > > if($date_count > 1) { > > > $sth_between = $dbh->prepare( qq{SELECT * > FROM termine > > > WHERE beginn BETWEEN ? and ?}); > > > $sth_between->execute($dates[0],$dates[1]); > > > my $result = $sth_between->fetchrow_hashref(); > > > if($result){ > > > print $form->p("$result->{beginn}"); > > > #print out rest of fields > > > } > > > } > > > else { > > > $sth_exact = $dbh->prepare(qq {SELECT * FROM > > > termine WHERE > > > beginn < ? ORDER BY beginn ASC}); > > > $sth_exact->execute($dates[0]); > > > my $result = $sth_exact->fetchrow_hashref(); > > > if($result){ > > > while($result){ > > > print $form->p("$result->{beginn}"); > > > #print out rest of fields > > > } > > > } > > > else{ > > > print $form->p("Tut mir leid nichts > gefunden"); > > > } > > > } > > > } > > > #here should be all the other if else loop seven in total > > > each printing > > > #out search results depending on which array or which > combination of > > > #arrays contains data > > > > > > > > > } > > > Marcus > > > > > > > > > > > > -- > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > > -------------------------------------------------------------- > -------------- > > -------------------- > > The views and opinions expressed in this email message are > the sender's > > own, and do not necessarily represent the views and > opinions of Summit > > Systems Inc. > > > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > -- > Today is Boomtime the 14th day of Discord in the YOLD 3168 > Umlaut Zebra über alles! > > Missile Address: 33:48:3.521N 84:23:34.786W > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > ---------------------------------------------------------------------------- -------------------- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
