RE: GetOpt::Long

Hi Bob, You gave me the following answer earlier: sub foo { local @ARGV = @_; GetOptions(...blah...); ... } If I run it as a seperate script, commenting out the (local @ARGV = @_;) line, then it works. But it does not work when called as a subroutine from within the ma

RE: GetOpt::Long

} } ======== == -Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: 20 April 2005 02:31 PM To: Olivier, Wim W; Perl Beginners (E-mail) Subject: RE: GetOpt::Long Olivier, Wim W wrote:

GetOpt::Long

t = "[EMAIL PROTECTED]"; $subject= "ALERT"; $body = join " ", @_; $mail = new NTsendmail; $mail->send($sender, $recipient, $subject, $body); } All help apprecia

Can't understand error

rint "$logger\n"; print "$facility\n"; print "$level\n"; print "$message\n"; system("$logger", "-h $sysloghost", "$facility", "$level", "$message"); } Kind Regards, Wim Olivier ___

RE: Question: Array of Hashes

Thanks Offer! It's working! Wim -Original Message- From: Offer Kaye [mailto:[EMAIL PROTECTED] Sent: 31 March 2005 02:55 PM To: Perl Beginners Subject: Re: Question: Array of Hashes On Thu, 31 Mar 2005 14:40:47 +0200, Olivier, Wim W wrote: > Hi all, > > I have the

Question: Array of Hashes

27;, 'ReadTransferCount', #'SessionId', 'Status', 'TerminationDate', 'ThreadCount', 'UserModeTime', #'VirtualSize', 'WindowsVersion', 'WorkingSetSize', 'WriteOperationCount', #'WriteTransferCount', #); # get

Re: TCL

ated to > Perl? ;-) Hai, Can't remember posting this anymore, Actually I don't do anything with tcl I allso can't remeber ever having posted something to this group, I only read it , for all kinds of solutions that come by in posts from others you know. Makes very interesting reading

SNMP.pm

Hi all, I' trying to get the IfType from my router with a script that uses the SNMP.pm module. It works fine, but he refuse to translate the ATM and POS interfaces. How can I see what MIB SNMP.pm uses. Thanx, Wim -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e

Performance of Net::SNMP

Hi all! I'm some writing scripts using the module Net::SNMP. Is this module a performant one, or are there faster ones available? I tried the SNMP module that uses Net_SNMP, but the last version is from 2000 and I could get it installed... Thanx! Wim -- To unsubscribe, e-mail: [

Re: Dereferencing: help!!!!

Hi all, Found it double quotes did the trick! Thanx anyway. Cheers! Wim Wim wrote: Hi, I'm trying to put some data in a postgres database, but it is not so easy as I expected This is my code: foreach $ipaddress (sort keys %ifipaddr) { $ip = new NetAddr::IP "

Dereferencing: help!!!!

Hi, I'm trying to put some data in a postgres database, but it is not so easy as I expected This is my code: foreach $ipaddress (sort keys %ifipaddr) { $ip = new NetAddr::IP "$ipaddress", "$ifnetmask{$ipaddress}"; $sth4 -> execute

SNMP

Hello, Does anyone knows how the translate-function works in Net::SNMP? Cheers! Wim -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

[Storing CR in variable

Hello, I have a memofield on a HTML page. I need to insert it in a database. The CGI-script replaces the CR's with %0D%0A. How to I replace %0D%0A into a CR within a variable? Cheers. Have a nice week-end Wim -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e

DBI for postgres

Hello, I'm looking for the DBI-driver for Postgres. Some months ago, I could download it from dbi.symbolstone.org. This site doesn't exists anymore. Can someone point me to the DBI interface for postgres? I searched cpan, but couldn't find it :-( Thanks Wim -- To unsu

Re: Problem with replacing text in a variable...

OK! my script works! But when I use: my $rvar = ; I have the same problem! Jesus, that's a hard one :-) Greetz... David Gray wrote: >>An update on previous post... >>It seems that I typed some errors :-( >> >>This is a small rewrite of my script... >>#!/usr/bin/perl >> >>use warnings; >> >>

Re: Problem with replacing text in a variable...

ot;; $cmd =~ s/$rvar/$var/g; print "$cmd\n"; If you run this, the $interface in the variable $cmd isn't replaced by test... Why? Greetz, and thanks for the great help! Wim David Gray wrote: >>I have a problem with substitutions... >>In the piece of code, here belo

Re: Problem with replacing text in a variable...

$var{$interface} contains that value... in the previous mail, $var has nothing to do with perl ;-) Sorry, I wasn't clear (in my head ;-) ) [EMAIL PROTECTED] wrote: >Wim, > >You're not declaring $var1 or $var2 anywhere. Instead you're assigning 'val1' and >'

Problem with replacing text in a variable...

eplace $Tmp by $VarValue{$Tmp}\n"; $Cmd =~ s/$Tmp/$VarValue{$Tmp}/g; } } Thanx a lot! Wim -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: DBI

Hi, Please be more specific... What messages do you get? Greetz, Wim Rune Hegrenes wrote: >Hi > >I have to create an perl script that connects to a sybase adaptive server enterprise >database (ASE). >I have downloaded a file called DBI-1.18.tar.gz. But I can't get it inst

Delete lines in a file

Hey folks! I'm gonna ask a question that is asked mayby thousand times, but I can't find out how I delete complete lines in a file without leaving empty lines. -- Kind regards, Wim De Hul Belgacom Belbone Mail : [EMAIL PROTECTED] Mobile

Difference between == and eq

q "modify_router") { It works! How comes? -- Kind regards, Wim De Hul Belgacom Belbone Mail : [EMAIL PROTECTED] Mobile : +32 479 952004 Ripe : WDH25-RIPE Registered Linux User: #260015 -- To uns

Post form data

dules do I need to do this, and can you give me a hint how to start with it? Thanx -- Kind regards, Wim De Hul Belgacom Belbone Mail : [EMAIL PROTECTED] Mobile : +32 479 952004 Ripe : WDH25-RIPE -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Hash question

scr{$router}{$index}\n"; print "\n"; } I'm glad I have this list :-) Thanx Wim -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Regexp question...

I do now: print "$1\n"; I get the IOS version But when I type print "$IOS_version\n"; It displays just 1... Can I get rid of the S_? Thanks, Wim P.S.: Merry Christmas to all of you... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Shift question...

Hello guys ( and girls), While I was reading a script, I saw the lines: my $var = shift; I thought that shift puts a variable in an array? What does this mean? Thanks, Wim. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: What was your first PERL script (was Off-Topic (200%) - Where are you from?)

Mine was: print "Hello World\n"; :-) ... and a script to update a postgres DB with billing values... Greetz, Wim Dave Storrs wrote: >Mine was to write a document-management system for Paine Webber. > >Of course, I had the advantage of working with two