1#!/bin/sh -x 2reset_data() { 3 cat scripts/clip* | 4 perl -Ilib -MClipboard -e 'Clipboard->copy(join "", <>)' 5} 6reset_data 7perl -Ilib scripts/clipfilter -html # TODO: | tail <--buggy 8reset_data 9perl -Ilib scripts/clipfilter -uri 10reset_data 11perl -Ilib scripts/clipfilter tac 12