urxvt selection to clipboard

clipboard

#! /usr/bin/perl

# urxvt selection to system clipboard
# Saw in: https://bbs.archlinux.org/viewtopic.php?id=42563
#
# Save it to /usr/lib64/urxvt/perl as clipboard
# In ~/.Xdefaults, enable it with:
# 	urxvt*perl-ext-common:      default,matcher,clipboard

sub on_sel_grab {
    my $query = quotemeta $_[0]->selection;
    $query =~ s/\n/\\n/g;
    $query =~ s/\r/\\r/g;
    system( "echo -en " . $query . " | xsel -ibp" );
}