Access /usePocket.com

usePocket.com　キーワード分類ページ

Access

----------このキーワードを使っている記事----------
2025.12.15:3Dプリンターで作るタワー型水耕栽培システムで屋内水耕芝居～その2
2021.01.15:PerlでSlackに投稿する方法
2020.11.27:DC(12V)→DC(5V)のDCDC激安コンバーター(2020年物欲53)
2020.03.20:Perlから「はてな」のブックマーク数を取得時に「slv3 alert handshake failure」が出て取得出来ないので他のサーバーに投げて代わりにwgetで取得されるメチャクチャな方法でごまかした個人的メモ
2019.03.13:GoPro用のオプションパーツが50個入って2000円ちょっとの50-in-1キット購入、カメラ一般に使える汎用パーツも多数入っている(2019年の物欲9)
2019.01.25:米国でもRTX2060発売、amazon.comの最安値はMSI製で本体$349.99、日本への送料$41.99
2018.03.30:日本の通販が高すぎる
2017.02.15:Amazon.comで素敵なシルバー/レッドのPebble Time Roundが90ドル＋日本への送料6ドル（涙）

2025.12.15

3Dプリンターで作るタワー型水耕栽培システムで屋内水耕芝居～その2
3Dプリンターで作るタワー型水耕栽培システムで屋内水耕芝居～その2↑Ｂ X.COM

現在の状況、室内が怪しい植物育成LEDライトで光っているので大麻栽培を疑われて警察が来そうw

（省略されています。全文を読む）

Category:植物栽培・自宅で大規模水耕栽培

コメント書き込み・記事単独表示(1～)

2021.01.15

PerlでSlackに投稿する方法
PerlでSlackに投稿する方法↑Ｂ X.COM

作ったAPPSのPermissionsのscopeに「chat.write」と「chat.write.customize」を加える。

$Set{'token'}='xxxxxxxx';
$Set{'text'}='ほげほげ';
$Set{'channel'}='yyyyyyy';
$Set{'username'}='usePocket Update BOT'; #投稿するボットの名前
my $HtmlData=&WebAccessPOST('https://slack.com/api/chat.postMessage',\%Set); #※適当にWebアドレス宛にPOSTするサブルーチン用意してください。

あ、Perl要素がどこにもなかった(^^;

細かいところは下記と同じ

10ステップでSlackのAPIからチャンネルの履歴を取得する。 /usePocket.com

すげー簡単。
個人的メモ
（省略されています。全文を読む）

Category:Perl・Javascript・python、サーバー管理メモ

コメント書き込み・記事単独表示(1～)

2020.11.27

DC(12V)→DC(5V)のDCDC激安コンバーター(2020年物欲53)
DC(12V)→DC(5V)のDCDC激安コンバーター(2020年物欲53)↑Ｂ X.COM

もう何個買ったか分からないぐらい使っている。12Vから5VにDCDC変換して、しかもUSB端子が2つ付いている。最大3A(自称)。最近ペルチェを使うDIYが多いので元の電源ユニットはACからまずDC12Vなんだよね。そこから5V作るニーズがある。12Vも5Vも出てるATX電源を活用したいところ。中華の激安12V電源ユニットはコンデンサーとかファンとか体験的にも消耗品だしねぇ。

最近、AliexpressよりもBanggoodよりも日本のAmazonマーケットプレイスが送料含めて一番安いことが多いな。到着までの期間はどれも変わらない。

しかし厚さ5cmを超える郵便物を送る時に、国内から送るよりも海外通販の方が送料安そうなのはどういうことなんだ。日本の郵便は郵便ポストや郵便受けの入口の厚みを理由に制約かけているんだろうな。くだらん。
（省略されています。全文を読む）

Category:#パソコン本体 #パソコン周辺機器

コメント書き込み・記事単独表示(1～)

2020.03.20

Perlから「はてな」のブックマーク数を取得時に「slv3 alert handshake failure」が出て取得出来ないので他のサーバーに投げて代わりにwgetで取得されるメチャクチャな方法でごまかした個人的メモ
Perlから「はてな」のブックマーク数を取得時に「slv3 alert handshake failure」が出て取得出来ないので他のサーバーに投げて代わりにwgetで取得されるメチャクチャな方法でごまかした個人的メモ↑Ｂ X.COM

PerlからのHTTPSアクセスまわりがもう末期的な感じで、黄昏の言語なのかなと思っちゃう今日この頃。
しかし20年を超えるWeb運営の中で組んだ巨大で複雑怪奇なシステム群を別の言語で書き直すのも面倒だしねぇ・・・・、ここ数年でも何度かアクセス出来ないサーバーが出てきてPerlとか色々とアップデートしたらどうにかアクセス可能になったんだけど、直近だと「はてな」のAPIサーバーとかOSもPerlまわりも自動で出来るかぎり最新にしてもアクセス出来ないorz。

(1)通常のアクセス方法
$URLにアクセスするアドレスを入れて


use LWP::UserAgent;
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
$ua->agent('Mozilla/5.0 (Windows NT 6.1; rv:15.0) Gecko/20100101 Firefox/15.0.1');
my $req = HTTP::Request->new("GET",$URL);
$req->referer($URL);

これで$ua->request($req)->as_stringでアクセス先の内容が参照出来る。

(2)(1)の方法で取得すると「slv3 alert handshake failure」ってなる場合、Perlを諦めてwgetに投げるw


if ($ua->request($req)->as_string =~ /sslv3 alert handshake/){
my $targetUrl='"'.$URL.'"';
my $fname='getfiletemp.txt';
`/usr/bin/wget --no-check-certificate -q -O $fname $targetUrl`;
}

でファイル名$fnameにアクセスしたいURLの内容が入るのでそれを読み込む。

(3)wgetが利用出来ないレンタルサーバーの場合
(2)の内容をwget出来る別サーバーに投げて取得ww

で結局うちのサイトは(3)で動いてます。最終的に使っているコード
WebAccess('http://usepokcet.com')とかで取得出来る。


sub WebAccess{
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
$ua->agent('Mozilla/5.0 (Windows NT 6.1; rv:15.0) Gecko/20100101 Firefox/15.0.1');
my $req = HTTP::Request->new("GET",$_[0]);
$req->referer($_[0]);
if ($ua->request($req)->as_string =~ /sslv3 alert handshake/){
	return(&WebAccess('http://xxxxx.xxx/p.cgi?url='.$_[0]));	
	}else{return($ua->request($req)->as_string);}
}

別サーバーのp.cgiの内容


#! /usr/bin/perl

use CGI;
my $q = new CGI;
my %FORM=();
my @FORMname= $q->param();
foreach my $dammy (@FORMname){$FORM{$dammy}=$q->param($dammy);}

print "Content-Type:text/html\n\n";
$targetUrl='"'.$FORM{'url'}.'"';
$fname='getfiletemp.txt';
`/usr/bin/wget --no-check-certificate -q -O $fname $targetUrl`;
my @Data=&GetAllData($fname);
print @Data;
exit;

sub GetAllData{
my $FLFile=$_[0];
my @FL;
open (FL,"$FLFile");
flock(FL,1);
@FL=;
close FL;
return (@FL);
}