topic Re: Perl Help in Operating System - Linux

Perl Help

Ragni Singh — Mon, 31 Oct 2005 09:49:35 GMT

Can anyone tell me what I'm doing wrong with this script..

What is wrong with my syntax error.What I am doing in removing those 2 names from teh distribution list and adding my name to it. Also, when I print my name, I am only getting "schand.com" and it seems to be omitting "@pacificex". POints will be assigned.

458 if($sth->execute){
459 my $ntuples = $sth->rows;
460 if ($ntuples > 0) {
461 for ( my $i=0; $i < $ntuples; $i++) {
462 @row = $sth->fetchrow; # Get a row
463 $row[0] = &clip($row[0]);
464 if ($row[0] != "parmstrong@pacificex.com") || ($row[0] != "bburke@pacificex.com") {
465 $distList .= "$row[0]; ";
466 }
467 }
468 }
469 }else{ # PGRES_TUPLES_OK is not OKAY
470 die "Execution Error, Possible Parse error in field. Check your input
$DBI::errst";
471 }
472 $distList .= "schand@pacificex.com";
473 }

syntax error at secdaily.test line 464, near ") ||"
syntax error at secdaily.test line 469, near "}else"

Re: Perl Help

Alexander Chuzhoy — Mon, 31 Oct 2005 09:53:35 GMT

For start add backslash \ before each @ sign.
What errors have you left with now?

Re: Perl Help

Bill Thorsteinson — Mon, 31 Oct 2005 09:56:13 GMT

You need to escape the @ character.
Otherwise perl tries to acces the array
@pacificex.

Try using
$distList .= "schand\@pacificex.com";

Re: Perl Help

Ragni Singh — Mon, 31 Oct 2005 10:03:47 GMT

Thanks Bill, if I want to add multiple people to the distList, what would my syntax be on this line...

$distList .="schand\@pacificex.com"

I want to add john, jon to this list

Thanks and I will give points in the end.

Re: Perl Help

Ralph Grothe — Mon, 31 Oct 2005 10:20:09 GMT

I would think it's easier to use an array instead of a scalar, and push the other recipients on the array.

push @distList, qw(john@johns.com harry@harrys.org);

or if the recipients all have the same MX,
and you want to stick to the scalar

$dom = 'our.org';
$distList = join(' ',map $_.'@'.$dom, qw(john harry));

Re: Perl Help

Ragni Singh — Mon, 31 Oct 2005 10:40:55 GMT

I am not a perl person so I don't understand what you mean by that. I just want to make this as simple as possible. In the dislist line, whats is the syntaxt to add multiple e-mail addresses.

Re: Perl Help

Sergejs Svitnevs — Tue, 01 Nov 2005 02:45:34 GMT

You need to change string 464:

from:
if ($row[0] != "parmstrong@pacificex.com") || ($row[0] != "bburke@pacificex.com") {

to:
if ( ($aaa != "parmstrong\@pacificex.com") || ($aaa != "bburke\@pacificex.com") ) {

Regards,
Sergejs

Re: Perl Help

Sergejs Svitnevs — Tue, 01 Nov 2005 02:56:38 GMT

Oooops, sorry.

You need to change string 464:

from:
if ($row[0] != "parmstrong@pacificex.com") || ($row[0] != "bburke@pacificex.com") {

to:
if ( ($row[0] != "parmstrong\@pacificex.com") || ($row[0] != "bburke\@pacificex.com") ) {

Regards,
Sergejs

Re: Perl Help

Sheldon Smith — Tue, 01 Nov 2005 08:48:48 GMT

First, you need an outer set of parentheses around the entire IF expression:
if ( ($row[0] != "parmstrong@pacificex.com") || ($row[0] != "bburke@pacificex.com") ) {

It does not matter, it will not work anyway. "!=" is a NUMERIC comparison. Both "parmstrong@pacificex.com" and "bburke@pacificex.com" evaluate to 1.
Use "ne" for string comparisons.