Linux シェルスクリプト メモ

ファイル一覧表示(ls -lのエイリアス)

ll

SSHで接続(秘密鍵あり)

ssh -i secret.pem user@remoteHost

ローカルからリモートにコピー（ファイル送信）

scp -i secret.pem ~/test.txt user@remoteHost:/tmp/

リモートからローカルにコピー（ファイル受信）

scp -i secret.pem user@remoteHost:/tmp/test.txt ~/

tgzファイル展開

tar -xzvf sample.tgz

ターミナル切ってもプロセス続行(jmeterの例)

nohup jmeter/bin/jmeter -n -t jmeter_test.jmx -l jmeter_log.jtl > log.log &

zip圧縮(サブディレクトリも含める)

zip -r archivename ./directoryname

権限変更(整数で指定)

chmod 777 targer.txt

権限変更(個別に指定。所有者がu、グループがg、その他ユーザーはo。rwxを+-で指定。)

chmod o-x targer.txt

所有者とグループの変更（-Rオプションでディレクトリ配下を再帰的に変更）

chown root:root targer

ディレクトリの使用量を表示

du -h ~/

ディスクの空き領域を表示

df -h

メモリの利用状況を表示

free -h

プロセスを確認

ps auw | grep name

ファイルの終端行を表示

tail -n 50 test.txt

ファイルの先頭行を表示

head -n 50 test.txt

cronの表示

crontab -l

ファイルの検索

find ./ -name targetword

SQL Server TCPポート指定

1. SQL Server 構成マネージャーを開く（図１）。
2. 「SQL Server ネットワークの構成」＞「インスタンス名のプロトコル」を開く。
3. 右側のペイン、「TCP/IP」を有効にする。同項を右クリックしてプロパティを開く（図２）。
4. 「IPアドレス」タブを選択し、スクロール一番下のIPALLを表示。
5. TCPポートの列に「1433」と入力する。OKを押す。

図１

図２

Excel 名前定義をすべて削除する

'Excelファイルの名前定義をすべて削除する
'excel_remove_names.vbs

'引数のチェック
Set args = WScript.Arguments
If args.Count > 0 Then
    file = args(0)
    If Right(file,4) = ".xls" Or Right(file,5) = ".xlsx" Then
        'Excelファイルは続行する
    Else
        Msgbox "Excelファイルではありません。", vbExclamation, "警告"
        WScript.Quit
    End If
Else
    Msgbox "Excelファイルをvbsファイルにドラッグアンドドロップしてください。", vbInformation, "情報"
    WScript.Quit
End If
 
'Excelオブジェクトを取得
Set excelApp = CreateObject("Excel.Application")
'ブックを開く
Set workbook = excelApp.Workbooks.Open(file)
excelApp.Visible = True

'正規表現オブジェクト
Set objRE1 = CreateObject("VBScript.RegExp")
Set objRE2 = CreateObject("VBScript.RegExp")
objRE1.Pattern = ".*!Print_Area$"
objRE2.Pattern = ".*!Print_Titles$"

'非表示の名前を表示
Dim curName
Dim cnt
cnt = 0;
For Each curName In workbook.Names
    If name.Visible = False Then
        name.Visible = True
        cnt = cnt + 1
    End If
Next

'各シートの操作
For Each curName In workbook.Names
    '印刷範囲、印刷タイトルは除く
    if not objRE1.Test(curName.name) and not objRE2.Test(curName.name) Then
        '削除実施
        On Error Resume Next
        curName.Delete
        On Error Goto 0
        cnt = cnt + 1
    end if
Next

if cnt > 0 then
    'ブックを保存
    workbook.Save
end if

'ブックを閉じる
workbook.Close
Set workbook = Nothing
excelApp.Quit
 
Msgbox "処理が完了しました。" & vbNewLine & file, vbInformation, "情報"
WScript.Quit