概要
Redisに指定したキーとバリューをセットするスクリプトです。
CPANのRedisを使わせてもらってます。
使用するDB番号(dbid
)の指定も可能です。
使い方
オプションでキーとバリューを指定出来ます。
redis.pl -k testkey -v testvalue
ヘルプ
-h
でヘルプが表示されます。
Usage: redis.pl [options...] Options: [-h, --help|-k, --key|-v, --value|-m, --man] Options: -h|--help Print help -k|--key Set KEY -v|--value Set VALUE -m|--man Print man
スクリプト
#!/usr/bin/env perl use strict; use warnings; use Redis; use Getopt::Long qw(:config auto_help); use Pod::Usage; my $redisserver = '127.0.0.1'; my $redisport = '6379'; my $dbid = '0'; my $key; my $value; # Check ARGV. if (-1 == $#ARGV) { pod2usage(2); } # Get Options my %opt = (); GetOptions(\%opt, 'help|h', 'key|k=s' => \$key, 'value|v=s' => \$value, 'man' ) or die ("ERROR $!"); pod2usage(1) if $opt{help} or $opt{h}; pod2usage(-verbose => 2) if $opt{man}; # Connect Redis my $r = Redis->new (server => "$redisserver:$redisport", encoding => undef); # Set KEY,VALUE $r->select($dbid); $r->set($key => $value); my $getvalue = $r->get ($key); print "key: $key\n"; print "value: $getvalue\n"; $r->quit; __END__ =pod =head1 NAME redis.pl -- test script. =head1 SYNOPSIS B<redis.pl> [options...] Options: [-h, --help|-k, --key|-v, --value|-m, --man] =head1 OPTIONS =over 8 =item B<-h|--help> Print help =item B<-k|--key> Set KEY =item B<-v|--value> Set VALUE =item B<-m|--man> Print man =back =head1 DESCRIPTION This script is Redis testscript. =cut
参考
http://search.cpan.org/~dams/Redis-1.980/lib/Redis.pm
Perlスクリプトのオプションやヘルプ表示を参考にさせていただきました。
http://www.kurobuti.com/blog/?p=5654