output:#!C:/Perl/bin/perl.exe use strict; use warnings; use HTML::TokeParser::Simple; my $data = do {local $/;<DATA>}; 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__ <meta-parameter type="stored-procedure" id="rep_vfnz_gsm_bss_tch_netwo +rk_report_spr">\ <meta-parameter id="rep_vnz_gprs_quality_report_daily_spr" type="store +d-procedure">\ <meta-parameter type="stored-procedure" id="rep_vfnz_gsm_nss_benchmark +ing_report_spr">\ <meta-parameter id="rep_vnz_cchnwpossumreport2_spr" type="stored-proce +dure">\ <meta-parameter id="rep_vnz_cchnwpossumreport_spr1" type="stored-proce +dure">\ <meta-parameter id="rep_vnz_cchnwpossumreport2_spr" type="stored-proce +dure">\ <meta-parameter type="stored-procedure" id="rep_vfnz_gsm_bss_tch_netwo +rk_report_spr">\ <meta-parameter type="stored-procedure" id="rep_kit">\ <meta-parameter type="stored-procedure" id="rep_kit">\ <meta-parameter type="stored-procedure" id="rep_kit">\ <meta-parameter type="stored-procedure" id="rep_kit">\ <meta-parameter type="stored-procedure" id="rep_vnz_cchnwpossumreport_ +spr1">\ <meta-parameter type="stored-procedure" id="rep_data_availability_spr" +>\ <meta-parameter type="stored-procedure" id="rep_vnz_optregionnwperfrep +ort_spr">\ <meta-parameter type="stored-procedure" id="rep_vnz_optregionnwperfrep +ort_spr">\ <meta-parameter type="stored-procedure" id="rep_vnz_attach_success_rat +io_report_spr">\ <meta-parameter type="stored-procedure" id="rep_vnz_attach_success_rat +io_report_spr">\ <meta-parameter id="rep_vnz_cchnwpossumreport_spr1" type="stored-proce +dure">\ <meta-parameter id="rep_vnz_cchnwpossumreport_spr1" type="stored-proce +dure">\ <meta-parameter id="rep_vfnz_gsm_bss_tch_network_report_spr" type="sto +red-procedure">\
->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<-
Also out of curiosity, do monks really prefer having the and at the begining of the line?
In reply to Re: regex to match the following
by wfsp
in thread regex to match the following
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |