- Community Home
- >
- Servers and Operating Systems
- >
- Operating Systems
- >
- Operating System - Linux
- >
- Perl Help
Categories
Company
Local Language
Forums
Discussions
Forums
- Data Protection and Retention
- Entry Storage Systems
- Legacy
- Midrange and Enterprise Storage
- Storage Networking
- HPE Nimble Storage
Discussions
Forums
Discussions
Discussions
Discussions
Forums
Discussions
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
- BladeSystem Infrastructure and Application Solutions
- Appliance Servers
- Alpha Servers
- BackOffice Products
- Internet Products
- HPE 9000 and HPE e3000 Servers
- Networking
- Netservers
- Secure OS Software for Linux
- Server Management (Insight Manager 7)
- Windows Server 2003
- Operating System - Tru64 Unix
- ProLiant Deployment and Provisioning
- Linux-Based Community / Regional
- Microsoft System Center Integration
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Community
Resources
Forums
Blogs
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-31-2005 01:49 AM
10-31-2005 01:49 AM
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"
Solved! Go to Solution.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-31-2005 01:53 AM
10-31-2005 01:53 AM
Re: Perl Help
What errors have you left with now?
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-31-2005 01:56 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-31-2005 02:03 AM
10-31-2005 02:03 AM
Re: Perl Help
$distList .="schand\@pacificex.com"
I want to add john, jon to this list
Thanks and I will give points in the end.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-31-2005 02:20 AM
10-31-2005 02:20 AM
Re: Perl Help
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));
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-31-2005 02:40 AM
10-31-2005 02:40 AM
Re: Perl Help
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-31-2005 06:45 PM
10-31-2005 06:45 PM
Re: Perl Help
from:
if ($row[0] != "parmstrong@pacificex.com") || ($row[0] != "bburke@pacificex.com") {
to:
if ( ($aaa != "parmstrong\@pacificex.com") || ($aaa != "bburke\@pacificex.com") ) {
Regards,
Sergejs
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-31-2005 06:56 PM
10-31-2005 06:56 PM
Re: Perl Help
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
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
11-01-2005 12:48 AM
11-01-2005 12:48 AM
Re: Perl Help
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.
Note: While I am an HPE Employee, all of my comments (whether noted or not), are my own and are not any official representation of the company