"John W. Krahn" wrote:
>
> You could do something like this:
>
> # setup fundcode hash
> my %fundcodes;
> @fundcodes{ @fundcodes } = ();
>
> while ( my $temp = <SIRSI> ) {
> print "$.\n";
> chomp;
Sorry, that should be:
chomp $temp;
> for my $field ( split /\|/, $temp ) {
> if ( exists $fundcodes{ $field } ) {
> print "$temp\n";
> push @fund_array, $temp;
> last;
> }
> }
> }
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
