Functional Powershell ກັບຫ້ອງຮຽນບໍ່ແມ່ນ oxymoron, ຂ້າພະເຈົ້າຮັບປະກັນມັນ

Hey Habr! ຂ້າ​ພະ​ເຈົ້າ​ນໍາ​ສະ​ເຫນີ​ໃຫ້​ທ່ານ​ສົນ​ໃຈ​ການ​ແປ​ພາ​ສາ​ຂອງ​ບົດ​ຄວາມ​ໄດ້​ "Functional PowerShell ກັບຫ້ອງຮຽນ.
ຂ້ອຍສັນຍາວ່າມັນບໍ່ແມ່ນ oxymoron" ໂດຍ Christopher Kuech.

ແຜນວາດການຂຽນໂປລແກລມແບບຮັດກຸມ ແລະ ມີປະໂຫຍດອາດເບິ່ງຄືວ່າບໍ່ກົງກັນກັບກັນ, ແຕ່ທັງສອງແມ່ນໄດ້ຮັບການສະໜັບສະໜູນເທົ່າທຽມກັນໃນ Powershell. ເກືອບທຸກພາສາການຂຽນໂປລແກລມ, ມີປະໂຫຍດຫຼືບໍ່, ມີສິ່ງອໍານວຍຄວາມສະດວກສໍາລັບການຂະຫຍາຍການຜູກມັດຊື່-ມູນຄ່າ; ຫ້ອງຮຽນ, ເຊັ່ນໂຄງສ້າງແລະບັນທຶກ, ແມ່ນພຽງແຕ່ວິທີການຫນຶ່ງ. ຖ້າພວກເຮົາຈໍາກັດການໃຊ້ Classes ຂອງພວກເຮົາກັບການຜູກມັດຂອງຊື່ແລະຄຸນຄ່າ, ແລະຫຼີກເວັ້ນແນວຄວາມຄິດການຂຽນໂປລແກລມທີ່ເນັ້ນໃສ່ວັດຖຸຫນັກເຊັ່ນ: ການສືບທອດ, polymorphism, ຫຼື mutability, ພວກເຮົາສາມາດໃຊ້ປະໂຫຍດຈາກຜົນປະໂຫຍດຂອງພວກເຂົາໂດຍບໍ່ມີການສັບສົນກັບລະຫັດຂອງພວກເຮົາ. ນອກຈາກນັ້ນ, ໂດຍການເພີ່ມວິທີການປ່ຽນປະເພດທີ່ບໍ່ປ່ຽນແປງໄດ້, ພວກເຮົາສາມາດເພີ່ມລະຫັດທີ່ເປັນປະໂຫຍດຂອງພວກເຮົາດ້ວຍ Classes.

magic ຂອງຊັ້ນວັນນະ

Castes ແມ່ນໜຶ່ງໃນລັກສະນະທີ່ມີປະສິດທິພາບທີ່ສຸດໃນ Powershell. ເມື່ອທ່ານວາງມູນຄ່າ, ທ່ານກໍາລັງອີງໃສ່ຄວາມສາມາດເບື້ອງຕົ້ນແລະການກວດສອບ implicit ທີ່ສະພາບແວດລ້ອມເພີ່ມໃສ່ຄໍາຮ້ອງສະຫມັກຂອງທ່ານ. ຕົວຢ່າງ, ພຽງແຕ່ການໂຍນສະຕຣິງໃນ [xml] ຈະແລ່ນມັນຜ່ານລະຫັດ parser ແລະສ້າງຕົ້ນໄມ້ xml ທີ່ສົມບູນ. ພວກເຮົາສາມາດໃຊ້ Classes ໃນລະຫັດຂອງພວກເຮົາເພື່ອຈຸດປະສົງດຽວກັນ.

ຄາສທ hashtables

ຖ້າທ່ານບໍ່ມີຕົວສ້າງ, ທ່ານສາມາດສືບຕໍ່ໂດຍບໍ່ມີຕົວສ້າງໂດຍການສົ່ງ hashtable ໄປຫາປະເພດຫ້ອງຮຽນຂອງທ່ານ. ຢ່າລືມໃຊ້ຄຸນສົມບັດການກວດສອບເພື່ອໃຊ້ປະໂຫຍດຢ່າງເຕັມທີ່ຈາກຮູບແບບນີ້. ໃນເວລາດຽວກັນ, ພວກເຮົາສາມາດໃຊ້ຄຸນສົມບັດທີ່ພິມຂອງຫ້ອງຮຽນເພື່ອດໍາເນີນການເຖິງເຫດຜົນເບື້ອງຕົ້ນແລະຄວາມຖືກຕ້ອງທີ່ເລິກເຊິ່ງກວ່າ.

class Cluster {
    [ValidatePattern("^[A-z]+$")]
    [string] $Service
    [ValidateSet("TEST", "STAGE", "CANARY", "PROD")]
    [string] $FlightingRing
    [ValidateSet("EastUS", "WestUS", "NorthEurope")]
    [string] $Region
    [ValidateRange(0, 255)]
    [int] $Index
}

[Cluster]@{
    Service       = "MyService"
    FlightingRing = "PROD"
    Region        = "EastUS"
    Index         = 2
}

ນອກຈາກນັ້ນ, ການຫລໍ່ຊ່ວຍໃຫ້ໄດ້ຮັບຜົນຜະລິດທີ່ສະອາດ. ປຽບທຽບຜົນຜະລິດຂອງ Cluster hashtable array ທີ່ສົ່ງໄປຫາ Format-Table ກັບສິ່ງທີ່ທ່ານໄດ້ຮັບ ຖ້າເຈົ້າໂຍນ hashtables ເຫຼົ່ານີ້ເຂົ້າໄປໃນຊັ້ນຮຽນ. ຄຸນສົມບັດຂອງຫ້ອງຮຽນຖືກລະບຸໄວ້ສະເໝີໃນລຳດັບທີ່ພວກມັນຖືກກຳນົດຢູ່ທີ່ນັ້ນ. ຢ່າລືມເພີ່ມຄໍາທີ່ເຊື່ອງໄວ້ກ່ອນທີ່ຈະມີຄຸນສົມບັດທັງຫມົດທີ່ທ່ານບໍ່ຕ້ອງການທີ່ຈະເຫັນໄດ້ໃນຜົນໄດ້ຮັບ.

ຄວາມຫມາຍ

ຖ້າທ່ານມີ constructor ທີ່ມີຫນຶ່ງ argument, ການສົ່ງຄ່າໄປຫາປະເພດ class ຂອງທ່ານຈະສົ່ງຄ່າໃຫ້ກັບ constructor ຂອງທ່ານ, ບ່ອນທີ່ທ່ານສາມາດເລີ່ມຕົ້ນ instance ຂອງ class ຂອງທ່ານ.

class Cluster {
    [ValidatePattern("^[A-z]+$")]
    [string] $Service
    [ValidateSet("TEST", "STAGE", "CANARY", "PROD")]
    [string] $FlightingRing
    [ValidateSet("EastUS", "WestUS", "NorthEurope")]
    [string] $Region
    [ValidateRange(0, 255)]
    [int] $Index

    Cluster([string] $id) {
        $this.Service, $this.FlightingRing, $this.Region, $this.Index = $id -split "-"
    }
}

[Cluster]"MyService-PROD-EastUS-2"

ສົ່ງສັນຍານໄປແຖວ

ນອກນັ້ນທ່ານຍັງສາມາດ override ວິທີການຊັ້ນຮຽນ [string] ToString() ເພື່ອກໍານົດເຫດຜົນທີ່ຢູ່ເບື້ອງຫຼັງການເປັນຕົວແທນຂອງ string ຂອງວັດຖຸ, ເຊັ່ນ: ການໃຊ້ string interpolation.

class Cluster {
    [ValidatePattern("^[A-z]+$")]
    [string] $Service
    [ValidateSet("TEST", "STAGE", "CANARY", "PROD")]
    [string] $FlightingRing
    [ValidateSet("EastUS", "WestUS", "NorthEurope")]
    [string] $Region
    [ValidateRange(0, 255)]
    [int] $Index

    [string] ToString() {
        return $this.Service, $this.FlightingRing, $this.Region, $this.Index -join "-"
    }
}

$cluster = [Cluster]@{
    Service       = "MyService"
    FlightingRing = "PROD"
    Region        = "EastUS"
    Index         = 2
}

Write-Host "We just created a model for '$cluster'"

Cast serialized instances

Cast ອະນຸຍາດໃຫ້ deserialization ປອດໄພ. ຕົວຢ່າງຂ້າງລຸ່ມນີ້ຈະລົ້ມເຫລວຖ້າຂໍ້ມູນບໍ່ກົງກັບຂໍ້ກໍານົດຂອງພວກເຮົາໃນ Cluster

# Валидация сериализованных данных

[Cluster]$cluster = Get-Content "./my-cluster.json" | ConvertFrom-Json
[Cluster[]]$clusters = Import-Csv "./my-clusters.csv"

Castes ໃນລະຫັດການເຮັດວຽກຂອງທ່ານ

ໂປລແກລມທີ່ເຮັດວຽກທໍາອິດກໍານົດໂຄງສ້າງຂໍ້ມູນ, ຫຼັງຈາກນັ້ນປະຕິບັດໂຄງການເປັນລໍາດັບຂອງການຫັນປ່ຽນຫຼາຍກວ່າໂຄງສ້າງຂໍ້ມູນທີ່ບໍ່ປ່ຽນແປງໄດ້. ເຖິງວ່າຈະມີຄວາມປະທັບໃຈທີ່ກົງກັນຂ້າມ, ຫ້ອງຮຽນກໍ່ຊ່ວຍໃຫ້ທ່ານຂຽນລະຫັດທີ່ເປັນປະໂຫຍດຍ້ອນການພິມວິທີການແປງ.

Powershell ທີ່ຂ້ອຍກໍາລັງຂຽນມີປະໂຫຍດບໍ?

ຫຼາຍຄົນທີ່ມາຈາກ C# ຫຼືພື້ນຖານທີ່ຄ້າຍຄືກັນແມ່ນຂຽນ Powershell, ເຊິ່ງຄ້າຍຄືກັບ C#. ໂດຍການເຮັດສິ່ງນີ້, ທ່ານກໍາລັງຍ້າຍອອກໄປຈາກການນໍາໃຊ້ແນວຄວາມຄິດການຂຽນໂປລແກລມທີ່ເປັນປະໂຫຍດແລະອາດຈະໄດ້ຮັບຜົນປະໂຫຍດຈາກການລົງເລິກເຂົ້າໄປໃນການຂຽນໂປລແກລມແບບວັດຖຸໃນ Powershell ຫຼືຮຽນຮູ້ເພີ່ມເຕີມກ່ຽວກັບການຂຽນໂປຼແກຼມທີ່ເປັນປະໂຫຍດ.

ຖ້າທ່ານອີງໃສ່ການຫັນປ່ຽນຂໍ້ມູນທີ່ບໍ່ປ່ຽນແປງຫຼາຍໂດຍໃຊ້ທໍ່ (|), Where-Object, ForEach-Object, Select-Object, Group-Object, Sort-Object, ແລະອື່ນໆ. ຫ້ອງຮຽນໃນຮູບແບບທີ່ເປັນປະໂຫຍດ.

ການນໍາໃຊ້ຫນ້າທີ່ຂອງຫ້ອງຮຽນ

Castes, ເຖິງແມ່ນວ່າພວກເຂົາໃຊ້ syntax ທາງເລືອກ, ແມ່ນພຽງແຕ່ການສ້າງແຜນທີ່ລະຫວ່າງສອງໂດເມນ. ໃນທໍ່, ທ່ານສາມາດສ້າງແຜນທີ່ array ຂອງຄ່າໂດຍໃຊ້ ForEach-Object.

ໃນຕົວຢ່າງຂ້າງລຸ່ມນີ້, Node constructor ຖືກປະຕິບັດທຸກຄັ້ງທີ່ Datum ຖືກໂຍນ, ແລະນີ້ເຮັດໃຫ້ພວກເຮົາມີໂອກາດທີ່ຈະບໍ່ຂຽນລະຫັດທີ່ເຫມາະສົມ. ດັ່ງນັ້ນ, ທໍ່ຂອງພວກເຮົາສຸມໃສ່ການສອບຖາມຂໍ້ມູນແລະການລວບລວມຂໍ້ມູນປະກາດ, ໃນຂະນະທີ່ຫ້ອງຮຽນຂອງພວກເຮົາເບິ່ງແຍງການແຍກຂໍ້ມູນແລະການກວດສອບຄວາມຖືກຕ້ອງ.

# Пример комбинирования классов с конвейерами для separation of concerns в конвейерах

class Node {
    [ValidateLength(3, 7)]
    [string] $Name
    [ValidateSet("INT", "PPE", "PROD")]
    [string] $FlightingRing
    [ValidateSet("EastUS", "WestUS", "NorthEurope", "WestEurope")]
    [string] $Region
    Node([string] $Name) {
        $Name -match "([a-z]+)(INT|PPE|PROD)([a-z]+)"
        $_, $this.Service, $this.FlightingRing, $this.Region = $Matches
        $this.Name = $Name
    }
}

class Datum {
    [string] $Name
    [int] $Value
    [Node] $Computer
    [int] Severity() {
        $this.Name -match "[0-9]+$"
        return $Matches[0]
    }
}

Write-Host "Urgent Security Audit Issues:"
Import-Csv "./audit-results.csv" `
    | ForEach-Object {[Datum]$_} `
    | Where-Object Value -gt 0 `
    | Group-Object {$_.Severity()} `
    | Where-Object Name -lt 2 `
    | ForEach-Object Group `
    | ForEach-Object Computer `
    | Where-Object FlightingRing -eq "PROD" `
    | Sort-Object Name, Region -Unique

ຫ້ອງຮຽນບັນຈຸພັນສໍາລັບການນໍາໃຊ້ຄືນ

ບໍ່ມີຫຍັງດີເທົ່າທີ່ມັນເບິ່ງຄືວ່າ

ແຕ່ຫນ້າເສຍດາຍ, ຫ້ອງຮຽນບໍ່ສາມາດຖືກສົ່ງອອກໂດຍໂມດູນໃນລັກສະນະດຽວກັນກັບຫນ້າທີ່ຫຼືຕົວແປ; ແຕ່ມີບາງ tricks. ໃຫ້ເວົ້າວ່າຫ້ອງຮຽນຂອງທ່ານຖືກກໍານົດໄວ້ໃນໄຟລ໌ ./my-classes.ps1

• ທ່ານສາມາດ dotsource ໄຟລ໌ທີ່ມີຫ້ອງຮຽນ:. ./my-classes.ps1. ນີ້ຈະດໍາເນີນການ my-classes.ps1 ໃນຂອບເຂດປະຈຸບັນຂອງທ່ານແລະກໍານົດຊັ້ນຮຽນທັງຫມົດຈາກໄຟລ໌ຢູ່ທີ່ນັ້ນ.

• ທ່ານສາມາດສ້າງໂມດູນ Powershell ທີ່ສົ່ງອອກ APIs ຂອງທ່ານເອງທັງຫມົດ (cmdlets) ແລະກໍານົດຕົວແປ ScriptsToProcess = "./my-classes.ps1" ໃນ manifest ໂມດູນຂອງທ່ານ, ດ້ວຍຜົນໄດ້ຮັບດຽວກັນ: ./my-classes.ps1 ຈະດໍາເນີນການໃນ ສະພາບແວດລ້ອມຂອງເຈົ້າ.

ຕົວເລືອກໃດກໍ່ຕາມທີ່ທ່ານເລືອກ, ຈົ່ງຈື່ໄວ້ວ່າລະບົບປະເພດຂອງ Powershell ບໍ່ສາມາດແກ້ໄຂປະເພດຂອງຊື່ດຽວກັນທີ່ໂຫລດມາຈາກບ່ອນຕ່າງໆ.
ເຖິງແມ່ນວ່າທ່ານຈະໂຫລດສອງຊັ້ນຮຽນດຽວກັນທີ່ມີຄຸນສົມບັດດຽວກັນຈາກບ່ອນທີ່ແຕກຕ່າງກັນ, ທ່ານມີຄວາມສ່ຽງທີ່ຈະມີບັນຫາ.

ວິທີການຕໍ່

ວິທີທີ່ດີທີ່ສຸດໃນການຫຼີກລ້ຽງບັນຫາການແກ້ໄຂປະເພດແມ່ນ ຢ່າເປີດເຜີຍຊັ້ນຮຽນຂອງເຈົ້າໃຫ້ກັບຜູ້ໃຊ້. ແທນທີ່ຈະຄາດຫວັງໃຫ້ຜູ້ໃຊ້ນໍາເຂົ້າປະເພດທີ່ກໍານົດໃນຊັ້ນຮຽນ, ສົ່ງອອກຟັງຊັນຈາກໂມດູນຂອງເຈົ້າທີ່ກໍາຈັດຄວາມຕ້ອງການໃນການເຂົ້າເຖິງຊັ້ນຮຽນໂດຍກົງ. ສໍາລັບ Cluster, ພວກເຮົາສາມາດສົ່ງອອກຟັງຊັນ New-Cluster ທີ່ຈະສະຫນັບສະຫນູນຊຸດພາລາມິເຕີທີ່ເປັນມິດກັບຜູ້ໃຊ້ແລະສົ່ງຄືນ Cluster.

class Cluster {
    [ValidatePattern("^[A-z]+$")]
    [string] $Service
    [ValidateSet("TEST", "STAGE", "CANARY", "PROD")]
    [string] $FlightingRing
    [ValidateSet("EastUS", "WestUS", "NorthEurope")]
    [string] $Region
    [ValidateRange(0, 255)]
    [int] $Index
}

function New-Cluster {
    [OutputType([Cluster])]
    Param(
        [Parameter(Mandatory, ParameterSetName = "Id", Position = 0)]
        [ValidateNotNullOrEmpty()]
        [string] $Id,
        [Parameter(Mandatory, ParameterSetName = "Components")]
        [string] $Service,
        [Parameter(Mandatory, ParameterSetName = "Components")]
        [string] $FlightingRing,
        [Parameter(Mandatory, ParameterSetName = "Components")]
        [string] $Region,
        [Parameter(Mandatory, ParameterSetName = "Components")]
        [int] $Index
    )

    if ($Id) {
        $Service, $FlightingRing, $Region, $Index = $Id -split "-"
    }

    [Cluster]@{
        Service       = $Service
        FlightingRing = $FlightingRing
        Region        = $Region
        Index         = $Index
    }
}

Export-ModuleMember New-Cluster

ມີຫຍັງອີກແດ່ທີ່ຈະອ່ານ

ກ່ຽວກັບຫ້ອງຮຽນ
PowerShell ປ້ອງກັນ
ການຂຽນໂປຼແກຼມທີ່ມີປະໂຫຍດໃນ PowerShell

ແຫຼ່ງຂໍ້ມູນ: www.habr.com