[Perl-unix-users] Cleaning up after tie ing a tk text widget?

Hello Tk and Perl afficianados, I'm tie-ing a filehandle to a Tk::Text widget printing some lines and then... I would like to clean up and close my filehandle. (Silly me trying to keep things clean) Unfortunately by doing the tie I've associated the Text widget to the filehandle and when I t

Re: [Perl-unix-users] Regex question

Terry, Something like this should work. Note this is not tested. Here's a little explanation too. The '.' matches any character as you know and the '*' says any number of those any characters. The key is the '?' after the '*' which makes the match "non-greedy". Normally the '*' matches as

[Perl-unix-users] Regex question

Can someone point out what I appear to be missing ?  I am trying to extract   BEG ... KEYWORD .. END from  the DATA string below: I only want the BEG to END portion where KEYWORD is in between.   As is. I get the entire string.  Sorrynewline chars were removedMore readable form be

[Perl-unix-users] Regex question

Can someone point out what I appear to be missing ? I am trying to extract BEG ... KEYWORD .. END from the DATA string below: I only want the BEG to END portion where KEYWORD is in between. As is. I get the entire string. #!/usr/bin/perl while () { push(@files, /(BE