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[]
             $categories += $category
         }
     }
     $sortResult = $categories|Sort-Object|Get-Unique
     foreach($cate in $sortResult)
     {
         $cate|Add-Member -MemberType NoteProperty -Name "cateCount" -Value
     }
     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

测试结果如下：