Lines 173-180
elsif ( $record_type eq 'auths' ) {
Link Here
|
173 |
} |
173 |
} |
174 |
|
174 |
|
175 |
@record_ids = uniq @record_ids; |
175 |
@record_ids = uniq @record_ids; |
176 |
if ( @record_ids and my $id_list_file ) { |
176 |
if ( @record_ids and $id_list_file ) { |
177 |
my @filter_record_ids = <$id_list_file>; |
177 |
open my $fh, '<', $id_list_file or die "Cannot open file $id_list_file ($!)"; |
|
|
178 |
my @filter_record_ids = <$fh>; |
178 |
@filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$//; $id } @filter_record_ids; |
179 |
@filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$//; $id } @filter_record_ids; |
179 |
# intersection |
180 |
# intersection |
180 |
my %record_ids = map { $_ => 1 } @record_ids; |
181 |
my %record_ids = map { $_ => 1 } @record_ids; |
181 |
- |
|
|