Dynamic form in PERL

[redoranda]

hi im a new user here. apparently im working on a project that is creating a dynamic form. Assume user can insert the data into text field and upload csv file, csv file may have two columns. user has to provide a special character like <> in text field to replace with data from second column of csv file.

here is the tmpl code:

<tr>
<td align="right">
BroadCast box:</td><td align="left"> <textarea name="mseg" rows="5" cols="33"
onKeyUp="val = this.value;
if (val.length>160)
{
alert('Sorry, you are over the limit of 160 characters');
this.value = val.substring(0,160);
smsInput.focus()
}
this.form.count.value=160-parseInt(this.value.length);">
</textarea></td></tr>
<tr>
<td align="right">Please specify file to upload:</td>
    <td align="left"><input type="file" name="address" size="30" maxlength="80" /></td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="button" name="submit" value="Upload" onClick="validateForm(document.upload);">
<input type="reset" name=".reset" value="Reset" />
</td>

this is my pm code:

sub Uploading {
    my $self = shift;
    my $element;
    my $output;
    my $co = $self->{CGI};
    my $mseg = $self->{CGI}->param('mseg');
 
    if (!defined($mseg)){
        $output = $self->MsgRedirect('error',"Sorry, No template selected.");
        return $output;
    }
    my $error = $co->cgi_error;
    if ($error) {
        $output = $self->MsgRedirect('error',"CGI POST Error");
        return $output;
    }
 
    my @form_input = $co->param();
    my $buffer = "";
    my $count = 1;
 
    foreach my $in (@form_input) {
        $buffer .= $in . '==' . $co->param($in) . "<br/>\n";
        $count++;
    }
 
    my $msg_count = 0;
    my $symbol = "<>";
    my @loop_data;
    if ($fileformat eq "1") {
        @data = <$add>;
        my $i =0;
        my $color = "";
        foreach $element (@data) {
            $element =~s/[\n\r]/ /g;
            $element =~ s/^\s+//g;
            $element =~ s/\s+$//g;
            if ( length($element) == 0 ) {
                next;
            }
 
            my %data_elem;
            if ($i % 2 == 0) {
                $data_elem{CLASS} = "even";
            } else {
                $data_elem{CLASS} = "odd";
            }
 
            $data_elem{COUNT} = $i + 1;
            $data_elem{LANG_CODE} = $charset;
            $data_elem{MSEG} = $mseg;
 
            if($element =~ /^(\+?\d+),(.*)$/) {
                $data_elem{MNO} = $1;
                $data_elem{MSG} = $2;
 
                if( length($data_elem{MSG}) > 160 ) {
                    $data_elem{MSG} = substr $data_elem{MSG}, 0, 160;
                    my $mymsg = $data_elem{MSG};
                    $data_elem{MSEG} = $mseg;
                    $mseg =~ s/$symbol/$mymsg;
                }
 
                $msg_count++;
 
            } else {
                $data_elem{MNO} = "NA";
                $data_elem{MSG} = $element;
                $mymsg = $data_elem{MSG};
                $mseg =~ s/$symbol/$mymsg;
            }
 
            push @loop_data, \%data_elem;
            $i++;
        }
 

I do realize my code has some error and still I can't figure out. I'll appreciate if you provide me easier way to do so.

[KevinADC]

don't know if this is the only problem, but you have two lines that are the same :

$mseg =~ s/$symbol/$mymsg;

they are both missing the ending / at the end of the regexp:

$mseg =~ s/$symbol/$mymsg/;

[redoranda]

thanks you indeed for your reply .. it isn't working correctly yet :(

[KevinADC]

thanks you indeed for your reply .. it isn't working correctly yet :(

what isn't working? Any error messages? I see this in the code:

<$add>

where is $add being defined? and is $add scoped (visible) to that block of code?

[redoranda]

i did figure out the error and its working now .. tnx for ur help :)