2023-12-07

Google Pixel のアップデート - 2023 年 12 月が来たので早速アップデートしてみた

今の所変わった所はないけど
どうなんだろう？

なお、詳しい内容については
https://veryurl.com/p2mAKv/
参照にて

2023-11-27

さくらインターネット.netドメインの料金改定メールが来た

タイトルの通りさくらインターネットのドメイン.netドメインの料金改定のメールが来た
なお、値段は

・2,708円/１年
　　↓
・3,182円/１年

という事らしい

改定日（実施日）は２０２４年１月２３日の１１時からなので注意が必要
皆さんもご注意を

参照URL
https://veryurl.com/rQuu20/

2023-11-26

書きかけのcgiその２

peri

本に掲載されてた通り書いたがちゃんと動くか不明・・・

ーーーここからーーー

#/usr/bin/perl
$rand;
$x = rand;
if ($x < 0.2 {
$url ="";
}elsif{$x < 0.4) {
$url ="";
}elsif{$x < 0.6) {
url ="";
}elsif{$x < 0.8) {
$url="";
}
print "location:$url\n\n";
#<a href="./ramdom.cgi">ランダムリンク</a>

ーーーここまでーー

自信ないんだよなぁーちゃんと動くと言う自信が

2023-11-20

書きかけのcgi

peri

#!/usr/bin/perl
require "cgi-lib.pl"
&ReadParse;
$sex = $in('sex');
$int = $in('int');
$form = $in('form');
$ice = $in('ice');
#データーを分割
@int = &splitparam('int')
@ice = &splitparam('ice')
#データーをｄｂｍで分割
dcmopen(%SEX,"sex",0666);
$SEX{$key}++;
dbmclose{sex};
dbmopen(%int,"INT",(0666);
foreach %key (@int) {
$int (key)++;
}
dbmclose(%int);
dbmcopen(%fome,"FORM" (0666);
$form{$form}++;
cbmclose(%form);
dlomopen(%ice,"ICE",0666);
foreach %key (@ice) {
$ice{key}++;
}
dbmclose(%iec);
#ブラウザに出力