If the focus and update lines are added after a $t->insert, it appears to be similar to adding the $|=1 to clear the buffer in perl. Everything earlier is printed or in this case, inserted into the ROText widget.
I've been playing with Tk for less than a month so I cannot give a good answer...
Background:
Windows environment;
using SAMIE for regressive testing of website;
depending upon number of choices selected, a run can take over 30 min;
disconcerting to QC folks to see nothing for half an hour;
This code:
only the "Start testing" and "Exit" buttons are live.
When the following...
Hello Everyone:
With Perl, I can clear buffers and force print using $| = 1;
How can I force a print/insert in perl::tk in a rotext widget?
At the moment, all the inserts occur at the end of the program. I would like to have the inserts occur through out the run rather than at the end...
As long as the order of your list is consistent, this works
# tek-tips thread219-407527
use diagnostics;
@x = qw(
/a1/a.html
/a1/b.html
/a1/g.html
/a1/x/d.html
/a1/x/e.html
/a1/x/r.html
/a2/d.html
/a2/c.html
/a2/r.html
/a2/x/h.html
/a2/x/f.html
/a2/x/w.html...
If the format of the string is always the same, try
#!/c:/perl/bin/perl.exe
# splitting a string on _
use diagnostics;
$line = 'aaa_A43.bbb11_07172002_00.ab.err';
(undef,undef,$wanted,undef) = split('_',$line);
print "$wanted\n";
Using PerlIsGood expression, try
#!/user/local/bin/perl
use diagnostics;
# I stuck your file example here
$log_file = "e:/perl practice/regexp/tek_tip_file.txt";
open(INFO, $log_file) or die "could not open tek_tip_file.txt: #!";
@lines = <INFO>;
close(INFO);
foreach...
Jim:
Only that I am very new to Perl and learning. Thanks for pointing out that Neil's example does answer the question.
Again thanks for the help,
Parke
Neil, Coderifous:
Each line of the log file will look along the line of
"182.170.34.202", "b9245acd231234as" and lots of additional junk
and there might be 30,000 lines/IDs to extract.
The second set of quotes is the ID that I am extracting from each line of the log...
In case anyone is interested:
#! /d/program files/perl/bin/perl
use OLE;
use warnings;
print ("\tADO DSN-Less to pubs database on local MS Access database. \n");
print "\n";
# Create ADO auto object
$conn = CreateObject OLE "ADODB.Connection" ||
die...
While reading a log file, I am selecting an ID using reg exp and inserting the ID into a hash as the key and setting the value = 1. The nice thing about using a hash is that it filters out the duplicate ID values. If I wanted to be able to count the number of times each ID occurs, how can I...
The backslash in RegExp has a special meaning. Your pattern probably needs a two backslashes \\. See http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsgrpregexpsyntax.asp
Take a look at http://regexlib.com/default.aspx. Site has a number of examples of patterns...
I use ADO a fair bit in vbscript and vb programs. It is very convenient to write a program and be able to run it on any windows machine and not worry about having to first set up the ODBC connection. The best URL I've found for ADO connection strings is...
Mike Lacey's FAQ is well done. Thanks for the reference. Do you know of anything similar showing how to use ADO and a dns-less connection?
Thanks,
Parke
We are attempting to set up Win 2K, advanced server with 4 Xeon 1.6 MHz cpus and 8G Ram. The server is "telling" us that we have 8 cpus and 4G Ram. Are we doing something wrong? This is a fresh install.
Any and all help appreciated. This is my first multiprocessor Xeon box...
Mighty:
Arrays are automatically passed byref. So pass the array, change the row as required and it is done.
' tblPractice has fields, startdate (datetime), istudents (number),
' tclassroom (text), ID (autonumber)
' I inserted three records
Dim cn
Dim rst
Dim myarray
Const adStateOpen = 1...
Yes, an array can be passed
Call initialArray()
' ========
Sub initialArray()
Dim myArray(3)
For i = 0 to 3
myArray(i) = 5 + i
Next
s = "inital array"
for j = 0 to 3
s = s & vbcrlf & myArray(j)
Next
Call changeArray(myArray,s)
msgbox s
End Sub
' ==========
Sub...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.