use strict; use warnings; use Win32::Clipboard; my $outputfile = 'c:\perl\log.txt'; my $clipboard = Win32::Clipboard(); $clipboard->Empty(); while (1) { $clipboard->WaitForChange(); open (OUT, ">>$outputfile") || die "Could not open $outputfile"; my $text = $clipboard->GetText(); print OUT $text,"\n\n"; print $text,"\n\n"; close OUT; } exit(0);
In reply to turning off and on a program by Mattk470
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |