Consult about XS

2008-08-07 Thread Pablo Zea Aranibar
Hello, Maybe this consult (request for help) could be too simple. I have tried to use a set of C libraries. This could seems too easy, but these libraries are compiled in a way that generate/create other library files (of course using their own Makefile). So, how can I put into my own Makefile.PL t

Re: Net::Telnet

2008-08-07 Thread Hashmat Khan
Hi, The only issue I have now is with timeout, and how do I disable this ? thanks, Hashmat On Thu, Aug 7, 2008 at 7:07 PM, Rob Dixon <[EMAIL PROTECTED]> wrote: > Hashmat Khan wrote: > > > > ok.. the latest on this... > > when I try cmd for certain commands, it doesn't work. > > But looks like p

Re: Perl clearification

2008-08-07 Thread Anees
On Aug 7, 5:06 pm, [EMAIL PROTECTED] (Rob Dixon) wrote: > Anees wrote: > > Dear friends: > > > I am a perl begineer. I have created an script which prints each 100th > > record from the file as shown below: > > > #!/usr/bin/perl > > $maxRecords=2; > > $steps=100; > > > $index=1; > > $recCounter

Re: Net::Telnet

2008-08-07 Thread Hashmat Khan
ok, finally I got it ! cmd works, actually I had to remove the Prompt from the object creation, because some of the commands change the prompt and that is why it was timing out. Anyway, I have one last problem now, 'Timeout' , by default the value is 10 seconds, How do I get rid of it ? The perl d

Re: Net::Telnet

2008-08-07 Thread Hashmat Khan
On Aug 5, 2:52 pm, [EMAIL PROTECTED] (Hashmat Khan) wrote: > Hello Rob, > > Thanks for the reply. > Yes, I am using  Net::Telnet. And I am new to perl, I was not aware if there > are other methods to start telnet using perl. > I did as you suggested. It worked but not completely as I wanted the out

Re: Net::Telnet

2008-08-07 Thread Hashmat Khan
And when I use print, it doesn't work, I don't see any output, but if I use I see the output, but it times out(command timed out). thanks. On Aug 5, 2:52 pm, [EMAIL PROTECTED] (Hashmat Khan) wrote: > Hello Rob, > > Thanks for the reply. > Yes, I am using  Net::Telnet. And I am new to perl, I was n

Re: Net::Telnet

2008-08-07 Thread Hashmat Khan
ok. I figured out that giving Input_log => \*STDOUT works and it gives the correct output as desired. But the $t->cmd() doesn't work for certain commands. Like for ls, whoami it works, but for certain commands which change the command prompt, it doesn't work, like setting a clearcase view, anybo

Re: Net::Telnet

2008-08-07 Thread Rob Dixon
Hashmat Khan wrote: > > ok.. the latest on this... > when I try cmd for certain commands, it doesn't work. > But looks like print works, but I don't see any output(Input_log => > \*STDOUT). So I can't verify my commands in print. How do we print the > output of print ? Please try to remember to b

Re: Net::Telnet

2008-08-07 Thread Hashmat Khan
ok.. the latest on this... when I try cmd for certain commands, it doesn't work. But looks like print works, but I don't see any output(Input_log => \*STDOUT). So I can't verify my commands in print. How do we print the output of print ? On Aug 5, 2:52 pm, [EMAIL PROTECTED] (Hashmat Khan) wrote:

Re: Problem with or function

2008-08-07 Thread Rob Dixon
chiel wrote: > > I have a quick question. I use the following line, and this works ok: > > if ($$result_t{$operating_descr.".".$index} =~ /PCMCIA/ && $tmp_status == 3) > { > > > > But if I change it to the following: > > if ($$result_t{$operating_descr.".".$index} =~ /PCMCIA/ || /USB/ && > $

Re: Problem with or function

2008-08-07 Thread Jeff Pang
chiel 写道: > > if ($$result_t{$operating_descr.".".$index} =~ /PCMCIA/ || /USB/ && > $tmp_status == 3) { > Hi, =~ is going with higher PRI than ||. $x =~ /Y/ || /Z/; is the same as: $x =~ /Y/ || $_ =~ /Z/; so you should say: $x =~ /Y|Z/; or, $x =~/Y/ || $x =~/Z/; HTH. -- To unsubscr

Problem with or function

2008-08-07 Thread chiel
Hello, I have a quick question. I use the following line, and this works ok: if ($$result_t{$operating_descr.".".$index} =~ /PCMCIA/ && $tmp_status == 3) { But if I change it to the following: if ($$result_t{$operating_descr.".".$index} =~ /PCMCIA/ || /USB/ && $tmp_status == 3) { I ge

Re: Perl clearification

2008-08-07 Thread Rob Dixon
Anees wrote: > Dear friends: > > I am a perl begineer. I have created an script which prints each 100th > record from the file as shown below: > > #!/usr/bin/perl > $maxRecords=2; > $steps=100; > > $index=1; > $recCounter=0; > while (<>){ > if(defined) { > if (($index % $steps) =

Re: Round Robin Database [was: date info]

2008-08-07 Thread Rob Dixon
Urvish Jain wrote: > > I'm new to community as well as perl programming language. I have a perl > script with me and I need to execute it for creating rr database (rrd), Has > anybody worked on this before. Please help! Can you explain your problem for us please? You have a Perl script and need

Re: Perl clearification

2008-08-07 Thread John W. Krahn
Anees wrote: Dear friends: Hello, I am a perl begineer. I have created an script which prints each 100th record from the file as shown below: #!/usr/bin/perl use warnings; use strict; $maxRecords=2; $steps=100; $index=1; $recCounter=0; while (<>){ That is short for: while ( defin

Re: Perl clearification

2008-08-07 Thread Mr. Shawn H. Corey
On Thu, 2008-08-07 at 18:42 +0800, Jeff Pang wrote: > Anees 写道: > > > > #!/usr/bin/perl > > $maxRecords=2; > > $steps=100; > > > > $index=1; > > $recCounter=0; > > while (<> && defined){ > > > This is not right. > defined is equal to defined($_), but here $_ go without value. > For reading

Re: date info

2008-08-07 Thread Jeff Pang
Urvish Jain 写道: > Hi all, > > I'm new to community as well as perl programming language. I have a perl > script with me and I need to execute it for creating rr database (rrd), Has > anybody worked on this before. Please help! > Hello, Welcome to this list. As a perl programmer, you may lear

Re: Perl clearification

2008-08-07 Thread Jeff Pang
Anees 写道: > > #!/usr/bin/perl > $maxRecords=2; > $steps=100; > > $index=1; > $recCounter=0; > while (<> && defined){ This is not right. defined is equal to defined($_), but here $_ go without value. For reading a file line by line, saying: while(<>) { ... } is enough. while(<>) { if

Perl clearification

2008-08-07 Thread Anees
Dear friends: I am a perl begineer. I have created an script which prints each 100th record from the file as shown below: #!/usr/bin/perl $maxRecords=2; $steps=100; $index=1; $recCounter=0; while (<>){ if(defined) { if (($index % $steps) == 0) { print $_;

RE: date info

2008-08-07 Thread Urvish Jain
Hi all, I'm new to community as well as perl programming language. I have a perl script with me and I need to execute it for creating rr database (rrd), Has anybody worked on this before. Please help! Urvish Jain | Software Engineer - Liquid Machines| Persistent Systems Limited [EMAIL PROTECTE