方便找图片的perl

[eexpress]

通常，locate图片后，很难定位。就写了一个。

代码： 全选

☛ cat bin/thumb.pl
#!/usr/bin/perl

@_=map {chomp; "\'$_\'";} <>;
$_=join " ",@_;
print ;
`feh -t $_`;

代码： 全选

☛ locate -r '.*kill.*png'|thumb.pl 

[nuanhuai]

竟然没登录