Are you saying your code below doesn't work? It seems to work for me. What was I doing wrong?
Thanks, Jason -----Original Message----- From: $Bill Luebkert [mailto:[EMAIL PROTECTED] Sent: Friday, December 03, 2004 8:10 PM To: Allison, Jason (JALLISON) Cc: [EMAIL PROTECTED] Subject: Re: Win32::ClipBoard WaitForChange with LWP::UserAgent->new() Allison, Jason (JALLISON) wrote: > Hello all, > > -- This is perl, v5.8.4 built for MSWin32-x86-multi-thread -- Win2k > Professional > > Im trying to shortcut an intranet web lookup using the > Win32::ClipBoard module. The unusualness of this not working is the > first iteration into the loop/WaitForChange works, but it doesn't work > for susequent changes, which makes no sense. My original thoughts > were along the lines of improperly scoped LWP of HTTP variables, but I > just don't see it. In addition, I use this code w/in a module using > Tk as a front-end and it works fine (sans Win32::Clipboard). > > Below is made my best basic bug statement. The code below obviosly > has no valid use except to show my point. The code below when run > will determine when there is a change to the Win32 ClipBoard and paste > the google content into the clipboard and then wait for another > change. When run, the code will recognize the first change to the > ClipBoard, but not subsequent. > > Let me also add that the second code snippet takes out the LWP/HTTP > all together and it works, however, I see some obscure "race > condition" sitautions if I don't put the sleep in there. For example, > the app will work, but I will get 2 or 3 "change"'s per copy into a > clipboard > > Any ideas? It appears to be really screwed up. Polling should work : use strict; use LWP; use HTML::Parse; use Win32::Clipboard; my $prev = 'cross-reference'; my $clip = Win32::Clipboard ($prev) or die "new clipboard: $! ($^E)"; while (1) { sleep 5; my $is = $clip->GetText(); next if $is eq $prev; print "clipboard change\n"; print "is='$is'\n"; set_clipboard (); } sub set_clipboard { my $ua = LWP::UserAgent->new(); my $url = "http://www.google.com";; my $req = new HTTP::Request GET => $url; my $response = $ua->request($req); my $html = $response->content; $clip->Set($html); $prev = $html; } __END__ -- ,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED] (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/ -/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff) _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
