hi monks,

I posted this morning something to get an email adress... now I am a bit further, but I walk against a problem.
this is my code at this moment:

#!usr/bin/perl

use strict;
use warnings;
use DBI;

my $adres;
$adres = '<erik.pietersen@somefactory.com>';
print $adres;
my $db = DBI->connect("DBI:Pg:dbname=bigone; port=5432", 'postgres', '
+',{ RaiseError => 1, AutoCommit => 0 })
or die "kon de database niet openen!";
my ($rowref, $ff, @bigmail);
my $st=$db->prepare("SELECT email FROM bigone WHERE email!=''");
$st->execute();
while($rowref= $st->fetchrow_hashref){
        $bigmail[$ff]= $rowref->{'email'};
        $ff++;
}
my $zz;
my $fg = @bigmail;
my $pl=0;
my $ecode;
for (my $i=0; $i<$fg; $i++){
    $ecode= $bigmail[$pl];
    $pl++;
    if ($adres=~ /<$ecode>/){
        $zz=$ecode;
        }
}
print $zz;
my $relcode;
$st=$db->prepare("SELECT relcode FROM bigone WHERE email = $zz ");
$st->execute();
while($rowref= $st->fetchrow_hashref){
    $relcode = $rowref->{'email'};
}
print $relcode;

$db->disconnect;

[download]
this is a my tryprogram, that is why I defined an email myself, but now I get this error:

Use of uninitialized value in array element at equal.txt line 16.
DBD::Pg::st execute failed: ERROR: Relation "erik" does not exist
DBD::Pg::st execute failed: ERROR: Relation "erik" does not exist
<erik.pietersen@somefactory.com>erik.pietersen@somefactory.com
I think it has something to do with the "." after erik.
I have 3 points where I print what I must get.
the first two gives the output I want, so the problem lies at the last select with the database.

who knows how to let it work?

In reply to a problem with a point... by Bass-Fighter

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.