@Blog{zip358.com}

先日、サーバーを移行しました。AWSさようなら。

2022.06.30

Logging

おはようございます。初夏らしいですが初夏？ 増暑です…😆。映画、SLAM DUNKが待ち遠しいです。

其れはさておき、サーバーをAWSからさくらVPSサーバーに移行しました、迷っている暇は無かった・・どんどんと経費がかさむので止む得なく急遽、平日の休みを使用してサーバーを移行しました。移行したんだけど、少しミスってアクセスの多いサーバーを見えなくなるという現象が出てしまいました。４０分ほど閲覧できなくなってしまっていた。

結構焦りますよね。

閲覧できない状態が数時間とか続いたら大変ですよ本当に…。仕事では失敗したくないなって思います。今回の反省点はやはりサーバー移行すると何かしら環境が違うので動かなかったりする。

そういう時は落ち着いて深呼吸でもして、ログを見ることが大事、結局のところログに答えが載っていることが多いです。今回もそんな感じでした。

因みに以前書いた、サーバー移行時にscpを使う方法。これはFTP使用するよりも時間短縮になるから覚えていたほうが賢明です。

scp -irp /~/example.pem /var/www/html/* root@example.com:/var/www/html/
# scp -irp [鍵.pem] [転送元ディレクトリ] [ユーザー@ホスト:転送先ディレクトリ]

タグ

４０, AWS, DUNK, SCP, SLAM, VPS, アクセス, こと, サーバー, さくら, ところ, ミス, ログ, 今回, 仕事, 以前, 休み, 使用, 先日, 其れ, 初夏, 反省点, 増, 大事, 大変, 失敗, 少し, 平日, 感じ, 数, 方法, 映画, 時, 暇, 本当, 深呼吸, 状態, 現象, 環境, 移行, 経費, 閲覧,

ネタがなくて九九表なんか作っている訳ではなく。

2021.08.10

Logging

暑い暑い日曜日、台風9号の影響は日曜日の夕方から夜中までかなとか思いながら記事を書いています。因みにこの頃、予約記事のストックが切れそうですね。ネタが思いつく時は一気に数記事書けるのですがネタが出てこないスランプに落ち込むと記事のネタが思いつかなくて書けない日が続くこともあります。

ネタがなくて九九表なんか作っている訳ではなく。単純に自分の頭は九九表がかけた頭になっていたので、そのために作っただけです。計算とかをパソコンなどに委ねていると自分の頭は退化する一方です。暇で何もせずにズゥーっと頭を使わないと呆けるというのは、本当なのかもしれません。

何もしないと漢字は書けなくなるし、基本的な計算することすら出来なくなるのですよね。プログラミングは毎日のようにしているのだけど、それ以外の事は何ひとつしていないので文字を書く時の筆圧具合いがめちゃくちゃだったりもして・・・、本当に基本的なことが全然できなくなってきています。

そういう事で基本の基に立ち返ろうとしているわけです?。

小学生の勉強につまずくとその後、全部の勉強につまずくことになります。なので小学生の勉強はかなり大事だと思います。

因みに今回のjavascriptのソースコードはこんな感じになります。

9×9:九九表はこちらから

https://zip358.com/tool/9×9/

document.getElementById("Q9_select").innerHTML = (function () {
    let str = "";
    for (var i = 0; i <= 9; i++) {
        str += !i ? "<option value=''> " + "選択してください" + "</option>\n" : "<option value=" + i + ">" + i + "の段</option>\n";
    }
    return str;
})();
document.getElementById("Q9_select").addEventListener("change", function (e) {
    let Q = this.value ? this.value : 0;
    let str = "";
    let view_flg = 1;
    for (var i = 1; i <= 9; i++) {
        let ans = Q * i;
        str += "<p class='h2'><span class='text-primary'>" + Q + "</span> × " + i + "= <span class='Q9_ans' style='visibility:visible'>" + ans + "</span></p>";
    }
    str += "<p class='text-center'><button class='h2 btn btn-primary' id='view'>九九の解を<span id='txt'>非表示に</span>する</button></p>";
    document.getElementById("Q9_view").innerHTML = str;
    document.getElementById("view").addEventListener("click", function () {
        let object = document.getElementsByClassName("Q9_ans");
        for (const key in object) {
            if (Object.hasOwnProperty.call(object, key)) {
                const element = object[key];
                element.style.visibility = view_flg ? "hidden" : "visible";
            }
        }
        view_flg = view_flg ? 0 : 1;
        document.getElementById("txt").innerText = view_flg ? "非表示に" : "表示";
    });
});

タグ

９, こと, ズゥー, ストック, スランプ, それ, ため, ネタ, パソコン, プログラミング, めちゃくちゃ, 一方, 九九, 予約, 事, 何, 具合い, 単純, 台風, 夕方, 夜中, 影響, 数, 文字, 日, 日曜日, 時, 暇, 本当, 毎日, 漢字, 筆圧, 自分, 計算, 記事, 訳, 退化, 頃, 頭,

どちらかと言うと男のだらだらだと思います。YOUTUBER：ひげおやじ：さん

2020.04.23

Logging

ひげおやじと仲間たち/ガジェット通信というYOUTUBEチャンネルを運営されているひげおやじ事、ヒゲおじさん、ひげ無いのに何故、ヒゲおじさんなのか？不明です？知っている人は通な人だと思います。ちょくちょく「ひろゆき」さんと絡んでいる。親交はかなり深いみたいですね。

ヒゲおじさんもひろゆきさんも自分は嫌いじゃないので、暇な時にダラッと聞いています。ライブ放送を直で聞いてお酒飲みながらYOUTUBEのチャットでコメントを書いたりすると絡んでくれる人なのでなんか、親近感が生まれる人も多そうです。どちらかと言うと男がお酒飲みながら、語るとこうなるよ的なものかなと思います。

因みにヒゲおじさんはガジェット通信の社員さんだと思います。いまもそのはずだと。ヒゲおじさんとひろゆきさんは結構昔から親交があることはひろゆきさんの嫁さんがTwitterで（4コマ漫画）とか発言しています。なお、お正月はヒゲおじさん宅で迎えるのが恒例の行事だとか…。

そしてヒゲおじさん、最近？ご結婚されたそうです。そんなヒゲおじさんのチャンネルはこちらから

ひげおやじと仲間たち/ガジェット通信
https://www.youtube.com/user/gamelive/videos

タグ

4, Twitter, youtube, YOUTUBER, いま, おじさん, おやじ, お正月, お酒, ガジェット, かなり, こと, コメント, チャット, チャンネル, どちらか, パス, ひげ, ひろゆき, もの, ライブ, 不明, 事, 人, 仲間, 何故, 嫁さん, 嫌い, 放送, 昔, 時, 暇, 漫画, 男, 発言, 社員, 自分, 親交, 親近感, 通, 通信, 運営,

次の次が、唯の次になってしまった。

2020.04.14

Logging

次の次が、唯の次になってしまった感じするSFCのトークです。世の中を変える側にいる人です。世の中、２?３年の間に大きくデジタル化が進んでいくと思います。その中でデジタルに使う側とデジタルを提供する側や人工知能を提供する側と人工知能に取って代わられる側に大きくチャンジすると思います。生き残れる産業は労働系のお仕事かなと思っています。

そんな労働系のお仕事にもデジタルの波は押し寄せてくるとは思いますが、現場で汗水たらしてお仕事をしている人がロボットに置き換わることは中小企業ではまず起きないでしょう。ただ大企業の生産ラインなどは完全無人化になる恐れはないとは言えません。

無職で暇なのでいろいろこの機会に今後、どのような産業がデジタル化の波で消えていくか考えた所、一番は会計を担当している方などは消えてなくなりそうです。また一般的な事務も消えていくでしょう。あとWEBのコーディングやプログラマーという職も何れは消えていくと自分は思っています。なので今からプログラマーを目指そうとしている人は違う産業に転職したほうが良いと思います。過去の膨大なプログラミングデータから人工知能が学び、例えばお問い合わせフォームなどを人工知能が生成することは今でも可能かと思います。なので元々デジタル化されているものを作業している方は特に人工知能に仕事を取られる可能性が高いと思います。逆に先程述べた通り労働系は最後の最後までお仕事を奪われる恐れが少ないです。

いま世の中、新型コロナで大変な状況になっていると思います、都市部では必要なライフラインに関わる仕事以外は休業かテレワークになってますよね。それを見て殆どのサービス業は人が我慢すれば必要でもないのだと錯覚してしまいます。また自分と同じ様に感じた人も少なからずいるかなと思います。5割?7割のお仕事は本当に必要なのかという疑問。

新型コロナが終息して、世の中また同じ様に同じ感覚で生きて行けれるかと言えばそうではない気がします。特に経営者が経営方針を変えていくのは必然的なことかなと思います。なので世の中、おそらくデジタル最適化されます。デジタルで置き換えれそうだなと思っている作業があるとするならば、それは経営者も同じ様に考えると思っていた方が良いのではないかと思います。

因みに自分が経営者側なら完全リモートワーク（テレワーク）の経営にシフトします。良い人材を集めて良いサービスを迅速に提供することが可能ならば都心の一等地にオフィスを借りる必要なんて無いと思うからです。

タグ

2, ３, SFC, web, お仕事, コーディング, こと, チャンジ, デジタル, トーク, プログラマー, ライン, ロボット, 一, 世, 中, 中小企業, 事務, 人, 人工, 今後, 企業, 会計, 何れ, 側, 労働, 唯, 完全, 思, 感じ, 所, 担当, 提供, 方, 暇, 機会, 次, 汗水, 波, 無人, 無職, 現場, 生産, 産業, 知能, 職, 自分, 間,

職場のいじめがある会社は比較的、暇だ。

2016.09.05

Logging

職場のいじめがある会社は比較的、暇、もしくはただ忙しく儲けにならないという図式がある。
上司自ら、イジメをするとか言う会社は馬鹿だとしか言えない。派遣などにイジメをするとかももってのほかだ。
小さな会社、大きな会社に問わず大なり小なりのイジメを行なっていたりするが基本的にいじめられる側が職場を去るケースが多いらしい。イジメる側は馬鹿な上司だという統計がでています・・・。
これが人という生き物の本質かもしれないけれども何というか、非効率的で痛々しい。
コレだから業績が伸びなかったりするのだろう。そんな会社には会社間でのイジメも存在するだろう。
例えば無理難題を押し付けられたりするというケースなど。そんな会社と契約しなければよい話だけど現実、従業員にお給料を払わないといけないのでそう簡単に契約を打ち切る事も出来ないのでは無いだろう。
じゃどうするか？
改善するしか他に策はないとも言える。業績が伸びないのは、不効率なことをしているからだと認識しなければいけない。良い人材を適材適所に置かなければいずれは、その会社は倒産するだろうと・・・。
記事を読んでいて実感しました。それがわからないとなると痛々しい結果しか残らないと。

タグ

イジメ, お給料, ケース, こと, これ, コレ, もってのほか, 上司, 事, 人, 他, 会社, 側, 効率, 図式, 大なり, 契約, 存在, 小なり, 従業, 改善, 暇, 本質, 業績, 派遣, 無理難題, 現実, 生き物, 策, 簡単, 統計, 職場, 自ら, 話, 認識, 馬鹿,

Accessのさんぷるコードができましたので(´Д｀)貼っときます。

2014.08.21

Logging

突貫工事で作ったのでバグは多少あると思いますが{例えばsql インジェクション対策とか。}、Accessのsampleコードができましたので貼っときます。なお、これで何が出来るかって言えばDBの修正、追加、削除といった基本的な動きをします｛挙動不審ぎみ嘘！？｝。若干、ソースコードを弄くれば使い回しが出来るようにしております。飯くったり他のことをしながらもガリガリとコードを書きました。ちなみにAccessのViewerをマイクロソフトからダウンロードすると動作すると思います。ファイルは下記からダウンロードください。 追記：暇な時に改良していきますので( ﾟдﾟ)ﾉ ﾖﾛｼｸとコメントも暇があれば書いときます。そして無駄なコードがありますが、それも軽量していくつもりです(｀・ω・´)。ちなみにいまはDBを空にすると落ちますので・・・・（直しました。）。?samplezip358.zip?[https://zip358.com/tool/samplezip358.zip][08/21 11:26]

Option Compare Database
Public db_x As Long
Public max As Variant
Function sel_all(tablename As Variant, tal_valname As Variant) As Variant
    Dim x As Long
    Dim y As Long
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge(999, 999) As Variant
    Dim val_n As Variant
    Dim val As Variant
    Set db = CurrentDb
    sql = "SELECT * FROM " & tablename & " ORDER BY ID ASC;"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    Do Until RS.EOF
        For y = 0 To UBound(tal_valname)
            hoge(x, y) = RS.Fields(tal_valname(y))
        Next y
        RS.MoveNext
        x = x + 1
    Loop
    Set db = CurrentDb
    sql = "SELECT MAX(ID) as maxs  FROM " & tablename & ";"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    max = RS.Fields("maxs")
    db_x = x - 1
    Set db = Nothing
    sel_all = hoge
End Function
Function up_in(chk As Boolean, tablename As Variant, tal_valname As Variant, tal_val As Variant, ID As Long) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge_valname As String
    Dim hoge_val As String
    Dim hoge As Variant
    If chk = True Then
        For i = 0 To UBound(tal_valname)
            hoge_valname = hoge_valname & tal_valname(i) & ", "
        Next i
        hoge_val = sql_str(tal_val, "", "", True)
        sql = "INSERT INTO " & tablename & " (" & Left(hoge_valname, Len(hoge_valname) - 2) & ")VALUES (" & hoge_val & ");"
    Else
        hoge_valn_val = sql_str("", tal_valname, tal_val, False)
        sql = "Update " & tablename & " Set " & hoge_valn_val & " WHERE ID = " & ID & ";"
    End If
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    up_in = True
End Function
Function del(tablename As Variant, tal_valname As Variant, tal_val As Variant) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge As Variant
    sql = "DELETE FROM " & tablename & " WHERE " & tal_valname & " = " & tal_val & ";"
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    del = True
End Function
Function sql_str(hoge As Variant, tal_valname As Variant, tal_val As Variant, chk As Boolean) As Variant
    Dim i As Long
    Dim hoge_str As Variant
    If chk = True Then
        For i = 0 To UBound(hoge)
            If IsNumeric(hoge(i)) Then
                hoge_str = hoge_str & hoge(i) & ", "
            Else
                hoge_str = hoge_str & "'" & hoge(i) & "', "
            End If
        Next i
    Else
        For i = 0 To UBound(tal_valname)
            If IsNumeric(tal_val(i)) Then
                hoge_str = hoge_str & tal_valname(i) & " = " & tal_val(i) & ", "
            Else
                hoge_str = hoge_str & tal_valname(i) & " = '" & tal_val(i) & "', "
            End If
        Next i
    End If
    sql_str = Left(hoge_str, Len(hoge_str) - 2)
End Function

↑クラスdbソースコード

Option Compare Database
Dim max As Long
Dim ID As Long
Dim val_val As Variant
Private Sub Form_Load()
lod
End Sub
Sub lod()
    Dim db As db_db
    Dim val_name As Variant
    Dim x As Long
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    val_val = db.sel_all("tableone", val_name)
    max = db.max + 1
    If cmb.ListCount > 0 Then
        For x = 0 To cmb.ListCount - 1
            cmb.RemoveItem 0
        Next
    End If
    For x = 0 To db.db_x
        cmb.AddItem val_val(x, 1)
    Next
    Set db = Nothing
End Sub
Private Sub cmb_Click()
    If cmb.ListIndex >= 0 Then
        Viw cmb.ListIndex
    End If
End Sub
Private Sub del_btn_Click()
    Dim db As db_db
    Dim hoge As Variant
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    If ID > 0 And max > 1 Then
        hoge = db.del("tableone", "ID", ID)
    End If
    Set db = Nothing
    lod
End Sub
Private Sub in_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("ID", "表題", "数値", "文字")
    val = Array(max, cmb, suuzi, moji)
    Set db = New db_db
    hoge = db.up_in(True, "tableone", val_name, val, max)
    Set db = Nothing
    lod
End Sub
Private Sub upd_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("表題", "数値", "文字")
    val = Array(cmb, suuzi, moji)
    Set db = New db_db
    If ID > 0 And max > 1 Then
        hoge = db.up_in(False, "tableone", val_name, val, ID)
    End If
    Set db = Nothing
    lod
End Sub
Sub Viw(i As Long)
    ID = val_val(i, 0)
    suuzi = val_val(i, 2)
    moji = val_val(i, 3)
End Sub
Sub chkchk()
    If IsNumeric(suuzi) Then
        If suuzi > 9999 Then
            suuzi = 9999
        End If
    Else
        suuzi = 0
    End If
    If IsNumeric(moji) Then
        moji = "文字が不正＞" & moji
    End If
    If IsNumeric(cmb) Then
        cmb = "文字が不正＞" & cmb
    End If
End Sub

↑formソースコード

タグ

35, 358, access, db, https, sample, samplezip, SQL, Viewer, www, zip, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ﾖﾛｼｸ, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,

プロフェッショナルの言葉［NHK］。

2014.08.18

Logging

プロフェッショナルの言葉っていう本があるのですけど、かなりお経みたいな表紙で気にいって購入しました。中身は暇な時にパラパラめくって読んでいるというスタンスです、ちなみに右側のページにプロフェッショナルの言葉が書いてあり、左側のページに言葉の意味するところを箇条書きでかかれています。右側のページだけ読むでも良いし、左側のページを読んでもっとその言葉の意味する処を理解するのも良いですね。あと、プロフェッショナルの言葉は結構ありますので自分の気に入った言葉が見つかるかもしれません。
このプロフェッショナルの言葉の元ネタはNHKの「プロフェッショナル仕事の流儀」という番組です、各業種でお仕事をされているプロフェッショナルの方々に焦点をあてた番組です。それがプロフェッショナルの言葉の元ネタです、著名人の言葉のまとめみたいな本です。

タグ

4478300593, asin, jp, NHK, お仕事, お経, かなり, スタンス, ソレ, ところ, ネタ, プロフェッショナル, ページ, まとめ, 中身, 仕事, 処, 右側, 左側, 意味, 方々, 時, 暇, 本, 業種, 気, 流儀, 焦点, 理解, 番組, 箇条書き, 自分, 著名人, 表紙, 言葉, 購入,