#!C:/Perl/bin/perl.exe use strict; use warnings; use HTML::TokeParser::Simple; my $data = do {local $/;}; my $p = HTML::TokeParser::Simple->new(\$data); my @table; while (my $t = $p->get_tag('meta-parameter')){ if ( $t->get_attr('type') and $t->get_attr('type') eq q{stored-procedure} and $t->get_attr('id')) { push @table, $t->get_attr('id'); } } print "->$_<-\n" for @table; __DATA__ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ##

##

->rep_vfnz_gsm_bss_tch_network_report_spr<-
->rep_vnz_gprs_quality_report_daily_spr<-
->rep_vfnz_gsm_nss_benchmarking_report_spr<-
->rep_vnz_cchnwpossumreport2_spr<-
->rep_vnz_cchnwpossumreport_spr1<-
->rep_vnz_cchnwpossumreport2_spr<-
->rep_vfnz_gsm_bss_tch_network_report_spr<-
->rep_kit<-
->rep_kit<-
->rep_kit<-
->rep_kit<-
->rep_vnz_cchnwpossumreport_spr1<-
->rep_data_availability_spr<-
->rep_vnz_optregionnwperfreport_spr<-
->rep_vnz_optregionnwperfreport_spr<-
->rep_vnz_attach_success_ratio_report_spr<-
->rep_vnz_attach_success_ratio_report_spr<-
->rep_vnz_cchnwpossumreport_spr1<-
->rep_vnz_cchnwpossumreport_spr1<-
->rep_vfnz_gsm_bss_tch_network_report_spr<-