Hashes are your friends!
my $file1 = "file1";
my $file2 = "file2";
my %file1_names;
open(IN1,$file1) or die $!;
while () {
chomp;
$file1{$_} = 1;
}
close IN1;
open(IN2,$file2) or die $!;
while () {
chomp;
print "Found matching name: '$_'\n" if $file1{$_};
}
close IN2;
-Original Mess
Because the first parameter passed to open
is the file handle. In the first case, there are 3 file handles: 1,2,3. In
the second case, the same file handle is used for each file, always ‘1’.
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Hugh Loebner
Sent: Fri
I am trying to use Win32::OLE from a test_control computer
(Windows2003Server) to manipulate IE browsers on other computers (WindowsXP and
Windows2000 workstations). It works fine if I specify the localhost
instead of a remote machine (remote only in the sense of being different
computers on t
Yes, they show that the server does not send the output to the client
and there are no errors.
Jim Guion
Sr. Quality Assurance Engineer
Bluesocket, Inc.
-Original Message-
From: Aaron.Tesch [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 22, 2005 11:06 AM
To: Jim Guion; perl-win32
ing the file on the
target system.
Anyone know how to get the server to send me the output which I
desperately need to see?
Thanks,
Jim Guion
Sr. Quality Assurance Engineer
Bluesocket, Inc.
-Original Message-
From: Aaron.Tesch [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 17, 2005 4:37
Telnet server that
works with the Net::Telnet module?
Thanks!
Jim Guion
Sr. Quality Assurance Engineer
Bluesocket, Inc.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
These windows popup when changing from a non-secure to secure connection
and vice-versa, which is part of the application I am writing tests for.
I need to be able to detect that the alert window opened and close it
appropriately so that the application can continue.
Thanks for any guidance!
Jim
That is what I thought, too. At some point, during my attempt to get it
all to work correctly, I was seeing it return true for 01 > 32, and I
can't reproduce it now. Well, whatever, I am now able to comment out
the substitution line and it works fine as you pointed out, Mark
Jim
pair '6' ($list[5]) is too big, must be less than 52\n";
} else {
print "Number pair '6' ($list[5]) is okay, less than 52\n";
}
NOTE: On my system, Windows2000 desktop running Cygwin, the original
'split' line had a 'blank' at the beginning of the
ions for the
database? (If not, you will need to pass the user and password info)
In numerous installations, I have never seen it fail on the connect
method without some kind of error message.
Jim Guion
Sr. Quality Assurance Engineer
[EMAIL PROTECTED]
Bluesocket, Inc.
http://www.bluesocket.com
-
10 matches
Mail list logo