发表于 : 2005-11-14 0:29
ok ! 整理一下,!
代码: 全选
#!/bin/bash
UI="zenity --title="抓图工具""
ERROR_FILE="/tmp/screen_shot_error_message.txt"
SLEEP=`$UI --entry --text="请输入抓图前要延时的秒数:" \
--entry-text="4"`
if [ -z $SLEEP ];then
exit;
fi
FILE=`$UI --file-selection --title="选择需要保存抓图文件的位置" --save --filename="/tmp/screenshot.png"`
if [ -z $FILE ]; then
exit;
fi
sleep $SLEEP
#清空错误文件
echo > $ERROR_FILE
RESULT=`import "$FILE" 2> $ERROR_FILE`
if [ -s $ERROR_FILE ]; then
$UI --title="抓图失败!详细错误信息如下:" --text-info --filename=$ERROR_FILE --width="500"
else
$UI --info --text="抓图成功!文件保存在$FILE。"
fi
代码: 全选
#!/usr/bin/perl -w
#usage pasteub file1 file2 .. .. (all you file paste as code)
#usage pasteub -s file1 -co str -c type -p name .. .. (file1 paste as screenshot, str paste as code)
use strict;
use WWW::Mechanize;
use Getopt::Long;
my $pastebin_url = "http://paste.ubuntu.org.cn";
my %f = (
code2 => '',
screenshot => '',
class => 'actionscript',
poster => 'test'
);
GetOptions ( \%f,
"code2=s",
"screenshot=s",
"class=s",
"poster=s"
) || die $!;
my $mech = WWW::Mechanize->new();
$mech->get($pastebin_url);
die $! unless ($mech->success());
unless ($f{code2} || $f{screenshot}) {
$f{code2} = join "", <>;
}
$mech->form_name('editor');
$mech->set_fields(%f);
$mech->submit_form( button => 'paste');
die unless ($mech->success);
my $paste = $mech->uri();
print $paste . "\n";
system "echo -n $paste | xsel -i";
system "echo $paste >>./history";
system "beep -f 1000 -n -f 2000 -n -f 1500";
system "notify-send \"Paste OK\" \"URL in you clip\"";
exec "firefox $paste ";
代码: 全选
#!/bin/bash
cd ~/screenshot/
beep -r 1 -f 2345
if [ $1 -eq 0 ] ; then
scrot -sb `date +%Y-%m-%d-%H-%M-%S`.png
elif [ $1 -eq 1 ] ; then
#scrot -sb `date +%Y-%m-%d-%H-%M-%S`.png -e 'upimage $f'
scrot -sb `date +%Y-%m-%d-%H-%M-%S`.png -e 'pasteub -s $f -p "me" '
elif [ $1 -eq 2 ] ; then
xsel -o | pasteub -p "me"
iif [ $1 -eq 3 ] ; then
scrot -sb `date +%Y-%m-%d-%H-%M-%S`.png -e 'pasteub -s $f -p "me" -co "`xsel -o`"'
fi