Scripting Games 2009 - Event 3

Třetí úkol se jmenoval The shot put.

Divize Advanced

V zadaném vstupním souboru bylo potřeba najít slova (řádky), které obsahují pouze jednu samohlásku (mohla se opakovat), čili ananas je správně, ale ahoj nikoli.

1. gc './Wordlist_ADV3.txt' |? {(($_.ToCharArray() -match '[aeiouy]'| group)|measure-object).count -eq 1} | out-file result.txt

Použil jsem one-liner, který provádí následující:

1. načte vstupní soubor
2. vstupní řádku převede na pole znaků ($_.ToCharArray()). Pokud je v poli znaků pouze jedna samohláska
3. vypíše vstupní řádku do souboru

Ani v tomto případě se nejednalo o žádnou záludnost. Je dobré vědět, že řetězec znaků lze převést na pole znaků pomocí metody ToCharArray().

Divize Beginners

Vstupní soubor se měl rozdělit na dva a v každém novém souboru měl být jeden odstavec originálního souboru. Ten se měl poté přejmenovat.

1. (gc s*)[0..4] | Out-File 'First par.txt'
2. (gc s*)[6..8] | Out-File 'Second par.txt'
3. ren 'shot put.txt' 'Shot put.old'

V tomto případě jsem nehodlal ztrácet čas a problém jsem vyřešil jako kdyby to bylo ve skutečnosti - bez nějakého ošetřování pomocí tupého kódu.

Scripting Games 2009 - Event 2

Úkol číslo dva byl nazván The Long Jump.

Divize Advanced

Z daného souboru (XLS) bylo potřeba zjistit délky skoků jednotlivých sportovců a na základě výkonů v sezóně určit zda splnili očekávání do nich vkládaná.

1. $path = "C:\sg2009\LongJump_Adv2.xls"
2. $xls = New-Object -com Excel.Application
3. $xls.Visible = $true
4. $wrkbk = $xls.Workbooks.Open($path)
5. $format = 23
6. $wrkbk.SaveAs('C:\sg2009\result.csv',$format)
7. $wrkbk.Close($true)
8. $xls.Quit()
9. $data = Import-Csv C:\sg2009\result.csv
11. foreach ($row in $data) {
12. if ($row.'Jump 1' -eq 'x') { $row.'Jump 1' = 0 }
13. if ($row.'Jump 2' -eq 'x') { $row.'Jump 2' = 0 }
14. if ($row.'Jump 3' -eq 'x') { $row.'Jump 3' = 0 }
16. if (([double]$row.'Jump 1' -ge [double]$row.'Jump 2') -and ([double]$row.'Jump 1' -ge [double]$row.'Jump 3')) {
17. [double]$row.Result = $row.'Jump 1'
18. }
19. elseif (([double]$row.'Jump 2' -ge [double]$row.'Jump 1') -and ([double]$row.'Jump 2' -ge [double]$row.'Jump 3')) {
20. [double]$row.Result = $row.'Jump 2'
21. }
22. else {
23. [double]$row.Result = $row.'Jump 3'
24. }
26. if ($row.Result -lt $row.'Season Average') {
27. $row.'Exceed/Achieve/Under Perform ' = '1.Under Perform'
28. }
29. elseif ($row.Result -eq $row.'Season Average') {
30. $row.'Exceed/Achieve/Under Perform ' = '2.Achieve'
31. }
32. else {
33. $row.'Exceed/Achieve/Under Perform ' = '3.Exceed'
34. }
35. }
37. $data | sort 'Exceed/Achieve/Under Perform ', Result -Descending | `
38. Export-Csv C:\sg2009\result.csv -Force -NoTypeInformation

Celou úlohu jsem si převedl do PowerShellu tím, že jsem zavolal Excel a použil SaveAs... / CSV. Potom jsem již jen načel data pomocí Import-Csv a porovnal výsledky za sezónu. Výsledek jsem zapsal do potřebného sloupce a poté jen výsledky vyexportoval do nového CSV souboru.

Divize Beginners

Obsahovala jednoduchou úlohu pro dotaz do WMI. V PowerShellu naprosto jednoduchá věc. Celá úloha byla pouze "ztížena" výpisem různých barviček. Tentokrát jsem úkol řešil jako jednoduchou funkci, kdy jsem navíc přidal možnost zadání jména vzdáleného počítače.

1. function Get-LongJumpResults {
3. param (
4. $computer = "localhost"
5. )
7. $headerColor = "Green"
8. $speedColor = "Yellow"
9. $strengthColor = "Magenta"
10. $agilityColor = "Cyan"
12. $data = gwmi Win32_Processor -ComputerName $computer
14. Write-Host "Strength evaluation for $computer" -ForegroundColor $headerColor
16. Write-Host "Speed ... $($data.MaxClockSpeed)" -ForegroundColor $speedColor
17. Write-Host "L2 cache size: $($data.L2CacheSize)" -ForegroundColor $speedColor
18. Write-Host "L2 cache speed: $($data.L2CacheSpeed)" -ForegroundColor $speedColor
19. Write-Host "L3 cache size: $($data.L3CacheSize)" -ForegroundColor $speedColor
20. Write-Host "L3 cache speed: $($data.L3CacheSpeed)" -ForegroundColor $speedColor
22. Write-Host "Strength ..." -ForegroundColor $strengthColor
23. Write-Host "Number of Cores: $($data.NumberOfCores)" -ForegroundColor $strengthColor
24. Write-Host "Number of logical processors: $($data.NumberOfLogicalProcessors)" -ForegroundColor $strengthColor
25. Write-Host "Name: $(($data.Name).trim())" -ForegroundColor $strengthColor
27. Write-Host "Agility ..." -ForegroundColor $agilityColor
28. Write-Host "Address width: $($data.AddressWidth)" -ForegroundColor $agilityColor
30. } #function Get-LongJumpResults

Opět nic složitého.

Scripting Games 2009 - Event 1

Určitě vám neuniklo, že byl neoficiálně odstartován další ročník Scripting Games. Nejlepším rozcestníkem je nyní zřejmě stránka PoshCode.org, která zajišťuje prostor pro vkládání hotových skriptů. První úkol má název The 100 meter dash.

Divize Advanced

Úkolem je najít ve vstupním textovém souboru řádky obsahující text a vypsat tři nejkratší. Mé řešení bylo následujcí:

Get-Content "./Personal Information Cards_ADV1.txt" | `
Where-Object {$_ -match "\S"} | `
Sort-Object Length | `
Select-Object -First 3

Celá práce probíhá na jedné řádce.

1. Načtení souboru.
   
2. Vyfiltrování řádek, které obsahují text. Zde vyjádřeno pomocí regulárního výrazu \S - pusť všechno, co není pouze mezera.
   
3. Seřaď řádky podle délky.
   
4. Vypiš tři nejkratší.
   

Celý úkol byl relativně jednoduchý, důležité bylo přijít na filtrování prázdných řádek. Někteří použili v druhém kroku funkci trim().

Divize Beginners

Byla na rozdíl od advanced relativně složitá. Vše bylo způsobeno jedním malým "překlepem" kdy ve vstupním souboru byla jedna položka oddělena mezerou místo tabulátorem. Jelikož jsem chtěl mít hotovo rychle, využil jsem letošního pravidla: "Vše, co je dovoleno v reálném světě, je dovoleno i v soutěži." Ručně jsem opravil "chybnou" řádku a skript byl poté již jednoduchý:

Import-Csv '100 Meter Event.txt' -Delimiter "`t" | `
  Sort-Object Time | `
  Select-Object -First 3

1. Použil jsem cmdlet Import-Csv z PowerShellu verze 2. Ve verzi 2 je totiž u tohoto cmdletu nový parametr, pomocí nějž určíte, jak je soubor oddělen. Výborná věc pro české prostředí, kde je standardním oddělovačem středník.
   
2. Výstupem z první roury byly objekty, které jsem seřadil podle času
   
3. a pak jen vypsal první tři.
   

K tomuto úkolu se ještě vrátím a pomocí regulárních výrazů si poradím s problémovou řádkou.

Jelikož jsem u obou řešení používal aliasy, můžete se na mé "opravdové" verze v beginners a advanced divizích podívat přímo na PoshCode.org.

Automatizace a Scripting Games

Dnes ráno mne zaujaly na Twitteru dvě zprávy:

1. Má smysl automatizovat úplně všechno? Připomíná mi to mé poznámky na prezentacích PowerShelu, když říkám, že ne vždy je PowerShell efektivní. Občas prostě není efektivní vůbec nic kromě manuální práce :) Samozřejmě to neplatí při výrobu skriptů pro studijní účely. Přečtěte si původní článek a jestli chcete, nechte mi zde pod článkem komentář.
2. Summer Scripting Games 2009 - podrobnější informace byly zveřejněny na novém blogu Hey, Scripting Guy! Letos je mottem vzdělání, nikoli soutěž a všechna témata se budou věnovat desetiboji (vzdělávacímu samozřejmě). Cílem je přiblížit průběh více reálnému světu a bude např. možné použít části kódu jiných soutěžících. Zároveň byly potvrzeny čtyři kategorie - VBScript a PowerShell; oba jazyky pro Beginner a Advanced divizi. 

Scripting Games 2009

Konečně bylo uveřejněno datum letních Scripting Games 2009. Více informací je k nalezení na stránkách Script centra. Vypadá to, že letos se bude soutěžit v PowerShellu a VB Scriptu a Perl tedy zřejmě odpadá. Pokud se chcete dozvědět více, podívejte se na stránky Scripting Games a zapátrejte v archivu.

Letos se na pořádání budou také podílet PowerShellCommunity.org a PoShCode.org.

Profil autora těchto stránek na stránkách Scripting Games (v roce 2007 jsem absolvoval VBS beginners divizi).