blob: 2471bc8a4fbcf4dd10801b9cf679aeebe391de4c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Clipboard;
use File::Temp 'tempfile';
my $file = File::Temp->new(SUFFIX => '.png', CLEANUP => 1);
my $filename = $file->filename;
system(
"import",
(@ARGV && ($ARGV[0] eq '--full') ? (qw(-window root)) : ()),
$filename,
);
chomp(my $url = `nopaste $filename`);
Clipboard->copy($url);
say $url;
|