代码: 全选
~/.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
代码: 全选
~/.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]");