Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

(tye)Re2: TK Problem (me again)

by tye (Sage)
on Jan 04, 2001 at 23:22 UTC ( #49830=note: print w/replies, xml ) Need Help??


in reply to Re: (tye)Re: TK Problem (me again)
in thread TK Problem (me again)

foreach ($textline = <LOG>) {

doesn't do what you want. Perhaps:

foreach my $textline ( <LOG> ) { # or, much better: while( defined( $textline= <LOG> ) ) {
I was thinking of using nearly your original code inside of insert_lines(), assuming that that code set the default color for new insertions. I guess you'd have to restore the default color in the else clause or at the bottom of the loop (or in a continue block).

        - tye (but my friends call me "Tye")

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://49830]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (1)
As of 2021-10-28 14:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (96 votes). Check out past polls.

    Notices?