Re^6: Problems around Param (CGI->param or CGI->multi

name1
NAname10
N/Aname100
NAname100_drp
N/Aname101
N/Aname101_drp
N/Aname102
N/Aname102_drp
N/Aname103
N/Aname103_drp
N/Aname104
N/Aname104_drp
N/Aname105
[download]

where name<number> and name<number>_drp are the keys and N/A values.

Comment on Re^6: Problems around Param (CGI->param or CGI->multi_param instead of CGI->Vars ) Download Code

Replies are listed 'Best First'.
Re^7: Problems around Param (CGI->param or CGI->multi_param instead of CGI->Vars ) by Anonymous Monk on Aug 26, 2015 at 23:36 UTC
Ok, combine that with what poj posted, seems to work #!/usr/bin/perl -- use strict; use warnings; use Data::Dump qw/ dd /; use CGI qw//; my $din = { qw{ name1 N/A name10 N/A name100 N/A name100_drp N/A name101 N/A name101_drp N/A name102 N/A name102_drp N/A name103 N/A name103_drp N/A name104 N/A name104_drp N/A name105 N/A }}; dd( $din ); my $q = CGI->new( $din ); print $q->self_url, "\n"; for my $k ( sort $q->param ) { if ($k =~ /(.+)_drp$/){ print join'\|', scalar $q->param( $1 ), scalar $q->param( $k )."\n" +; } } __END__ { name1 => "N/A", name10 => "N/A", name100 => "N/A", name100_drp => "N/A", name101 => "N/A", name101_drp => "N/A", name102 => "N/A", name102_drp => "N/A", name103 => "N/A", name103_drp => "N/A", name104 => "N/A", name104_drp => "N/A", name105 => "N/A", } http://localhost?name10=N%2FA;name102_drp=N%2FA;name100=N%2FA;name1=N% +2FA;name100_drp=N%2FA;name101=N%2FA;name104=N%2FA;name101_drp=N%2FA;n +ame102=N%2FA;name103=N%2FA;name105=N%2FA;name104_drp=N%2FA;name103_dr +p=N%2FA N/A\|N/A N/A\|N/A N/A\|N/A N/A\|N/A N/A\|N/A [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^7: Problems around Param (CGI->param or CGI->multi_param instead of CGI->Vars )
by Anonymous Monk on Aug 26, 2015 at 23:36 UTC

Ok, combine that with what poj posted, seems to work

#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
use CGI qw//;
my $din = { qw{
name1 N/A name10
 N/A  name100
 N/A  name100_drp
 N/A  name101
 N/A  name101_drp
 N/A  name102
 N/A  name102_drp
 N/A  name103
 N/A  name103_drp
 N/A  name104
 N/A  name104_drp
 N/A  name105 N/A
}};
dd( $din );
my $q = CGI->new( $din );
print $q->self_url, "\n";
for my $k ( sort $q->param ) {
  if ($k =~ /(.+)_drp$/){
    print join'|', scalar $q->param( $1 ), scalar $q->param( $k )."\n"
+;
  }
}
__END__
{
  name1       => "N/A",
  name10      => "N/A",
  name100     => "N/A",
  name100_drp => "N/A",
  name101     => "N/A",
  name101_drp => "N/A",
  name102     => "N/A",
  name102_drp => "N/A",
  name103     => "N/A",
  name103_drp => "N/A",
  name104     => "N/A",
  name104_drp => "N/A",
  name105     => "N/A",
}
http://localhost?name10=N%2FA;name102_drp=N%2FA;name100=N%2FA;name1=N%
+2FA;name100_drp=N%2FA;name101=N%2FA;name104=N%2FA;name101_drp=N%2FA;n
+ame102=N%2FA;name103=N%2FA;name105=N%2FA;name104_drp=N%2FA;name103_dr
+p=N%2FA
N/A|N/A
N/A|N/A
N/A|N/A
N/A|N/A
N/A|N/A
[download]

[reply]
[d/l]