tag: perl 的日志列表

20075/02

perl的预参数处理

Published by nowa 18:29:14 二月 05th,2007 in perl.
今天写flickpr的时候查资料总结出来的:

1、可以使用Getopt::Std模块来实现。
Quotes
use Getopt::Std;
# -v, -D, -o ARG, sets $opt_v, $opt_D, $opt_o
getopts("vDo:");

# -v, -D, -o ARG, sets $args{v}, $args{D}, $args{o}
getopts("vDo:", \%args);

2、或者使用Getopt::Long来允许命名参数:
Quotes
use Getopt::Long;
GetOptions( "verbose" => \$verbose, # --verbose
"Debug" => \$debug, # --Debug
"output=s" => \$output );

3、如果不想对模块有所依赖,那么我们可以自己实现:
Quotes
my $var_name = "";
foreach (@ARGV) {
$var_1=int($_) if $var_name eq "-i" && !/^-/;
$var_2=$_ if $var_name eq "-c" && !/^-/;
$var_name=$_ if /^-/;
}


ps:今天收到了有道的来信

Getopt  perl  

已被阅读402次 1 Comments 0 Trackbacks

20073/02

Flickpr

Published by nowa 01:06:45 二月 03th,2007 in 不成器的作品.
Flickpr?你没有看错,是Flickpr。它还有一个主页在这里:

http://code.google.com/p/flickpr/

自从用ubuntu以来,一直没有一个好的flickr上传工具,有些郁闷。jUploadr貌似用的人挺多,但是一看是java写的我就兴趣欠奉。今天于是决定在未来一段时间内自己写两个工具:

1、ubuntu下的命令行上传工具,并且创建一个分支使用libgtk-perl可供nautilus加载为script。最初的打算并没有为nautilus做这些工作,不过后来在看到这个工具后,我决定让这个古老的工具重生(貌似是04年的了)。

现在的初步已经实现的是可以目录递归上传,并且可以自动获取token。打算在以后加入一个上传重复验证机制,以及更好的tag set action,并增加set等等的支持。

想要代码的人可以这样获得:
svn checkout http://flickpr.googlecode.com/svn/trunk/ flickpr

2、firefox下的flickr收藏扩展。对于网页上浏览到的图片,可以点击右键,选择“保存到flickr”即自动存储到flickr。mac os x下使用safari时就有类似的功能,不过是存储到本地的iphoto的。这个工具目前还没有开始,我打算在下周开始它。

ps:Flickpr使用perl基于Flickr::APIFlickr::Upload编写。

flickr  ubuntu  firefox  perl  

已被阅读128次 2 Comments 0 Trackbacks