From: Tim McGeary <mailto:[EMAIL PROTECTED]> wrote:
: Ok, here's the code that is pushing $cat_key, $title, : $url, and $code into the @fund_array: : : @sirsi_array has a DB_key, a Title and "data" which : is either a code or a URL, in such a manner: : : 101|Journal of Nature|PBIO| : 101|Journal of Nature|http://www.nature.org/| : 102|Journal of Crap|PBIO| : 102|Journal of Crap|http://www.crap.org/| : 102|Journal of Crap|http://www.jstor.org/crap/| : : Each of the above rows is what the @sirsi_array : would have. Here's the pseudocode for the real code : below: : : Split array element. : Check to see if we have a new DB_key : If yes, check to see if code matches allowed codes. : If yes, then set $code=$data and $titles=1. : Else, $titles=0, push to @reject_array and move on. : If no, set $title : check for jstor or prola in $data : If yes, append (archive) to $title : set $url with $ezproxy prefix : set $cat_key with simple algorithm based on # of titles : push $cat_key, $title, $url, and $code to @fund_array : increment $titles : : Real code: : : my $preCat = 0; : my $titles = 0; : my $title = ''; : my $code = ''; : my $url = ''; : my @fund_array; : my @reject_array; You have 'strict' turned off. Not a good idea. You'll need to present a working example or more code (all of it?). I added this, but there is still more missing. my @sirsi_array = ( '101|Journal of Nature|PBIO|', '101|Journal of Nature|http://www.nature.org/|', '102|Journal of Crap|PBIO|', '102|Journal of Crap|http://www.crap.org/|', '102|Journal of Crap|http://www.jstor.org/crap/|', ); This part of the code doesn't look like it has an error, but with all those global variables running around, we can't be sure. We'll need to see more code to help you find the error you're getting. HTH, Charles K. Clarkson -- Mobile Homes Specialist 254 968-8328 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
