Recent content by Parke

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...

I found the solution. Need to add $t -> focus; $nb1 -> update; after a $t->insert....

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 = &quot;e:/perl practice/regexp/tek_tip_file.txt&quot;; open(INFO, $log_file) or die &quot;could not open tek_tip_file.txt: #!&quot;; @lines = <INFO>; close(INFO); foreach...

Take a look at http://www.iam.unibe.ch/~scg/Archive/Software/FreeDB/FreeDB.list.html

Saweens: You may need to change from type variant to a subtype such as int or double using cint or cdbl before you pass your variables. HTH Parke

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 &quot;182.170.34.202&quot;, &quot;b9245acd231234as&quot; 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 (&quot;\tADO DSN-Less to pubs database on local MS Access database. \n&quot;); print &quot;\n&quot;; # Create ADO auto object $conn = CreateObject OLE &quot;ADODB.Connection&quot; || 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...

Mike: Thank you very much. Now I can play with it to see how it works. Parke