Ubuntu中文论坛

代码： 全选

~/.config/rox.sourceforge.net/SendTo/.application_vnd.rn-realmedia  
☎ cat rmvb-avi.bash 
#!/bin/bash

c="mencoder -ovc lavc -lavcopts vcodec=mpeg4 -oac mp3lame '$*' -o '${*%rmvb}avi'"
echo $c
eval $c

代码： 全选

☎ cat rmvb-avi.bash 
#!/bin/bash

f=${*##*/}
f=${f%.*}
c="dtach -n /tmp/dtach-rmvb-avi-$f mencoder -ovc lavc -lavcopts vcodec=mpeg4 -oac mp3lame '$*' -o '${*%.rm*}.avi'"
echo $c
eval $c

代码： 全选

● cat attach.pl 
#!/usr/bin/perl

my @t=glob "/tmp/dtach*";
$pre=""; if(! -t STDOUT){$pre="xterm -e";}

if($#t<0){system("msg dtach 没有可连接的sock");exit 1;};
if($#t==0){system("$pre dtach -a $t[0]");exit 0};

#---------------------------
print "多个目标，用数字选择需要连接的文件。\n";
for (0 .. $#t){
print "$_\t$t[$_]\n";
}

use Term::ReadKey qw/ReadKey ReadMode/;
ReadMode 4;
do {
$key = ReadKey(0);
} while ($key<0 || $key>$#t);
#为什么其他字符都有效，除开$#t-9
ReadMode 0;
print "选择了 $key\n";print "$t[$key]\n";
#---------------------------
system("$pre dtach -a $t[$key]");