REDIRECT COMMAND LINE OUTPUT TO THE WINDOWS CLIPBOARD.
Hi, I copied the code in the Perl Tip in to a text file, commented out the comments, etc. and it “runs”. However, I get no output and the program just hangs until I hit CTRL C. Here is the code:
# copy stdin or a file to the clipboard
use Win32::Clipboard;
tie $CLIP, ‘Win32::Clipboard’;
# anything you do to $CLIP will now go to the clipboard
# accept a list of files to insert, one after the other
if (@ARGV)
{
# first clear the current clipboard contents
$CLIP = ”;
# now append each file in turn
for (@ARGV)
{
open IN, “<$_" or die "Can't open $_: $!\n";
print "Inserting $_ into the windows clipboard\n";
$CLIP .= join '',
close IN;
}
}
# or just read from standard input
else
{
print “Inserting STDIN into the windows clipboard\n”;
$CLIP = join ”,
}
# fix the clipboard EOL problems
$CLIP =~ s/\r?\n/\r\n/g;