Hbstudy#38シェルスクリプトでいろいろやってみよう!をPowerShellでやってみた

いつもUSP友の会様を拝見してます。さて、前回のシェル芸が第二回だったこともあり、第一回も触ってみました。ただし、おもしろそうな3,5,6,7問だけです＞＜すいません。(問題4は意図が不明でしたorz) 今回の問題はこれです。

hbstudy #38 で講師してきました

ちなみに、前回の挑戦はこんな感じでした。

前回の挑戦 : 第2回チキチキ！シェル芸人養成勉強会をPowerShellでやってみた

前提

前回同様の縛りプレイです。

なるべく1ライナーで……敢えて、変数に収めるべきところすら、そのまま利用できるところは~~読みやすさを犠牲に~~パイプで繋ぐという制約で (おい

出題内容は、UPS友の会様をご覧下さい。あと、繰り返しですが…一応。

※シェル環境前提なので、なるべくAliasを利用しているのはご了承ください。 ※私はAlias余り好きじゃない派です。 ※PowerShellとBashの大きな違いは | (パイプ)で渡されるのが文字列ではなくオブジェクトということを念頭に…

Get-ChildItem  #ls
Get-Content #cat #gc
Get-Random #random
Foreach-Object #%
Where-Object #?
Measure-Object #measure
Compare-Object #diff
Format-Table #ft
Format-List #fl

問題1: ユーザの抽出

そもそもpasswdはWindowsにないので…省略 (

問題2: ユーザの抽出2

同上…省略 (

問題3: ファイルの一括変換

以下のフォルダ、ファイルl構成でファイルを作って、ファイル一覧を表示(ls)、ファイル内容を表示(cat)。 ※注意： #bin/bashのおまじないはPowerShellにはないため置換対象を変更しています。

[ 置換操作前 ]#requires -Version 2.0
[ 置換操作後 ]#requires -Version 3.0

これで一撃です。

Select-String -Path ".\etc\*.*" -Pattern "#requires -Version 2.0" -Encoding default | %{ $filename = $_.Filename; cat "$($_.Path)" | %{$_ -replace "#requires -Version 2.0","#requires -Version 3.0" | Out-File ".\hoge\$filename" -Encoding default -Force -Append } }

え?例のごとく改行しろですか、はい。

Select-String -Path ".\etc\*.*" -Pattern "#requires -Version 2.0" -Encoding default `
    | %{ $filename = $_.Filename;
        cat "$($_.Path)" -Encoding default  `
        | %{$_ -replace "#requires -Version 2.0","#requires -Version 3.0" `
            | Out-File ".\hoge\$filename" -Encoding default -Force -Append
        }
    }

やっていることは簡単です。

対象の文字列が含まれるファイルをSelect-Stringで調べて
対象のファイルの対象文字列置換を実行
ファイルを出力

ポイントは、Out-Fileでの出力が一行ごとのため、-Appendが必要なぐらいでしょうか?

問題4: 集計

やることの意味が分からず…すいません＞＜…省略 ( ※[Jan/25/2013 追記] 牟田口先生が書かれていました！

問題4 gc num.txt|select @{L="R";E={$_ - $_%10}}|group R|sort @{E={[int]($_.Name)}}|select Count,@{N="Range";E={"$($_.Name)～$(9+$_.Name)"}}
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

gc num.txt|%{$_ - $_%10}|group|sort @{E={[int]$_.name}}|%{"$($_.Name)～$(9+$_.Name) $($_.Count)"}　オブジェクトとかにこだわらない方が簡潔ですねえ…
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

問題5: Fizz Buzz

これは先行して別記事で解いていますので、こちらを参照してください。

PowerShellでFizzBuzzしてみる

問題6: 日付の計算

1978年2月16日は2012年10月27日の何日前か……簡単です。 解法1. まずは、Foreach-Objectを使った手法です。

1978..2011 | %{ (Get-Date "$_/12/31").DayOfYear} | measure -Sum | %{$_.Sum - (Get-Date "1978/02/16").DayOfYear + (Get-Date "2012/10/27").DayOfYear }

あ、改行ですね、はい。

1978..2011 `
    | %{ (Get-Date "$_/12/31").DayOfYear} `
    | measure -Sum `
    | %{ $_.Sum - (Get-Date "1978/02/16").DayOfYear + (Get-Date "2012/10/27").DayOfYear }

解法2. この考えはそのままScriptBlockの手法にも使えます。

1978..2011 | %{ (Get-Date "$_/12/31").DayOfYear} | measure -Sum | select @{label="DIFF";expression={$_.Sum - (Get-Date "1978/02/16").DayOfYear + (Get-Date "2012/10/27").DayOfYear}} | fl

改行です。

1978..2011 `
    | %{ (Get-Date "$_/12/31").DayOfYear} `
    | measure -Sum `
    | select @{
        label="DIFF";
            expression={$_.Sum - (Get-Date "1978/02/16").DayOfYear + (Get-Date "2012/10/27").DayOfYear}
        } `
    | fl

解法1の変則. Get-DateにはAliasがないので、短くするのに冒頭でdというAliasを当ててみました…が、あまり変わらなかった罠。

begin{Set-Alias d "Get-Date"}process{1978..2011 | %{ (d "$_/12/31").DayOfYear} | measure -Sum | %{$_.Sum - (d "1978/02/16").DayOfYear + (d "2012/10/27").DayOfYear }}

改行で。

begin{
    Set-Alias d "Get-Date"
}
process{
    1978..2011 `
        | %{ (d "$_/12/31").DayOfYear} `
        | measure -Sum `
        | %{$_.Sum - (d "1978/02/16").DayOfYear + (d "2012/10/27").DayOfYear }
}

※答えは、12672日です。 ※[Jan/25/2013 追記] さて、New-Timespanがあることを知らず無駄な事をしてました。牟田口先生のお陰で勉強になります。

問題6　New-Timespan 1978/2/16 2012/10/27|select -Expand TotalDays
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

なるほどー…ふむふむ。

TechNet - New-Timespan コマンドレットの使用

あ、あと、Selectの-ExpandPropertyパラメータも勉強になりました…！ Selectに-ExpandPropertyパラメータを付けると結果だけになるのですね。いつもForeach-Objectしてましたが、このパラメータをつければ省ける状況も生まれますね。

問題7: リストにないものを探す

前提の「1から10の数字がかいてあり、そのうちの一つの数がかけているファイルを作りましょう」には、2つの手法があります。 手法1. #9つそろったことを確認する手法(条件達成が保証される) #ワンライナー版

begin{$b=$c=@()}process{while ($c.count -lt 9){$a = Get-Random -Minimum 1 -Maximum 11;$b += $a;$c = $b | select -Unique | select -First 9}}end{$c | select -Unique | select -First 9}

改行です。

begin{$b=$c=@()}
process{
    while ($c.count -lt 9)
    {
        $a = Get-Random -Minimum 1 -Maximum 11
        $b += $a
        $c = $b | select -Unique | select -First 9
    }
}
end{$c | select -Unique | select -First 9}

手法2. 十分な数を回す手法(必ずしも条件達成が保証はされないので母数を大きく。)

1..100 | %{Get-Random -Minimum 1 -Maximum 11}  | select -Unique | select -First 9

※[Jan/25/2013 追記] Get-Randomコマンドレットの-Count Parameterが有ることを牟田口先生の例で学びました。これでこんな悩まなくて済むw

問題7-1 1..10|Get-Random -Count 10|select -First 9|Set-Content num.txt
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

ほむ…

TechNet - The Get-Random Cmdlet

追加→ 手法3. ということで、そもそも-Count Parameterを使えばいいんでは

1..10 | Get-Random -Count 10 | select -First 9

さて、ファイルの生成後は、いよいよお題です。今回、3つの解法を考えました。 解法1. 合計値との差異から判定 ※正直卑怯というかなんというか…目的が…うーん。

(cat .\num.txt) | measure -Sum | %{[int](1..10 | measure -sum).Sum - [int]$_.Sum }

解法2.　比較で含まれないモノを判定

1..10 | %{diff $_ ([int[]](cat .\num.txt))} | ?{$_.SideIndicator -eq "<="} | fl

※[Jan/25/2013 追記] はい、これも牟田口先生の指摘で勉強しました。

問題7-2 Compare-Object (1..10) (Get-Content .\num.txt) -PassThru
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

なるほど、diffに与えた-PassThruパラメーターですか。このパラメーターを渡すと、パイプラインに渡すために出力が変化します。

この辺で勉強したり。

Advanced Compare-Object: Working with Results

あとは、1..10 | ではなく (1..10)と(cat num.txt)で比較していることです。 (..)とすることで、直接比較しているので明らかに私のは無駄で…ほむ。 解法3.　含まれないと以降結果0になることを利用して真偽値で判定※牟田口先生がFizzBuzzで示されていた方法の応用です。

(0..9 | %{($_+1)*!(($_+1) - ([int[]](cat .\num.txt) | sort)[$_])} | measure -Maximum).Maximum + 1

最後に、手法2でのファイル生成と、解法1をワンライナーで行う例です。 ※ファイル生成がないので意味が…???

1..100 | %{Get-Random -Minimum 1 -Maximum 11}  | select -Unique | select -First 9 | measure -Sum | %{[int](1..10 | measure -sum).Sum - [int]$_.Sum }

※[Jan/25/2013 追記] 少し改良するとこうでしょうか。

1..10 | Get-Random -count 10 | select -First 9 | measure -Sum | %{[int](1..10 | measure -sum).Sum - [int]$_.Sum }

diffにパイプで渡せず…これではダメなんですね…・

1..10 | Get-Random -count 10 | select -First 9 | diff $a (1..10) -PassThru

問題8: CPU使用率

Get-Processの記事で分かるとおり、そもそもCPU %をWindowsで取得は…省略 (

PowerShellでサーバで動いているプロセスを知りたい

※[Jan/25/2013 追記] 牟田口先生もこのように……むむむ…ワンライナーは難しいかー

問題6めんどいな。CPU %とる簡単な方法がない。プロセスごとにCPU時間を2回取得して、取得間隔とCPUコア数で割れば出るんだけども。
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

あとプロセス所有ユーザー名はGet-Processじゃ取れないのでGet-WMIObject win32_process|%{$_.getowner().user}とかで。
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

問題9: 横にならんだ数字のソート

~~飽きた~~前回の第二回でやったことと同様なので…省略 ( ※[Jan/25/2013 追記] 牟田口先生が書かれていたので参考に。

問題9-1 1..3|%{(1..(Get-Random -Minimum 3 -Maximum 7)|%{Get-Random -Minimum 0-Maximum 500}) -join " "}|sc file.txt ていうかそこ問題じゃなかった予感
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

問題9-2 gc .\file.txt|%{([int[]]($_ -split " ")|sort) -join " "}
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

問題10: 横にならんだ数字のソート

~~飽きた~~…省略 ( ※[Jan/25/2013 追記] 牟田口先生が書かれていたので参考に。

問題10がよくわからないけど$a=gc teams;$a|%{"," + ($a -join ",")} {$_ + "," * $a.length} こういうことでいいのかな？
— 牟田口大介さん (@mutaguchi) 1月 24, 2013

まとめ

実は、社内のBash使いと「せーの」で開始して問3の完成速度で負けたので…ぐぬぬ…。是非、USP友の会様には第3回の公開を期待しています。そして、帝国兵様の手法も期待してみたり (

tech.guitarrapc.cóm

Technical updates