tie STDOUT to TextUndo

Is there anyway to tie STDOUT to a TK::TextUndo widget or somehow call a save method for the TK::Text widget? Ideas and suggestions welcome. Thanks, Steve.. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: RadioButton question

Figured it out.. in case anyone was wondering... sub OnSetNodeDialog { # Construct the DialogBox my $setNode = $mw->DialogBox( -title=>"Set Node Dialog", -default_button => "Cancel", -buttons=>["OK", "Cancel"] ); # Now we need to add a Label widget so we can show some text $setNod

Re: usage of Net::Telnet

This is what I do.. The only difference I see is that you haven't logged on.. my $rmhost = new Net::Telnet (Host => $nodesrch, Timeout => 100 ); $rmhost->login($uname_EGATE, $passwd_EGATE); $cat_command='cat ./data/journal/chopler'; @cat_result=$rmhost->cmd($cat_command);

RadioButton question

Hello all.. the radiobuttons execute the code in the command whether I select OK or Cancel.. How can I execute on ok only? I have the following code: sub OnPowerSearchDialog { # Construct the DialogBox my $setpwrsrch = $mw->DialogBox( -title=>"Set Node Dialog", -buttons=>["OK", "Cancel"] );

RE: cat zipped files

Thank you, for some reason I had it in my mind that command would only decompress the file, I tried it in my perl script and it worked fine.. >>> "Bakken, Luke" <[EMAIL PROTECTED]> 10/27/03 09:41AM >>> > -Original Message- > I was hoping someone would have an idea of how to cat zipped >

cat zipped files

I was hoping someone would have an idea of how to cat zipped files.. gzcat is NOT available to me, however, cat and zcat are.. But is there a module or sample perl script to cat zipped files? Thanks, Steve. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PR

Re: Error

Thanks for this advice... I will definately take it and research it, and see how I can incorporate it into my stuff.. "R. Joseph Newton" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > [EMAIL PROTECTED] wrote: > > > Through much digging I found AddScrollbars was defined in Tk::Frame..

Re: problem with NET::FTP

Sorry guys... I found out I wasn't ending the while loop properly.. opps... the good news is that i have it working now.. Thanks anyway.. <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > Hello.. I am having some problems with this sub... I am trying to take some > input box and send

problem with NET::FTP

Hello.. I am having some problems with this sub... I am trying to take some input box and send it to a file on a remote system.. Well, that works ok, but I would like to rename the file when I am done, because a process polls for the file.. Anyhow, I think my code is not releasing the handle on the

Re: Error

OK, for anyone who runs into this or for myself if this happens again... I removed everything Perl and re-installed the ActiveState version (ActivePerl-5.8.0.806-MSWin32-x86.msi)... got the exact same error... so I removed everything again and installed an older version (ActivePerl-5.8.0.804-MSWin

Re: Error

Through much digging I found AddScrollbars was defined in Tk::Frame.. #!perl -w # Pchopler.pl use strict; use Tk 800.000; # These are all the modules that we are using in this script. use Tk::Frame; use Tk::TextUndo; use Tk::Text; use Tk::Scrollbar; use Tk::Menu; use Tk::Menubutton; use Tk::Adjust

RE: Error

None that I can remember, but I am open to making necessary changes.. >>> "Paul Kraus" <[EMAIL PROTECTED]> 06/02/03 11:45AM >>> No changes to the system? Perl upgrade? System reload? Anything at all that you can remember? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED

Error

Can't locate Tk/AddScrollbars.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) at C:/Perl/lib/Tk/Widget.pm line 261. I was using this perl script without problems, then all of the sudden I am getting this error... I googled it and go nowhere.. any ideas? I tried to re-install TK from

Re: Perl grep clone

This is what I love about Linux, Perl, and other open source/open help projects... This is exactly what I needed.. Thanks, Steve. "John W. Krahn" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > [EMAIL PROTECTED] wrote: > > > > OK, I am not having any luck figuring out the regex stuf

Perl grep clone

OK, I am not having any luck figuring out the regex stuff.. Can somebody share with me a perl version of grep that works or tell me the "Perl Expression" for this..The reason I need something like perl is because the 2048 character limitation on grep... We have situations where the line can be much

Re: Regex question

usr/spool/mail/pegate what would be the appropriate Perl expression for this search? Thanks, Steve. "Steve Lobach" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] I have a perl script that acts like grep, however, it doesn't totally do what is expected.. The script is ca

Regex question

I have a perl script that acts like grep, however, it doesn't totally do what is expected.. The script is called peg.. It supposedly takes regex or perl expressions for parameters.. however I have to search for the following string : TDS-RES.1.2345678 but when I use the following regex it fai

Re: How do you 'read' from a Tk widget ?

I'm a newbie, but try... my $strngName=$txtWidgetName->get(0.1, 'end'); >>> yargo <[EMAIL PROTECTED]> 02/21/03 07:14AM >>> Hi all, I have this little script that asks the user for UserName & password. I can't figure out where do I get the input. e.g. : UserName = yargo Password = q1w2e3

Re: Reading Tk::Text widget

print $peg_command; print "\n"; #$rmhost->cmd($peg_command); }; }; }; # $rmhost->close; print"DONE"; } >>> "Steve Lobach" <[EMAIL PROTECTED]> 02/

Re: Sending e-mail from perl script using SMTP on Windows!!!working now

I would assume you would have to actually do a lookup using LDAP or something.. >>> "Madhu Reddy" <[EMAIL PROTECTED]> 02/18/03 08:55PM >>> Hi Guys, now it's working fine there is typeo in e-mail address i put email address as '[EMAIL PROTECTED]' here typeo... actual is "redy.ponnolu"

Reading Tk::Text widget

I am trying to read in a text widget line by line: my $peg1=$PegText->get('1.0', '1.0 lineend'); my $peg2=$PegText->get('2.0', '2.0 lineend'); the problem is I want to do it dynamically, because I don't know how may I will have in the future.. I read about the following method,

Parsing TK textbox

I have this subroutine which works pretty well for one value, but I need to be able to parse the input text box ($PegText) so I can loop over the entry's.. I assume I can use $PegText->get($index1,$index2); I just don't know how to use it.. how does the setup the initial $index2 to look for the d

Re: Newbie question

ript, but you don't have a webserver... What O/S is on the desktops? More importantly, what scripting or programming language do they have in common? You can make a script or program in you choice of language. As long as it supports running other languages and can recieve the output from th

Newbie question

I've been doing some work on AIX and using grep to find data in files, but I frequently run into situations where the lines are much longer than 2k characters. I found a nice tool using Perl to do this.. Now I would like to beef up this script a little bit.. How can I run that Perl script re