BlackEllis

#!/bin/bash

RETRY_COUNT=5       # リトライ回数
COUNT=0             # カウントアップ用変数
cmd="$@"            # 実行コマンド（引数）

echo -e "run command: $cmd\n"
until $cmd || [ $COUNT -eq $RETRY_COUNT ]; do
    sleep $(( COUNT++ ))
    echo "retory $COUNT"

BlackEllis

#! /usr/bin/perl

use warnings;
use Data::Dumper;
use DateTime;
use DateTime::Format::Strptime;

package main;

##

BlackEllis

Sub SubstitutionHiperLink()
    Dim OldStr As String
    Dim NewStr As String
    
    OldStr = Application.InputBox("どの文字を変更？", "変換前文字", Type:=2)
    NewStr = Application.InputBox("何に変える？", "返還後文字", Type:=2)
    
    If (OldStr <> "False") Then
        If NewStr = "False" Then NewStr = ""
        For Each hlink In ActiveSheet.Hyperlinks