Try making the following additions and reporting the results:

use Data::Dumper;
...
  $pessoais = "produtos/pessoais.dat";
  $mailprog = '/usr/sbin/sendmail';

  $search_for   = "a";
  $search_field = "all";

  &search_database($pessoais,$search_for);
  $count = @results;
  print '@results= ',Dumper(\@results);
  ...

  ...
  foreach $results (@results){
        ($key,$description,$speed,$ref,$qid) = split(/\|/,$results);
      print '($key,$description,$speed,$ref,$qid)= ',
          Dumper($key,$description,$speed,$ref,$qid);
      print MAIL "$description $FORM{$qid}\n\n";
  }
  print '%FORM= ', Dumper(\%FORM);
  ...
[download]

DaWolf mentioned that this didn't work on the web server which probably means that they are running an old version of Perl that didn't come with Data::Dumper. So here is a modified version that works on really old versions of Perl:

require "dumpvar.pl";
...
  $pessoais = "produtos/pessoais.dat";
  $mailprog = '/usr/sbin/sendmail';

  $search_for   = "a";
  $search_field = "all";

  &search_database($pessoais,$search_for);
  $count = @results;
  print '@results:',"\n";
  dumpValue(\@results);
  ...

  ...
  foreach $results (@results){
        ($key,$description,$speed,$ref,$qid) = split(/\|/,$results);
      print '($key,$description,$speed,$ref,$qid):',"\n";
      dumpValue([$key,$description,$speed,$ref,$qid]);
      print MAIL "$description $FORM{$qid}\n\n";
  }
  print '%FORM= ',"\n";
  dumpValue(\%FORM);
  ...
[download]

        - tye (but my friends call me "Tye")

Ahhh, much more readable...

It's still difficult (impossible?) to guess what, exactly, is going wrong. Can you give us a little more information? When you say "...the script only gets the cable modem value...", what do you mean by 'the script'? Which variable? Do the rest match?

You may also need to post a bit more of the code, to see if variables are getting clobbered by some of your subroutines.

All the other fields from the FORM are ok. And I've tried the "stupid way" - like:


print MAIL "$FORM{'ba'}";
[download]


for each line of the datafile instead of using the foreach loop, and it didn't worked.

Er Galvão Abbott
a.k.a. Lobo, DaWolf
Webdeveloper

Well, if doing that way still didn't work, I would suggest at least showing us the code where the FORM hash gets populated. It sounds like at least some of the values aren't being set up right.

Guildenstern
Negaterd character class uber alles!

Yes. More code and a better error description are needed. I thought I had found something in the use of $FORM. Apparently this needs to stay in the code, but we have no idea how that hash is being populated. If you're getting nothing out of the statement $FORM{$qid}, then the cause may be in the %FORM hash, or may be something as simple as what tye suggested - having newline characters hanging off the end of $qid.

Guildenstern
Negaterd character class uber alles!

Perhaps you need to chomp() those lines so that $qid won't have a newline on the end?

$ perl -w -e 'print split(/+\|/, $result);'
/+\|/: ?+*{} follows nothing in regexp at -e line 1.
[download]

This is probably a cut and paste problem since a program with that construct in wouldn't even compile...

Becuase it must read the form value. $qid here is a reference to create a unique Quantity field for each line of the data file. Er Galvão Abbott a.k.a. Lobo, DaWolf Webdeveloper

my $pessoais = "produtos/pessoais.dat";
my $mailprog = "/usr/sbin/sendmail";

my $search_for = "a";
my $search_field = "all";

my @results = () 
search_database($pessoais, $search_for);
my $count = @results;  # I'll assume that @results is a global

foreach my $result (@results) {
    my ($key, $description, $speed, $ref, $qid) = split(/\|/, $result)
+;
    # the print MAIL confuses me as I can't see where it
    # was opened or where %FORM is from (params?), so 
    # I'll leave that as an exercise for the reader.
}
[download]