Put this into a ".bat" file, e.g., "clipfile.bat" (one line!):

@perl -MWin32::Clipboard -e "binmode(*STDOUT); $c=Win32::Clipboard(); 
+print $c->Get();" > clipfile.txt
[download]

Update: Added binmode() call as in tilly's suggestion.

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com

You should binmode STDOUT or else the newlines may be messed up. With that in place:

@perl -MWin32::Clipboard -e "binmode(*STDOUT); print Win32::Clipboard-
+>Get();"
[download]

#!/bin/perl -w
use strict;
use Win32::Clipboard;
use FileHandle;

my $clipboard = Win32::Clipboard();

#open the log file
my $file = 'c:\temp\clip.txt';
open(OUTPUT,">>$file") or die "open: $!";

binmode OUTPUT;
autoflush OUTPUT 1;

print "Clipboard being saved to $file\n";
print "To exit, CNTL-C out of this window.\n\n\n";

while (1) {
    $clipboard->WaitForChange();
    my $text = $clipboard->GetText();
    my $now = localtime();
    print "$now: writing " , substr($text,0,40) , "... to $file\n";
    print OUTPUT "$now\n$text\n";
}

exit;

END { close OUTPUT or die "close: $!"; }
[download]

You guys are good. I have some trouble with the one that stays resident, which is the one I would like to have working, as there are many clips I need to copy and have as files. So I do not want an append to file, but simply a file named by date+time. The latter I can figure out myself, but the problem is that this code does make a file, but writes nothing in it. 0kb. So if you can get it to work for a fixed file name without append, I would be extremly happy. Sincerely Rolf

Sorry, It did write to file. It just took some time before it appeared after I closed the script. My fault, I should have understood that. Would it also be possible to flush the clipboard when it first starts, so that anything in the clipboard is first deleted and then it waits for a new CTRL+C ?