Tweet
Tweet
Tweet
Tweet
#!/usr/bin/perl -w
use strict;
use warnings;
use Net::CloudStack;
use YAML::Tiny;
use Data::Dumper;
use JSON;
use XML::Simple;
my ($xml_json,$send_request);
my $yaml = YAML::Tiny->new;
$yaml = YAML::Tiny->read('cs-api.yml');
my $obj;
if(defined($yaml->[0]->{xml_json})){
$xml_json = $yaml->[0]->{xml_json};
}
else{
$xml_json = 'json';
}
if(defined($yaml->[0]->{send_request})){
$send_request = $yaml->[0]->{send_request};
}
else{
$send_request = 'no';
}
my $api = Net::CloudStack->new(
api_key => $yaml->[0]->{api_key},
secret_key => $yaml->[0]->{secret_key},
base_url => $yaml->[0]->{base_url},
api_path => $yaml->[0]->{api_path},
xml_json => $xml_json,
send_request => $send_request,
);
my $cmd = $ARGV[0];
if(defined($ARGV[1])){
$api->${cmd}("$ARGV[1]");
}
else{
$api->${cmd};
}
print Dumper($api->url);
print Dumper($api->response);
if($api->xml_json =~ /json/i){
$obj = from_json($api->response);
}
else{
my $parser = XML::Simple->new;
$obj = $parser->XMLin($api->response);
}
print Dumper($obj);
if($api->xml_json =~ /json/i){
foreach (keys %$obj){
print Dumper($obj->{$_}->{jobid});
}
}
else{
print Dumper($obj->{jobid});
}
exit;
---
api_key: ***
secret_key: ***
base_url: http://*.*.*.*
api_path: portal/client/api? #your API PATH
xml_json: json
send_request: yes
# ./cs-api.pl startVirtualMachine id=521
$VAR1 = 'http://*.*.*.*/portal/client/api?apikey=*****&command=startVirtualMachine&id=521&response=json&signature=***';
$VAR1 = '{
"startvirtualmachineresponse" : {
"jobid" : 2114
}
}
';
$VAR1 = {
'startvirtualmachineresponse' => {
'jobid' => 2114
}
};
$VAR1 = 2114;
Tweet
Tweet
Tweet
Tweet
ERROR: mmu_update failed with rc=**eu-west-1
aki-64695810 ec2-public-images-eu/pv-grub-hd0_1.02-i386.gz.manifest.xml
us-east-1
aki-805ea7e9 ec2-public-images/pv-grub-hd0_1.02-i386.gz.manifest.xml
ap-northeast-1
aki-ec5df7ed ec2-public-images-ap-northeast-1/pv-grub-hd0_1.02-i386.gz.manifest.xml
us-west-1
aki-83396bc6 ec2-public-images-us-west-1/pv-grub-hd0_1.02-i386.gz.manifest.xml
ap-southeast-1
aki-a4225af6 ec2-public-images-ap-southeast-1/pv-grub-hd0_1.02-i386.gz.manifest.xml
#!/bin/bash -ex
#
# Test for a reboot, if this is a reboot just skip this script.
# リブート時に動作しない設定
#
if test "$RS_REBOOT" = "true" ; then
echo "Skip installation and configuration on reboot."
exit 0
fi
#### Setting ####
#ディストリビューション毎のセッティング
if [ $RS_DISTRO = centos ]; then
## Input Configration Setting on Ubuntu ##
echo "Initializing CPAN setting configuration,now..."
cat<<EOF >/usr/lib/perl5/5.8.8/CPAN/Config.pm
# This is CPAN.pm's systemwide configuration file. This file provides
# defaults for users, and the values can be changed in a per-user
# configuration file. The user-config file is being looked for as
# ~/.cpan/CPAN/MyConfig.pm.
\$CPAN::Config = {
'build_cache' => q[10],
'build_dir' => q[/root/.cpan/build],
'cache_metadata' => q[1],
'cpan_home' => q[/root/.cpan],
'dontload_hash' => { },
'ftp' => q[/usr/kerberos/bin/ftp],
'ftp_proxy' => q[],
'getcwd' => q[cwd],
'gpg' => q[/usr/bin/gpg],
'gzip' => q[/bin/gzip],
'histfile' => q[/root/.cpan/histfile],
'histsize' => q[100],
'http_proxy' => q[],
'inactivity_timeout' => q[0],
'index_expire' => q[1],
'inhibit_startup_message' => q[0],
'keep_source_where' => q[/root/.cpan/sources],
'links' => q[],
'make' => q[/usr/bin/make],
'make_arg' => q[],
'make_install_arg' => q[],
'makepl_arg' => q[],
'ncftp' => q[],
'ncftpget' => q[],
'no_proxy' => q[],
'pager' => q[/usr/bin/less],
'prerequisites_policy' => q[follow],
'scan_cache' => q[atstart],
'shell' => q[/bin/bash],
'tar' => q[/bin/tar],
'term_is_latin' => q[1],
'unzip' => q[/usr/bin/unzip],
'urllist' => [q[ftp://ftp.riken.jp/lang/CPAN/]],
'wget' => q[/usr/bin/wget],
};
1;
__END__
EOF
echo "Install CPAN Modules,now..."
cpan $CPAN_MODULES
fi
#リターンコード0で終わらせる
exit 0
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
use strict;
#!/usr/bin/perl -w
use strict;
use warnings;
use Web::Scraper;
use URI;
my $uri = URI->new("http://weather.goo.ne.jp/past/2011/08/662/index.html");
my $scraper = scraper {
process '/html/body/div[2]/div/div/div[2]/div/div/div/div/table[2]/tr/td/span[1]','list2[]' => 'TEXT';
};
my $result = $scraper->scrape($uri);
for(my $i=0;$i<35;$i++){
print $result->{list2}[$i]."\n";
}
exit;
Tweet
今回は、クライアント側にて下記を実行。# iperf -s -u ------------------------------------------------------------ Server listening on UDP port 5001 Receiving 1470 byte datagrams UDP buffer size: 122 KByte (default) ------------------------------------------------------------
# iperf -c <サーバ側IP> -n <転送量> -b <帯域> -u
Tweet
後は、CPANにNet::GooglePlusがでてくるのを待つばかり。。。
Tweet
Tweet
Tweet
use strict;
use warnings;
use WWW::Mechanize;
my $url = 'site name';
my $id = 'your id';
my $pw = 'your pw';
my $mech = WWW::Mechanize->new();
$mech->get($url);
$mech->submit_form(
fields => {
'id' => $id,
'pw' => $pw,
},
);
print $mech->content;
exit;
$mech->add_handler(request_send => sub {
my $req = shift;
$req->dump;
return;
});
$mech->add_handler(response_done => sub {
my $res = shift;
$res->dump;
return;
});
Tweet
Tweet
Tweet
 お湯で戻すだけ/焼き米/非常食にも／携帯食にもライスフレーク（焼き米）300g |
Tweet
Tweet
Tweet
#!/usr/bin/perl -w
use strict;
use warnings;
use WWW::Curl::Easy;
my $in_file = "<適当なfile名>";
open(IN,"$in_file");
while(<IN>){
chomp($_);
my $response_body;
my $curl = WWW::Curl::Easy->new;
$curl->setopt(CURLOPT_HEADER,1);
$curl->setopt(CURLOPT_WRITEDATA,\$response_body);
$curl->setopt(CURLOPT_URL, "$_");
my $retcode = $curl->perform;
print $_.":".$retcode.":".$curl->getinfo(CURLINFO_HTTP_CODE)."\n";
}
exit;
http://www.yahoo.co.jp
http://www.google.co.jp
Tweet
Tweet
| Title | カテゴリ | SAP | ユーザ数 | AS運営者 | AS |
|---|---|---|---|---|---|
| CityVille | Games/Other | Zynga | 89171915 | Amazon | AS14618 |
| FarmVille | Games/Virtual World | Zynga | 46231606 | Amazon | AS14618 |
| Texas HoldEm Poker | Games/Card | Zynga | 36204518 | PACNET | AS20940 |
| FrontierVille | Games/Virtual World | Zynga | 15093228 | Amazon | AS14618 |
| Caf? World | Games/Virtual World | Zynga | 12916388 | Amazon | AS14618 |
| Pet Society | Games/Virtual World | Electronic Arts | 9578090 | Amazon | AS14618 |
| Ravenwood Fair | Games/Virtual World | Lolapps Inc. | 9451266 | SOFTLAYER | AS36351 |
| Treasure Isle | Games/Role Playing | Zynga | 8419499 | Amazon | AS14618 |
| It Girl | Games/Role Playing | CrowdStar | 8338276 | Amazon | AS14618 |
| Millionaire City | Games/Virtual World | Digital Chocolate, Inc. | 8018617 | Amazon | AS14618 |
Tweet
Tweet
| Title | Category | SAP | 利用者数 | AS |
|---|---|---|---|---|
| みんなでケンテイ(´∀｀) | 占い・診断 | Community Factory | 6231655 | AS23661 |
| サンシャイン牧場 | エンターテインメント | Rekoo | 5627081 | AS18068 |
| マイミク通信簿 | 占い・診断 | 空飛ぶ | 3550770 | AS17506 |
| 脳力大学-漢字テスト | 学習 | 株式会社ドリコム | 2590349 | AS2497 |
| 今日の血液型自分の説明書診断 | 占い・診断 | HEROZ（株） | 2190718 | AS16509 |
| たのしい☆みん顔!生活 | エンターテインメント | サイバード | 2145273 | AS4713 |
| 今日の誕生日占い | 占い・診断 | HEROZ（株） | 1643655 | AS16509 |
| そうしてあなたは去ってゆくのね | コミュニケーション | 株式会社アドウェイズ | 1573983 | AS9370 |
| 記憶スケッチ | その他 | 株式会社REAL | 1499541 | AS9607 |
| みんなの農園 | エンターテインメント | RAKOO | 1471834 | AS17686 |
Tweet
| Title | Category | SAP | ランキング | 公式サークル参加数 | AS |
|---|---|---|---|---|---|
| 怪盗ロワイヤル-zero- | RPG | 株式会社ディー・エヌ・エー | 1 | 46981 | AS38636 |
| 対戦☆ZOOKEEPER | パズル | 株式会社ＫＩＴＥＲＥＴＳＵ | 2 | 12085 | AS2510 |
| ガンダムブラウザウォーズ | RPG | 株式会社バンダイナムコオンライン | 3 | 9882 | AS2510 |
| キャプテン翼 | スポーツ・レース | KLab株式会社 | 4 | 2980 | AS7488 |
| もやしもんガチャガチャ | 育成・シミュレーション | 株式会社フジテレビジョン | 5 | 9810 | AS2510 |
| 100万人の信長の野望 | 育成・シミュレーション | 株式会社ディー・エヌ・エー／株式会社コーエーテクモゲームス | 6 | 131844 | AS4713 |
| ラーメン魂 | 育成・シミュレーション | 株式会社サミーネットワークス | 7 | 22056 | AS4694 |
| まきば生活 ひつじ村 | 育成・シミュレーション | 株式会社サクセス | 8 | 10555 | AS7506 |
| 海賊トレジャー ANOTHER WORLD | アクション・タイミング | 株式会社ディー・エヌ・エー | 9 | 20194 | AS38636 |
| 英雄クエスト | RPG | ONE-UP株式会社 | 10 | 6679 | AS4694 |
Tweet