Data update

Task/Rosetta-Code-Rank-languages-by-popularity/PowerShell/rosetta-code-rank-languages-by-popularity-1.psh

@@ -1,27 +0,0 @@
-$get1 = (New-Object Net.WebClient).DownloadString("http://www.rosettacode.org/w/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Languages&cmlimit=700&format=json")
-$get2 = (New-Object Net.WebClient).DownloadString("http://www.rosettacode.org/w/index.php?title=Special:Categories&limit=5000")
-$match1 = [regex]::matches($get1, "`"title`":`"Category:(.+?)`"")
-$match2 = [regex]::matches($get2, "title=`"Category:([^`"]+?)`">[^<]+?</a>[^\(]*\((\d+) members\)")
-$r = 1
-$langs = $match1 | foreach { $_.Groups[1].Value.Replace("\","") }
-$res = $match2 | sort -Descending {[Int]$($_.Groups[2].Value)} | foreach {
-    if ($langs.Contains($_.Groups[1].Value))
-    {
-        [pscustomobject]@{
-            Rank = "$r"
-            Members =  "$($_.Groups[2].Value)"
-            Language = "$($_.Groups[1].Value)"
-        }
-        $r++
-    }
-}
-1..30 | foreach{
-    [pscustomobject]@{
-        "Rank 1..30" = "$($_)"
-        "Members 1..30" =  "$($res[$_-1].Members)"
-        "Language 1..30" = "$($res[$_-1].Language)"
-        "Rank 31..60" = "$($_+30)"
-        "Members 31..60" =  "$($res[$_+30].Members)"
-        "Language 31..60" = "$($res[$_+30].Language)"
-    }
-}| Format-Table -AutoSize

Task/Rosetta-Code-Rank-languages-by-popularity/PowerShell/rosetta-code-rank-languages-by-popularity-2.psh

@@ -1,20 +0,0 @@
-$response = (New-Object Net.WebClient).DownloadString("http://rosettacode.org/wiki/Category:Programming_Languages")
-$languages = [regex]::matches($response,'title="Category:(.*?)">') | foreach {$_.Groups[1].Value}
-
-$response = [Net.WebClient]::new().DownloadString("http://rosettacode.org/w/index.php?title=Special:Categories&limit=5000")
-$response = [regex]::Replace($response,'(\d+),(\d+)','$1$2')
-
-$members  = [regex]::matches($response,'<li><a[^>]+>([^<]+)</a>[^(]*[(](\d+) member[s]?[)]</li>') | foreach { [pscustomobject]@{
-            Members =  [Int]($_.Groups[2].Value)
-            Language = [String]($_.Groups[1].Value)
-        }} | where {$languages.Contains($_.Language)} | sort -Descending Members
-
-Get-Date -UFormat "Sample output on %d %B %Y at %R %Z"
-$members | Select-Object -First 10 | foreach -Begin {$r, $rank, $count = 0, 0,-1} {
-    $r++
-    if ($count -ne $_.Members) {$rank = $r}
-    $count = $_.Members
-    $x = $_.Members.ToString("N0",[System.Globalization.CultureInfo]::CreateSpecificCulture('en-US'))
-    $entry = "($x entries)"
-    [String]::Format("Rank: {0,2} {1,15} {2}",$rank,$entry,$_.Language)
-}

Task/Rosetta-Code-Rank-languages-by-popularity/PowerShell/rosetta-code-rank-languages-by-popularity-3.psh

@@ -1,40 +0,0 @@
-$languages  = @{}
-$Body = @{
-     format = 'json'
-     action = 'query'
-     generator = 'categorymembers'
-     gcmtitle = 'Category:Programming Languages'
-     gcmlimit = '200'
-     gcmcontinue = ''
-     continue = ''
-     prop = 'categoryinfo'
- }
-$params = @{
-     Method = 'Get'
-     Uri = 'http://rosettacode.org/mw/api.php'
-     Body = $Body
- }
-while ($true) {
-    $response = Invoke-RestMethod @params
-    $response.query.pages.PSObject.Properties | ForEach-Object {
-        if (($_.value.PSObject.Properties.Name -Contains 'title') -and ($_.value.PSObject.Properties.Name -Contains 'categoryinfo')) {
-            $languages[$_.value.title.replace('Category:', '')] = $_.value.categoryinfo.size
-        }
-    }
-    if  ($response.PSObject.Properties.Name -Contains 'continue') {
-        $gcmcontinue = $response.continue.gcmcontinue
-        $params.Body.gcmcontinue = $gcmcontinue
-    } else {
-        break
-    }
-}
-$members = $languages.GetEnumerator()  | sort -Descending value
-Get-Date -UFormat "Sample output on %d %B %Y at %R %Z"
-$members | Select-Object -First 10 | foreach -Begin {$r, $rank, $count = 0, 0,-1} {
-    $r++
-    if ($count -ne $_.Members) {$rank = $r}
-    $count = $_.Value
-    $x = $_.Value.ToString("N0",[System.Globalization.CultureInfo]::CreateSpecificCulture('en-US'))
-    $entry = "($x entries)"
-    [String]::Format("Rank: {0,2} {1,15} {2}",$rank, $entry, $_.Name)
-}