RE: Problems with set-request NET::SNMP - retransmited

2005-10-05 Thread Bobby Jafari
Hi Jeff, The solution was "\xHH\xMM" Thanks for all your suggestions. It got me going. Regards, Bobby -Original Message- From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED] Sent: Wednesday, 5 October 2005 21:21 To: Bobby Jafari Cc: beginners@perl.org Subject: Re: Problems with set-requ

RE: Missing objects in Database

2005-10-05 Thread Bakken, Luke
Ryan Frantz wrote: > But that does not work. Then I saw that for non-SELECT statements > (which I assume an EXEC is not; I'm new to DBs), that it will return > "OEO" if nothing was affected. I think, though, that this refers more > to INSERT and its ilk. > > Should I set RaiseError to 1? > >

Re: TEST

2005-10-05 Thread Paul Johnson
On Tue, Oct 04, 2005 at 05:45:13AM -0400, Tom Allison wrote: > This isn't a test message sent to the list, that would be lame. ;) > > However it's all about Testing and how to do it the right way. > > I've been trying to use Test::More as the cornerstone of my testing. > This kind of falls into

RE: Missing objects in Database

2005-10-05 Thread Ryan Frantz
> -Original Message- > From: Bakken, Luke [mailto:[EMAIL PROTECTED] > Sent: Wednesday, October 05, 2005 4:03 PM > To: Ryan Frantz > Subject: RE: Missing objects in Database > > Ryan Frantz wrote: > > Perlers, > > > > ActiveState Perl 5.8.2 > > > > MS SQL Server 2000 SP3 > > > > I'm worki

RE: Extracting Upper case letter from a variable

2005-10-05 Thread Bernard Kenik
- Original Message - MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="_=_NextPart_001_01C5C99A.9531A0CC" Subject: RE: Extracting Upper case letter from a variable Date: Wed, 5 Oct 2005 12:50:21 +0200 Message-ID: <[EMAIL PROTECTED]> From: "BERTHOLD Jean" <[EMAIL

DBI: Missing objects in Database

2005-10-05 Thread Ryan Frantz
Perlers, ActiveState Perl 5.8.2 MS SQL Server 2000 SP3 I'm working on a script that finds tables in a database and then prints out the results of a stored procedure run against each of them. There are some tables that the DBD::ODBC driver complains don't exist. They do, but they're tempo

RE: looking for duplicate array values

2005-10-05 Thread Charles K. Clarkson
Jeff 'japhy' Pinyan wrote: : On Oct 5, Charles Farinella said: : : And then you should chomp $_ before going further; otherwise, : the last element of @array is going to have a newline at the end : of it. : : :my @array = split( "\t", $_ ); : : chomp; :

Mail::IMAPClient failing [was Re: Please help]

2005-10-05 Thread Jeff 'japhy' Pinyan
On Oct 5, [EMAIL PROTECTED] said: Please help me fix this. Please choose a more descriptive subject line next time. When I run it, I get the following message: Can't call method "select" on an undefined value at ./fof_imap1.pl line 12. This means that $imap is undefined, which means that

Re: looking for duplicate array values

2005-10-05 Thread Jeff 'japhy' Pinyan
On Oct 5, Charles Farinella said: Thank you for your help, with some help from someone in our office, here is our solution, perhaps it will be helpful to someone else. #!/usr/bin/perl -w use strict; my %hash; my $sku; my $verbose = 0; my $numDuplicates = 0; open( INFILE, 'stock.tab' ); You

Please help

2005-10-05 Thread William . Ampeh
Please help me fix this. When I run it, I get the following message: Can't call method "select" on an undefined value at ./fof_imap1.pl line 12. Thank you _ Program: #!/opt/local/bin/perl use lib "/home/william/.cpan/build/Mail-IMAPClient-2.2.9/blib/lib"; use Mail::IMAPClient;

Re: looking for duplicate array values

2005-10-05 Thread Charles Farinella
On Wed, 2005-10-05 at 10:43, Jeff 'japhy' Pinyan wrote: > On Oct 5, Charles Farinella said: > > > I have a list of 15,000+ items in a tab separated list. I am putting > > all the values into an array, and I need to look through all $array[0] > > for duplicates and am not sure how to proceed. Hel

Re: mysql through dbi problem

2005-10-05 Thread Marcello
linc ha scritto: Howdy, I'm having some serious trouble. I'm running a query and getting the data, but having problems using that data in the next query. Thus: #first query $sth = $dbh->prepare ( "select distinct hmac, hport, hsid from netdata_history" ); $sth->execute( ); $sth->bind

Re: Problems with set-request NET::SNMP - retransmited

2005-10-05 Thread Jay Savage
On 10/5/05, Jeff 'japhy' Pinyan <[EMAIL PROTECTED]> wrote: > On Oct 5, Bobby Jafari said: > > > 1 $result = $session->set_request ( > > 2 -varbindlist => [ "${secPvcBulkModeOid}.${nextVcatIndex}" , > > INTEGER, "1", > [...] > > 9# "${secPvcUpdateTimeOid}.${nextVcatIndex

Perl IMAP client for Lotus Notes

2005-10-05 Thread William . Ampeh
Hello All, I am looking for a way to pull mails from Lotus Notes and process them in Perl. I will be glad if anyone will be kind enough to share a code or provide me with any pointers. Thank you. __ William Ampeh (x3939) Federal Reserve Board -- To unsubscribe, e-mail: [

Re: TEST

2005-10-05 Thread Peter Scott
On Tue, 04 Oct 2005 20:45:22 -0400, Tom Allison wrote: > Maybe my problem is more pandemic than that. > > I have some 200 scripts that I've written over the years and they kind > of all sit in ~/bin with all the modules in ~/lib > I was hoping to avoid 200 scripts and 200 modules. > > But it sou

Re: looking for duplicate array values

2005-10-05 Thread Jeff 'japhy' Pinyan
On Oct 5, Charles Farinella said: I have a list of 15,000+ items in a tab separated list. I am putting all the values into an array, and I need to look through all $array[0] for duplicates and am not sure how to proceed. Help? Whenever you think of frequency, or duplicates, or unique values,

looking for duplicate array values

2005-10-05 Thread Charles Farinella
I have a list of 15,000+ items in a tab separated list. I am putting all the values into an array, and I need to look through all $array[0] for duplicates and am not sure how to proceed. Help? thanks, --charlie -- Charles Farinella Appropriate Solutions, Inc. (www.AppropriateSolutions.com) [

Re: what does "allowed rcpthosts" mean

2005-10-05 Thread JupiterHost.Net
Franklin wrote: Hi; I have written a small email program which sent a simple email using Mail::Sendmail. But when I executed it, it failed and the output was: the domain isn't in the list of allowed rcpthosts. Would you please tell me what it means and how to solve it? It probably means you

what does "allowed rcpthosts" mean

2005-10-05 Thread Franklin
Hi; I have written a small email program which sent a simple email using Mail::Sendmail. But when I executed it, it failed and the output was: the domain isn't in the list of allowed rcpthosts. Would you please tell me what it means and how to solve it? Thank you very much! Franklin -- To unsub

RE: Extracting Upper case letter from a variable

2005-10-05 Thread BERTHOLD Jean
Yes, It's working now ! I didn't find any example like your's in the documentation. Thanks again to everybody for your help ! Jean -Message d'origine- De : Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED] Envoyé : mercredi, 5. octobre 2005 13:13 À : BERTHOLD Jean Cc : Muthukumar; beginne

Re: Problems with set-request NET::SNMP - retransmited

2005-10-05 Thread Jeff 'japhy' Pinyan
On Oct 5, Bobby Jafari said: 1 $result = $session->set_request ( 2 -varbindlist => [ "${secPvcBulkModeOid}.${nextVcatIndex}" , INTEGER, "1", [...] 9# "${secPvcUpdateTimeOid}.${nextVcatIndex}" , OCTET_STRING, '# 0x0C 0x01' 10# "${secPvcUpdateTime

RE: Extracting Upper case letter from a variable

2005-10-05 Thread Jeff 'japhy' Pinyan
On Oct 5, BERTHOLD Jean said: The part I want to extract is only composed of characters in uppercase. To be safe (in case there are other uppercase characters) you want to get uppercase characters between '_' and '-'. ( $ORACLE_SID ) = ( $basename =~ /[A-Z]*/ ) ; <-- I tried that but th

Re: Split with backslashes?

2005-10-05 Thread Jeff 'japhy' Pinyan
On Oct 5, [EMAIL PROTECTED] said: I would like to split up a string like this my $cd = $arguments; @dirs = split(///,$cd); #Split $cd when there occurs a backslash but it doesn't seem to work. I guess /// must be rewritten in some way, but how? '/' is a FORWARD slash. '\' is

Re: Extracting Upper case letter from a variable

2005-10-05 Thread Muthukumar
( $ORACLE_SID ) = ( $basename =~ /[A-Z]*/ ) ; <-- I tried that but that won't work ... ( $ORACLE_SID ) =s/[^A-Z]//g; -Muthu On 10/5/05, BERTHOLD Jean <[EMAIL PROTECTED]> wrote: > > Hello Muthukumar, > My problem is that I would like to extract a part of a variable (which is > a filename stored i

RE: Extracting Upper case letter from a variable

2005-10-05 Thread BERTHOLD Jean
Hello Muthukumar, My problem is that I would like to extract a part of a variable (which is a filename stored in this variable. The part I want to extract is only composed of characters in uppercase. For example if I have this file list: -rw-r--r-- 1 oracle dba13659 Oct 5 01:04 r

Re: Extracting Upper case letter from a variable

2005-10-05 Thread Muthukumar
You have to try as, $var=~operation; Example: # perl -e '$var="HIbyeok";$var=~s/HI/OK/;printf $var . "\n";' OKbyeok -Muthu On 10/5/05, BERTHOLD Jean <[EMAIL PROTECTED]> wrote: > > Hello, > > I try to replace my old shells scripts with perl ... > > Can you tell me how to extract a substring in

Extracting Upper case letter from a variable

2005-10-05 Thread BERTHOLD Jean
Hello, I try to replace my old shells scripts with perl ... Can you tell me how to extract a substring in upper case from a variable and assign that substring to a variable ? Do I need to proceed character by character using a loop to recognize each upper case or can I do that by using reg

mysql through dbi problem

2005-10-05 Thread linc
Howdy, I'm having some serious trouble. I'm running a query and getting the data, but having problems using that data in the next query. Thus: #first query $sth = $dbh->prepare ( "select distinct hmac, hport, hsid from netdata_history" ); $sth->execute( ); $sth->bind_columns (

Re: Split with backslashes?

2005-10-05 Thread Muthukumar
my $cd = $arguments; @dirs = split(/\//,$cd); #Split $cd when there occurs a backslash Negate with \ hth. On 10/5/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > > Hi there! > > I would like to split up a string like this > > my $cd = $arguments; > @dirs = split(///,$cd); #Split $cd when the

Split with backslashes?

2005-10-05 Thread gustav
Hi there! I would like to split up a string like this my $cd = $arguments; @dirs = split(///,$cd); #Split $cd when there occurs a backslash but it doesn't seem to work. I guess /// must be rewritten in some way, but how? /G -- To unsubscribe, e-mail: [EMAIL PROTECTED] For ad

Problems with set-request NET::SNMP - retransmited

2005-10-05 Thread Bobby Jafari
Hello All, I have a rather strange problem. I am doing the following: 1 $result = $session->set_request ( 2 -varbindlist => [ "${secPvcBulkModeOid}.${nextVcatIndex}" , INTEGER, "1", 3 "${secPvcActionTypeOid}.${nextVcatIndex}" , INTEGER, "$actionType", 4

Problems with set-request NET::SNMP

2005-10-05 Thread Bobby Jafari
Hello All, I have a rather strange problem. I am doing the following: 1 $result = $session->set_request ( 2 -varbindlist => [ "${secPvcBulkModeOid}.${nextVcatIndex}" , INTEGER, "1", 3"${secPvcActionTypeOid}.${nextVcatIndex}" , INTEGER, "$actionType", 4

Re: STAT function; limit a log file.

2005-10-05 Thread Umesh T G
On 10/4/05, Jay Savage <[EMAIL PROTECTED]> wrote: > > > > > > > I want this file not to grow more than 50KB. > > > How can I go about it. I been stuck here.. this above script will not > do > > Thanks a lot for all that gyan. :) Cheers, Umesh