use Net::Telnet;
$telnet = new Net::Telnet (Timeout => 20, Prompt => '/[%#>\]] *$/');
$out='C:\Result.txt';
open OUT, ">>$out" or die "Cannot open $out for append :$!";
$telnet->open('10.XXX.XXX.XXX');
$telnet->login('user','user');
@lines= $telnet->cmd("ipmac");
print OUT @lines,"\n";
for ($X=0;
Electron One <[EMAIL PROTECTED]> wrote:
> while(<>){
> chomp;
> if(/wilma\s+/){
>print "wilma was mentioned\n";
>}
> }
>
> #
>
> and I type, perl -w perlname.pl test3.txt
> shouldnt th
Hello Everyone,
If I have a file that contains this,
test3.txt##
wilma
wimagren was here
twilma was type wilma
wilma
wilma
wilma
twowilmase
###
Yeah it is interesting.
I just copied the code and sample file onto my XP-PRO and got the same
results as you did.
I then copied them to a Win98. It worked as you anticipated it
would...correctly.
I'll take a peak at what's going on there or if there seems to be a
work-around.
As well to you and t
