PowerShell中进行文件读取，信息排序，分类计数。

这是国外某大学QA的一道作业题，读取mainlog文件中的每一行信息，并获取有效的信息，也就是每条信息中第四个@后面的内容，然后进行分类与计数，要求是用Perl写，但我是用PowerShell完成的，文件截图如下：

代码如下：

<#
    $logPath = "C:\Users\tylan\Desktop\mainlog.txt"
#>
function CheckInfo
{
    param($logPath)
    $logContent = Get-Content $logPath
    $reg = "^.+@.+@.+@.+@.+$"
    $categories = "",""
    foreach($log in $logContent)
    {
        if($log -match $reg)
        {
            $partialLog = $log.split("@")
            $category = $partialLog[4]
            $categories += $category
        }
    }
    $sortResult = $categories|Sort-Object|Get-Unique
    foreach($cate in $sortResult)
    {
        $cate|Add-Member -MemberType NoteProperty -Name "cateCount" -Value 0
    }
    foreach($category in $categories)
    {
        foreach($cate in $sortResult)
        { 
            if($category -eq $cate)
            {
                $cate.cateCount ++
            }
        }
    }
    foreach($cate in $sortResult)
    {
        if($cate -ne "")
        {
            $cate + " : " + $cate.cateCount
        }
    }
}
$logPath = "C:\Users\tylan\Desktop\mainlog.txt"
CheckInfo $logPath

测试结果如下：