196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
|
foreach my $val (values(%component_id_tag)) {
my ($id, $type);
$id = $reverse_component_id_tag{$val};
$type = $component_id_type{$id};
$_ = $val;
id_cleaner();
$val = $_;
print RAW $val . "\n" if (($type ne "1") and ($type ne "0"));
}
close(RAW);
}
sub get_label_data {
my ($name,@line,$i);
|
|
|
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
|
foreach my $val (values(%component_id_tag)) {
my ($id, $type);
$id = $reverse_component_id_tag{$val};
$type = $component_id_type{$id};
$_ = $val;
id_cleaner();
$val = $_;
print RAW $val . "\n";
}
close(RAW);
}
sub get_label_data {
my ($name,@line,$i);
|