Perl Bevegelig Gjennomsnitt Eksempel

rrdgraphexamples Skift dataene fremover med en uke (604800 sekunder) Hvis den spesialiserte funksjonen RRA eksisterer for avvikende oppførsel, kan de brukes til å generere grafen til en tidsserie med konfidensbånd og feil. Dette eksemplet genererer en graf av datariene i blått (LINE2 med scaledobs virtuelle datakilde), konfidensgrenser i røde virtuelle datakilder (scaledupper og scaledlower) og potensielle feil (dvs. potensiell avvikende avviksadferd) merket med vertikale gule linjer ( feildatakilden). Rådataene kommer fra en GENEREL RRA. Den beste oppløsningen av de observerte tidsseriene (ett konsolidert datapunkt per primært datapunkt). De forutsagte (eller jevne) verdiene er lagret i HWPREDICT RRA. Forventede avvik (verdier standardavvik) verdier lagres i DEVPREDICT RRA. Til slutt inneholder FAILURES RRA indikatorer, hvor 1 angir en potensiell feil. Alle dataene blir rescaled til biter (i stedet for oktetter) ved å multiplisere med 8. Tillitsbegrensningene beregnes med en forskyvning av 2 avvik både over og under de forutsagte verdiene (CDEFs øvre og nedre). Vertikale linjer indikerer at potensielle feil er grafet via TICK-graf-elementet, som konverterer ikke-nullverdier i et RRA til tikmerke. Her innebærer et aksefraksjonargument på 1,0 at merketeknikken spenner over hele y-aksen, og blir dermed vertikale linjer på grafen. Valget av 2 avvik (en skaleringsfaktor) samsvarer med standard som brukes internt av FAILURES RRA. Hvis den interne verdien endres (se rrdtune), bør denne grafikkkommandoen endres for å være konsistent. Kommandoen rrdtool graph er utformet for å plotte data ved en angitt tidsoppløsning, uavhengig av faktisk oppløsning av dataene i RRD-filen. Dette kan presentere et problem for de spesialiserte konsolideringsfunksjonene som opprettholder en-til-en-kartlegging mellom primære datapunkter og konsoliderte datapunkter. Hvis en graf insisterer på å se innholdet i disse RRAene på en grovere temporal skala, prøver grafkommandoen å gjøre noe intelligent, men selvtillitbåndene og feilene har ikke lenger den samme betydningen og kan være misvisende. rrdgraph gir en oversikt over hvordan rrdtool graf fungerer. rrdgraphdata beskriver DEF, CDEF og VDEF i detalj. rrdgraphrpn beskriver RPN-språket som brukes i xDEF-setningene. rrdgraphgraph-siden beskriver alle graf - og utskriftsfunksjonene. Program av Tobias Oetiker 60tobioetiker. ch62 Denne håndboksiden av Alex van den Bogaerdt 60alexvandenbogaerdt. nl62 med rettelser og tillegg av flere personerDette kapitlet presenterer konseptene bak referanser til Perl-moduler, pakker og klasser. Det viser deg også hvordan du lager noen få prøvemoduler. En Perl-modul er et sett med Perl-kode som fungerer som et bibliotek med funksjonssamtaler. Termmodulen i Perl er synonymt med ordpakken. Pakker er en funksjon av Perl 4, mens moduler er utbredt i Perl 5. Du kan beholde all din gjenbrukbare Perl-kode spesifikk for et sett med oppgaver i en Perl-modul. Derfor er all funksjonalitet knyttet til en type oppgave inneholdt i en fil. Det er lettere å bygge et program på disse modulære blokkene. Derfor brukes ordmodulen litt mer enn pakken. Heres en rask introduksjon til moduler. Visse emner i denne delen vil bli dekket i detalj gjennom resten av boka. Les følgende avsnitt nøye for å få oversikt over hva som ligger foran når du skriver og bruker dine egne moduler. Det som er forvirrende er at vilkårsmodulen og pakken blir brukt om hverandre i alle Perl-dokumentasjon, og disse to begrepene betyr det samme. Så når du leser Perl-dokumenter, tenk bare quackagequot når du ser quotodulequot og vice versa. Så, hva er forutsetningen for å bruke moduler Vel, moduler er der for å pakke (pardon pun) variabler, symboler og sammenkoblede data elementer sammen. For eksempel bruker du globale variabler med svært vanlige navn som k. j. eller jeg i et program er vanligvis ikke en god ide. Også en loop-teller, jeg. bør få lov til å jobbe uavhengig i to forskjellige deler av koden. Deklarere jeg som en global variabel og deretter øke den fra en underrutine vil skape uhåndterlige problemer med din søknadskode fordi subrutinen kan ha blitt kalt fra en loop som også bruker en variabel som heter jeg. Bruk av moduler i Perl tillater variabler med samme navn som skal opprettes på forskjellige, forskjellige steder i samme program. Symbolene som er definert for variablene dine, lagres i en associativ gruppe, referert til som symboltabell. Disse symboltabellene er unike for en pakke. Derfor kan variabler med samme navn i to forskjellige pakker ha forskjellige verdier. Hver modul har sin egen symboltabell over alle symboler som er deklarert i den. Symboltabellen isolerer i utgangspunktet synonyme navn i en modul fra en annen. Symboltabellen definerer et navneområde. det vil si at et rom for uavhengige variabelnavne skal eksistere. Bruken av moduler, hver med sin egen symboltabell, forhindrer en variabel som er deklarert i en seksjon, fra å overskrive verdiene til andre variabler med samme navn som er deklarert andre steder i det samme program. Faktisk tilhører alle variabler i Perl en pakke. Variablene i et Perl-program tilhører hovedpakken. Alle andre pakker innenfor et Perl-program er enten nestet i denne hovedpakken eller finnes på samme nivå. Det er noen virkelig globale variabler, for eksempel signalhåndteringssystemet SIG. som er tilgjengelige for alle andre moduler i et applikasjonsprogram og kan ikke isoleres via navneområder. Bare de variable identifikatorene som starter med bokstaver eller understreker, blir lagret i en modulsymboltabell. Alle andre symboler, for eksempel navnene STDIN. STDOUT. STDERR. ARGV. ARGVOUT. ENV. Inc. og SIG er tvunget til å være i hovedpakken. Bytte mellom pakker påvirker bare navneområder. Alt du gjør når du bruker en pakke eller en annen, erklærer hvilket symbolbord som skal brukes som standard symboltabell for oppslag av variable navn. Bare dynamiske variabler påvirkes av bruk av symboltabeller. Variabler som er erklært ved bruk av søkeordet mitt, er fortsatt løst med kodeblokken de tilfeldigvis er bosatt i og er ikke referert gjennom symboltabeller. Faktisk forblir omfanget av en pakkedeklarasjon bare aktiv i kodeblokken den er erklært inn. Derfor, hvis du bytter symboltabeller ved å bruke en pakke i en subrutine, vil den opprinnelige symboltabellen som ble brukt når samtalen ble gjort, bli gjenopprettet når subrutinen returnerer. Bytte symboltabeller påvirker bare standard oppslag av dynamiske variabelnavn. Du kan fremdeles eksplisitt referere til variabler, filhåndtak og så videre i en bestemt pakke ved å forhåndsbeide et pakkenavn. til variabelnavnet. Du så hva en pakke kontekst var når du brukte referanser i kapittel 3. En pakke kontekst innebærer bare bruken av symboltabellen av Perl tolk for å løse variable navn i et program. Ved å bytte symboltabeller bytter du sammen konteksten. Moduler kan nestes i andre moduler. Den nestede modulen kan bruke variablene og funksjonene til modulen den er plassert inne i. For nestede moduler, må du bruke modulnavn. nestedModuleName og så videre. Ved å bruke dobbelt kolon (::) er det synonymt med å bruke et tilbakekall (). Den dobbelte kolon er imidlertid den foretrukne, fremtidige måten å adressere variabler i moduler. Eksplisitt adressering av modulvariabler gjøres alltid med en fullstendig referanse. For eksempel, anta at du har en modul, Investering. som er standardpakken i bruk, og du vil adressere en annen modul, obligasjoner. som er nestet i Investeringsmodulen. I dette tilfellet kan du ikke bruke Bond ::. I stedet må du bruke Investment :: Bond :: for å adressere variabler og funksjoner i Bond-modulen. Bruke Bond :: vil innebære bruk av en pakke Bond som er nestet i hovedmodulen og ikke innenfor investeringsmodulen. Symboltabellen for en modul lagres faktisk i en assosiativ rekke av modulnavnene vedlagt med to kolonner. Symboltabellen for en modul kalt Bond blir referert til som den assosiative gruppen Bond ::. Navnet på symboltabellen for hovedmodulen er hoved ::. og kan til og med forkortes til ::. På samme måte har alle nestede pakker sine symboler lagret i assosiative arrays med dobbelt kolon som skiller hvert nestingsnivå. For eksempel, i Bond-modulen som er nestet i Investeringsmodulen, vil den assosiative gruppen for symbolene i Bond-modulen bli kalt Investment :: Bond ::. En typeglob er virkelig en global type for et symbolnavn. Du kan utføre aliasing operasjoner ved å tildele til en typeglob. En eller flere oppføringer i en associativ gruppe for symboler vil bli brukt når en oppgave via en typeglob brukes. Den faktiske verdien i hver oppføring i den assosiative gruppen er hva du refererer til når du bruker variabelenavnnotasjonen. Dermed er det to måter å referere til variable navn i en pakke: Investering :: penger Investering :: regninger I den første metoden refererer du til variablene via en typeglob-referanse. Bruken av symboltabellen Investering ::. er underforstått her, og Perl vil optimalisere oppslaget for symboler penger og regninger. Dette er den raskere og foretrukne måten å adressere et symbol på. Den andre metoden bruker en oppslag for verdien av en variabel adressert av penger og regninger i den tilknyttede gruppen som brukes til symboler, Investering :: eksplisitt. Denne oppslaget vil bli gjort dynamisk og vil ikke bli optimalisert av Perl. Derfor vil oppslaget bli tvunget til å sjekke assosiativ array hver gang setningen utføres. Som et resultat er den andre metoden ikke effektiv og bør bare brukes til demonstrasjon av hvordan symboltabellen implementeres internt. Et annet eksempel i denne utsagnet, kamran husain, forårsaker variabler, subrutiner og filhåndtak som er navngitt via symbolet kamran for å også adresseres via symbolet husain. Det vil si at alle symboloppføringer i den nåværende symboltabellen med nøkkel kamran vil nå inneholde referanser til de symbolene adressert av nøkkelhuset. For å forhindre en slik global oppgave, kan du bruke eksplisitte referanser. For eksempel vil følgende setning la deg adressere innholdet av husain via den variable kamran. kamran husain Men noen arrays slike kamran og husain vil ikke være det samme. Bare hva referansene spesifisert eksplisitt vil bli endret. For å oppsummere, når du tilordner en typeglob til en annen, påvirker du alle oppføringene i et symboltabell uavhengig av hvilken type variabel som refereres til. Når du tilordner en referanse fra en variabeltype til en annen, påvirker du bare en oppføring i symboltabellen. En Perl-modulfil har følgende format: pakke Modulnavn. Sett inn modulkoden. 1 Filnavnet må kalles ModuleName. pm. Navnet på en modul må ende i strengen. pm etter konvensjon. Pakningsoppgaven er den første linjen i filen. Den siste linjen i filen må inneholde linjen med 1-setningen. Dette gir i realiteten en ekte verdi til applikasjonsprogrammet ved hjelp av modulen. Ikke bruk 1-setningen lar ikke modulen lastes inn riktig. Pakningsoppgaven forteller Perl-tolken å starte med et nytt navneområde domenenavn. I utgangspunktet tilhører alle variablene dine i et Perl-skript en pakke som heter main. Hver variabel i hovedpakken kan refereres til som hovedvariabel. Heres syntaksen for slike referanser: packageNamevariableName Det eneste sitatet () er synonymt med operatøren med dobbelt kolon (::). Jeg dekker flere bruksområder av :: operatøren i neste kapittel. For øyeblikket må du huske at følgende to setninger er likeverdige: packageNamevariableName packageName :: variableName Synkroniseringen med dobbelt kolon blir vurdert som standard i Perl-verdenen. Derfor, for å bevare lesbarheten, bruker jeg dobbeltkolonens syntaks i resten av denne boken, med mindre det er absolutt nødvendig å gjøre unntak for å bevise et punkt. Standardbruken av et variabelnavn forsvinner til den nåværende pakken som er aktiv på tidspunktet for samlingen. Dermed, hvis du er i pakken Finance. pm og angi en variabel pv. variabelen er faktisk lik finans :: pv. Bruke Perl-moduler: bruk vs. krever at du inkluderer Perl-moduler i programmet ved å bruke bruken eller kravet. Heres måten å bruke ett av disse påstandene: bruk modulnavn krever modulnavn Merk at. pm-utvidelsen ikke brukes i koden vist ovenfor. Vær også oppmerksom på at ingen setning gjør at en fil kan inkluderes mer enn en gang i et program. Den returnerte verdien av ekte (1) som den siste setningen er nødvendig for å la Perl vite at en krav d eller bruk d-modulen er lastet riktig og lar Perl-tolken ignorere eventuelle oppdateringer. Generelt er det bedre å bruke bruksmodulets setning enn kravmoduloppstillingen i et Perl-program for å forbli kompatibelt med fremtidige versjoner av Perl. For moduler, vil du kanskje vurdere å fortsette å bruke kravserklæringen. Heres hvorfor: Brukserklæringen gjør litt mer arbeid enn kravet om at det endrer navnene på modulen som inneholder en annen modul. Du vil ha denne ekstra oppdateringen av navneområdet som skal gjøres i et program. Når du skriver kode for en modul, kan det hende du ikke vil at navneområdet skal endres, med mindre det er eksplisitt nødvendig. I dette tilfellet vil du bruke kravserklæringen. Kravserklæringen inkluderer hele stedsnavnet til en fil i Inc-arrayet, slik at funksjonene og variablene i modulfilen er på et kjent sted i løpet av kjøretiden. Derfor importeres funksjonene som importeres fra en modul via en eksplisitt modulreferanse ved kjøring med kravserklæringen. Brukserklæringen gjør det samme som kravserklæringen fordi den oppdaterer Inc-arrayet med fulle stinavn av lastede moduler. Koden for bruksfunksjonen går også et skritt videre og kaller en importfunksjon i modulen som brukes d for å eksplisitt laste listen over eksporterte funksjoner på kompileringstid, og sparer dermed tiden som kreves for en eksplisitt oppløsning av et funksjonsnavn under utførelsen. I utgangspunktet er brukserklæringen ekvivalent med å kreve ModuleName-importmodulnavnsliste over importerte funksjoner Bruken av brukserklæringen endrer programområdene dine fordi de importerte funksjonene er satt inn i symboltabellen. Krever utsagnet endrer ikke programområdene dine namespace. Derfor er følgende setning Bruk modulnavn () tilsvarer denne setningen: krever modulnavn Funksjoner importeres fra en modul via en samtale til en funksjon som kalles import. Du kan skrive din egen importfunksjon i en modul, eller du kan bruke eksportørmodulen og bruke importfunksjonen. I nesten alle tilfeller vil du bruke eksportørmodulen til å gi en importfunksjon i stedet for å gjenoppfinne hjulet. (Du vil lære mer om dette i neste avsnitt.) Hvis du bestemmer deg for ikke å bruke eksportørmodulen, må du skrive din egen importfunksjon i hver modul du skriver. Det er mye enklere å bare bruke eksportørmodulen og la Perl gjøre jobben for deg. Prøven Letter. pm-modul Den beste måten å illustrere semantikken til hvordan en modul brukes i Perl, er å skrive en enkel modul og vise hvordan du bruker den. La oss ta eksemplet på en lokal lånehaj, Rudious Maximus, som bare er lei av å skrive det samme tilbudet for betalingskvitteringer. Å være en ivrig fan av datamaskiner og Perl, tar Rudious de dumme programmererne tilnærming og skriver en Perl-modul for å hjelpe ham med å generere sine notater og brev. Nå, i stedet for å skrive innenfor felt i en memo-malfil, er alt han trenger å gjøre å skrive noen linjer for å produsere sitt hyggelige, truende notat. Oppføring 4.1 viser deg hva han må skrive. Oppføring 4.1. Bruke Letter-modulen. 1 usrbinperl - w 2 3 Uncomment linjen nedenfor for å inkludere gjeldende dir i Inc. 4 push (Inc, pwd) 5 6 bruk Letter 7 8 Letter :: To (gambling Manquot, quotPengene til Lucky Dog, Race 2quot) 9 Letter :: ClaimMoneyNice () 10 Letter :: ThankDem () 11 Letter :: Finish () Bruksanvisningen er til stede for å tvinge Perl tolk til å inkludere koden for modulen i applikasjonsprogrammet. Modulen skal være plassert i katalogen usrlibperl5, eller du kan plassere den i en hvilken som helst katalog som er oppført i Inc-array. Inc-serien er listen over kataloger som Perl-tolken vil se etter når du prøver å laste koden for det navngitte modulen. Den kommenterte linjen (nummer 4) viser hvordan du legger til gjeldende arbeidskatalog for å inkludere banen. De neste fire linjene i filen genererer emnet for brevet. Heres utgangen fra å bruke brevet modulen: Til: Mr. Gambling Man Fm: Rudious Maximus, Loan Shark Dt: Ons Feb 7 10:35:51 CST 1996 Re: Pengene til Lucky Dog, Race 2 Det har kommet til min oppmerksomhet at kontoen din er for sent. Du skal betale oss snart Eller vil du at jeg skal komme deg? Takk for din støtte. Brevmodulfilen er vist i Liste 4.2. Navnet på pakken er erklært i første linje. Fordi disse modulene fungerer vil bli eksportert, bruker jeg eksportørmodulen. Derfor er setningen Bruk eksportør nødvendig for å arve funksjonalitet fra eksportørmodulen. Et annet nødvendig trinn er å sette ordet Eksportert i ISA-arrayet for å tillate å søke etter Exported. pm. ISA-arrayet er et spesielt utvalg innenfor hver pakke. Hvert element i gruppen viser hvor ellers å lete etter en metode hvis den ikke kan bli funnet i den nåværende pakken. Ordren der pakkene er oppført i ISA-arrayet, er rekkefølgen der Perl søker etter uløste symboler. En klasse som er oppført i ISA-gruppen, refereres til som grunnklassen til den aktuelle klassen. Perl vil cache manglende metoder funnet i grunnklasser for fremtidige referanser. Hvis du endrer ISA-arrayet, spyles hurtigbufferen og får Perl til å slå opp alle metodene igjen. La oss se på koden for Letter. pm i Listing 4.2. Oppføring 4.2. Letter. pm-modulen. 1 pakke Letter 2 3 krever eksportør 4 ISA (eksportør) 5 6 head1 NAME 7 8 Letter - Eksempelmodul for å generere brevhode for deg 9 10 head1 SYNOPSIS 11 12 bruk Letter 13 14 Letter :: Date () 15 Letter :: To (name , firma, adresse) 16 17 Deretter ett av følgende: 18 Letter :: ClaimMoneyNice () 19 Letter :: ClaimMoney () 20 Letter :: ThreatBreakLeg () 21 22 Letter :: ThankDem () 23 Letter :: Finish () 24 25 head1 BESKRIVELSE 26 27 Denne modulen gir et kort eksempel på å generere et brev til en 28 vennlig nabobudslånshark. 29 30 Koden starter etter kvotekvoterklæringen. 31 kutt 32 33 Eksport qw (Dato, 34 Til, 35 ClaimMoney, 36 ClaimMoneyNice, 37 ThankDem, 38 Avslutt) 39 40 41 Skriv ut dagens dato 42 43 underbrev :: Dato 44 dato dato 45 utskriftskvote I dag er datoenkvot 46 47 48 sub Brev :: Til 49 lokalt (navn) skift 50 lokalt (emne) skift 51 utskriftskvot Til: navnkvitt 52 utskriftskvittering Fm: Rudious Maximus, Loan Sharkquot 53 utskriftskvittering Dt: dato 54 utskriftskvittering Re: subjectquot 55 print quotnnquot 56 print quotnnquot 57 58 subbrev :: ClaimMoney () 59 print quote Du skylder meg penger. Få din handle togetherquot 60 print quotn Ønsker du at jeg skal sende Bruno over for å si 61 print kvote samle den. eller skal du betale upquot 62 63 64 subbrev :: ClaimMoneyNice () 65 print quote Det er kommet til min oppmerksomhet om at kontoen din er kvitt 66 print quote måte over due. quot 67 print quote Du skal betale oss snart .. skriv ut kvote eller vil du ha meg til å komme ovahquot 69 70 71 underbrev :: ThreatBreakLeg () 72 skriv ut kvitter tydeligvis bokstaver som disse dont helpquot 73 print quote Jeg må lage et eksempel på youquot 74 print quote n Se deg på sykehuset , palquot 75 76 77 underbrev :: ThankDem () 78 print quotnn Takk for din supportquot 79 80 81 underbrev :: Fullfør () 82 printf quotnnnn Vennlig hilsen 83 printf kvote Rudious n kvot 84 85 86 1 Linjer som inneholder like tegnet brukes for dokumentasjon. Du må dokumentere hver modul for egen referanse Perl-moduler behøver ikke å bli dokumentert, men det er en god ide å skrive noen linjer om hva koden din gjør. Noen år fra nå kan du glemme hva en modul handler om. God dokumentasjon er alltid et must hvis du vil huske hva du gjorde i det siste, dekker jeg dokumentasjonsstiler som brukes for Perl i kapittel 8. quotDocumenting Perl Scripts. quot For denne prøvemodulen starter head1-setningen dokumentasjonen. Alt opp til utsnittet er ignorert av Perl-tolken. Deretter viser modulen alle funksjonene som eksporteres av denne modulen i EXPORT-array. Eksport-gruppen definerer alle funksjonsnavnene som kan kalles av utenfor kode. Hvis du ikke lister en funksjon i dette EXPORT-systemet, vil det ikke bli sett av eksterne kodemoduler. Etter EXPORT-gruppen er kodenes kropp, en subrutine av gangen. Etter at alle subrutiner er definert, avslutter den endelige setningen 1 modulfilen. 1 må være den siste kjørbare linjen i filen. La oss se på noen av funksjonene som er definert i denne modulen. Den første funksjonen til å se på er den enkle Date-funksjonen, linjene 43 til 46, som skriver ut dagens UNIX-dato og klokkeslett. Det er ingen parametere til denne funksjonen, og det returnerer ikke noe meningsfylt tilbake til den som ringer. Legg merke til bruken av min før datovariabelen i linje 44. Søkeordet mitt brukes til å begrense omfanget av variabelen til datofunksjonens krøllebøyler. Kode mellom krøllete braces refereres til som en blokk. Variabler deklarert innenfor en blokk er begrenset i rekkevidde til de krøllete båndene. I 49 og 50 er de lokale variablene navn og emne synlige for alle funksjoner. Du kan også deklarere variabler med lokal kvalifisering. Bruken av lokal tillater en variabel å være i bruk for den nåværende blokk så vel som for andre blokker med kode kalt fra denne blokken. Således er en lokal x-deklarert innenfor en blokk synlig for alle etterfølgende blokker som kalles fra denne blokken, og kan refereres til. I følgende prøvekode kan navnetavn til ToTitled-funksjoner navnes, men ikke dataene i iPhone. 1 underbrev :: ToTitled 2 Local (name) shift 3 min (telefon) shift Eksempelkoden for Letter. pm viste hvordan du trekker ut en parameter om gangen. Underrutinen Til () tar to parametere for å sette opp toppteksten for notatet. Bruk av funksjoner i en modul er ikke noe annet enn å bruke og definere Perl-moduler innenfor samme kodefil. Parametre sendes ved referanse med mindre annet er angitt. Flere arrays gikk inn i en subrutine, hvis ikke eksplisitt deferreres ved hjelp av tilbakeslaget, sammenføyes. Inngangsarrangementet i en funksjon er alltid et utvalg av skalarverdier. Passerende verdier ved referanse er den foretrukne måten i Perl å sende en stor mengde data til en subrutine. (Se kapittel 3. quotReferences. quot) En annen prøvemodul: Finans Finansmodulen, vist i Liste 4.3, brukes til å gi enkle beregninger for låneverdier. Bruk av Finance-modulen er rettferdig. Alle funksjonene er skrevet med samme parametre, som vist i formelen for funksjonene. Leter på hvordan den fremtidige verdien av en investering kan beregnes. For eksempel, hvis du investerer noen dollar, pv. i et obligasjon som tilbyr en fast prosentandel, r. brukes ved kjente intervaller for n tidsperioder, hva er verdien av obligasjonen på tidspunktet for utløpet. I dette tilfellet skal du bruke følgende formel: fv pv (1r) n Funksjonen for å få fremtidig verdi erklæres som FutureValue . Se Liste 4.3 for å se hvordan du bruker den. Oppføring 4.3. Bruke finansmodulen. 1 usrbinperl - w 2 3 push (Inc, pwd) 4 bruk Økonomi 5 6 lån 5000,00 7 apr 3,5 apr 8 år 10 år. 9 10 ------------------------------------------------ ---------------- 11 Beregn verdien ved utgangen av lånet dersom renter 12 blir brukt hvert år. 1. 3 ------------------------------------------------- --------------- 14 time år 15 fv1 Finans :: FutureValue (lån, apr, tid) 16 print kvote Hvis renter er påført ved årsskiftet 17, skriv ut kvote Den fremtidige verdien for en lån på kvoter. låne. Quote Quot 18 Skriv ut sitat på en APR av kvot, apr. Quote for quot, time, quote yearquot 19 printf quote er 8.2f nquot. fv1 20 21 ----------------------------------------------- ----------------- 22 Beregn verdien ved utgangen av lånet dersom rente 23 blir brukt hver måned. 24 ------------------------------------------------- --------------- 25 rate apr 12 april 26 år 12 i måneder 27 fv2 Finans :: FutureValue (lån, rente, tid) 28 29 print kvote Hvis renter er påført ved utgangen av hver månedskvote 30 utskriftskvote Den fremtidige verdien for et lån på kvote. låne. kvotekvot 31 utskriftskvittering på et apr i april, april. Quote for quot, time, quote måneder quot 32 printf quote er 8.2f nquot. fv2 33 34 printf kvote Differansen i verdi er 8.2fquot, fv2 - fv1 35 printf kvote Derfor ved å søke renter på kortere tidsperioder: 36 printf-kvoter, får vi faktisk mer penger i interesse. notot Her er prøveinngang og - utgang fra Listing 4.3. testme Hvis renter påføres ved utgangen av året Fremtidig verdi for et lån på 5000 til et APR på 3,5 i 10 år er 7052,99. Dersom renten påløper ved utgangen av hver måned. Fremtidig verdi for et lån på 5000 til et APR på 3,5 for 120 måneder er 7091.72 Verdifallet er 38,73. Ved å søke rent på kortere tidspunkter får vi faktisk mer penger i interesse. Åpenbaringen i utgangen er resultatet av sammenligning av verdier mellom fv1 og fv2. Fv1-verdien beregnes ved anvendelse av renter en gang hvert år over obligasjonens levetid. fv2 er verdien hvis renten blir brukt hver måned til den tilsvarende månedlige renten. Finance. pm-pakken er vist i Liste 4.4 i sine tidlige utviklingsstadier. Oppføring 4.4. The Finance. pm-pakken. 1 pakke Finans 2 3 krever eksportør 4 ISA (Eksportør) 5 6 head1 Finance. pm 7 8 Finansiell kalkulator - Finansielle beregninger gjort enkelt med Perl 9 10 hode 2 11 bruk Finans 12 13 pv 10000,0 14 15 rente 12,5 12 APR per måned. 16 17 time 360 ​​måneder for utlån til moden 18 19 fv FutureValue () 20 21 print fv 22 23 cut 24 25 Eksport qw (FutureValue, 26 PresentValue, 27 FVofAnnuity, 28 AnnuityOfFV, 29 getLastAverage, 30 getMovingAverage, 31 SetInterest) 32 33 34 Globals, hvis noen 35 36 37 lokal standardInterest 5.0 38 39 sub Finans :: SetInterest () 40 min rente skift () 41 standardInterest rate 42 printf kvote defaultInterest ratequot 43 44 45 -------------- -------------------------------------------------- ---- 46 Notater: 47 1. Renten r er gitt i en verdi på 0-100. 48 2. Den n som er gitt i vilkårene er hastigheten ved hvilken interessen 49 påføres. 50 51 ------------------------------------------------ -------------------- 52 53 ---------------------------- ---------------------------------------- 54 Nåverdi av en investering gitt 55 fv - en fremtidig verdi 56 r - rente per periode 57 n - antall periode 58 ---------------------------------- ---------------------------------- 59 sub Finans :: FutureValue () 60 min (pv, r, n ) 61 min fv pv ((1 (r100)) n) 62 retur fv 63 64 65 ------------------------------ -------------------------------------- 66 Nåværende verdi av en investering gitt 67 fv - en fremtid verdi 68 r - rate per periode 69 n - antall periode 70 ------------------------------------ -------------------------------- 71 sub Finans :: PresentValue () 72 min pv 73 min (fv, r, n) 74 pv fv ((1 (r100)) n) 75 retur pv 76 77 78 79 ----------------------------- --------------------------------------- 80 Få den fremtidige verdien av en livrente gitt 81 mp - Månedlig utbetaling av livrente 82 r - rente per periode 83 n - tall o f periode 84 ----------------------------------------------- --------------------- 85 86 sub FVofAnnuity () 87 min fv 88 min oneR 89 min (mp, r, n) 90 91 oneR (1r) n 92 fv mp ((oneR - 1) r) 93 retur fv 94 95 96 --------------------------------- ----------------------------------- 97 Få livrente fra følgende biter av informasjon 98 r - rate per periode 99 n - antall perioder 100 fv - fremtidig verdi 101 ------------------------------------- ------------------------------- 102 103 sub AnnuityOfFV () 104 min mp mp - Månedlig betaling av livrente 105 min oneR 106 min (fv, r, n) 107 108 enR (1 r) n 109 mp fv (r (oneR - 1)) 110 retur mp 111 112 113 ----------------- -------------------------------------------------- - 114 Få gjennomsnittet av de siste quotnototverdiene i en matrise. 115 ------------------------------------------------- ------------------- 116 Det siste antall tall fra elementet i verdier 117 Det totale antall elementer i verdier er i nummer 118 119 sub getLastAverage () 120 min (telle, tall, verdier) 121 min i 122 123 min a 0 124 retur 0 hvis (telle 0) 125 for (i 0 ilt telle i) 126 a verdier nummer - i - 1 127 128 returnere en telle 129 130 131 --- -------------------------------------------------- --------------- 132 Få et glidende gjennomsnitt av verdiene. 133 ------------------------------------------------- ------------------- 134 Vinduestørrelsen er den første parameteren, antall elementer i 135 passerte array er neste. (Dette kan lett beregnes i 136-funksjonen ved hjelp av skalar () - funksjonen, men underrutinen vist her 137 brukes også til å illustrere hvordan man skal gi poeng.) Referansen til 138-gruppen av verdier passeres neste, etterfulgt av en referanse til stedet 139 returneringsverdiene skal lagres. 140 141 sub getMovingAve () 142 min (tall, tall, verdier, movingAve) 143 min i 144 min a 0 145 min v 0 146 147 retur 0 hvis (telle 0) 148 return -1 hvis (telle gt nummer) 149 returnere - 2 hvis (telle lt 2) 150 151 movingAve0 0 152 movingAvenumber - 1 0 153 for (i0 iltcounti) 154 v verdier i 155 av teller 156 movingAvei 0 157 158 for (icount iltnumberi) 159 v verdier 160 av teller 161 v verdier - teller - 1 162 a - v telling 163 movingAvei 164 165 retur 0 166 167 168 1 Se på erklæringen av funksjonen FutureValue med (). De tre dollarskiltene sammen betyr at tre skalare tall blir sendt inn i funksjonen. Denne ekstra scoping er tilstede for å validere typen av parametere som er overført til funksjonen. Hvis du skulle passere en streng i stedet for et tall i funksjonen, vil du få en melding som ligner på denne: For mange argumenter for Finance :: FutureValue på. f4.pl linje 15, nær quottime) qu Utførelse av. f4.pl avbrutt på grunn av kompileringsfeil. Bruken av prototyper når du definerer funksjoner hindrer deg i å sende inn andre verdier enn hva funksjonen forventer. Bruk eller til å passere i en rekke verdier. Hvis du refererer til referanse, bruk eller for å vise en skalarreferanse til henholdsvis en matrise eller en hash. Hvis du ikke bruker backslash, ignoreres alle andre typer i prototypen for argumentliste. Andre typer diskvalider inkluderer en ampersand for referanse til en funksjon, en stjerne for alle typer og en semikolon for å indikere at alle andre parametere er valgfrie. Now, lets look at the lastMovingAverage function declaration, which specifies two integers in the front followed by an array. The way the arguments are used in the function is to assign a value to each of the two scalars, count and number . whereas everything else is sent to the array. Look at the function getMovingAverage() to see how two arrays are passed in order to get the moving average on a list of values. The way to call the getMovingAverage function is shown in Listing 4.5. Listing 4.5. Using the moving average function. 1 usrbinperl - w 2 3 push(Inc, pwd) 4 use Finance 5 6 values ( 12,22,23,24,21,23,24,23,23,21,29,27,26,28 ) 7 mv (0) 8 size scalar(values) 9 print quotn Values to work with nquot 10 print quot Number of values size nquot 11 12 ---------------------------------------------------------------- 13 Calculate the average of the above function 14 ---------------------------------------------------------------- 15 ave Finance::getLastAverage(5,size, values) 16 print quotn Average of last 5 days ave nquot 17 18 Finance::getMovingAve(5,size, values, mv) 19 print quotn Moving Average with 5 days window n nquot Heres the output from Listing 4.5: Values to work with Number of values 14 Average of last 5 days 26.2 The getMovingAverage() function takes two scalars and then two references to arrays as scalars. Within the function, the two scalars to the arrays are dereferenced for use as numeric arrays. The returned set of values is inserted in the area passed in as the second reference. Had the input parameters not been specified with for each referenced array, the movingAve array reference would have been empty and would have caused errors at runtime. In other words, the following declaration is not correct: sub getMovingAve() The resulting spew of error messages from a bad function prototype is as follows: Use of uninitialized value at Finance. pm line 128. Use of uninitialized value at Finance. pm line 128. Use of uninitialized value at Finance. pm line 128. Use of uninitialized value at Finance. pm line 128. Use of uninitialized value at Finance. pm line 128. Use of uninitialized value at Finance. pm line 133. Use of uninitialized value at Finance. pm line 135. Use of uninitialized value at Finance. pm line 133. Use of uninitialized value at Finance. pm line 135. Use of uninitialized value at Finance. pm line 133. Use of uninitialized value at Finance. pm line 135. Use of uninitialized value at Finance. pm line 133. Use of uninitialized value at Finance. pm line 135. Use of uninitialized value at Finance. pm line 133. Use of uninitialized value at Finance. pm line 135. Use of uninitialized value at Finance. pm line 133. Use of uninitialized valu e at Finance. pm line 135. Use of uninitialized value at Finance. pm line 133. Use of uninitialized value at Finance. pm line 135. Use of uninitialized value at Finance. pm line 133. Use of uninitialized value at Finance. pm line 135. Use of uninitialized value at Finance. pm line 133. Use of uninitialized value at Finance. pm line 135. Average of last 5 days 26.2 Moving Average with 5 days window This is obviously not the correct output. Therefore, its critical that you pass by reference when sending more than one array. Global variables for use within the package can also be declared. Look at the following segment of code from the Finance. pm module to see what the default value of the Interest variable would be if nothing was specified in the input. (The current module requires the interest to be passed in, but you can change this.) Heres a little snippet of code that can be added to the end of the program shown in Listing 4.5 to add the ability to set interest rates. 20 local defaultInterest 5.0 21 sub Finance::SetInterest() 22 my rate shift() 23 rate -1 if (rate lt 0) 24 defaultInterest rate 25 printf quotn defaultInterest ratequot 26 The local variable defaultInterest is declared in line 20. The subroutine SetInterest to modify the rate is declared in lines 21 through 26. The rate variable uses the values passed into the subroutine and simply assigns a positive value for it. You can always add more error checking if necessary. To access the defaultInterest variables value, you could define either a subroutine that returns the value or refer to the value directly with a call to the following in your application program: Finance::defaultInterest The variable holding the return value from the module function is declared as my variable . The scope of this variable is within the curly braces of the function only. When the called subroutine returns, the reference to my variable is returned. If the calling program uses this returned reference somewhere, the link counter on the variable is not zero therefore, the storage area containing the returned values is not freed to the memory pool. Thus, the function that declares my pv and then later returns the value of pv returns a reference to the value stored at that location. If the calling routine performs a call like this one: Finance::FVofAnnuity(monthly, rate, time) there is no variable specified here into which Perl stores the returned reference therefore, any returned value (or a list of values) is destroyed. Instead, the call with the returned value assigned to a local variable, such as this one: fv Finance::FVofAnnuity(monthly, rate, time) maintains the variable with the value. Consider the example shown in Listing 4.6, which manipulates values returned by functions. Listing 4.6. Sample usage of the my function. 1 usrbinperl - w 2 3 push(Inc, pwd) 4 use Finance 5 6 monthly 400 7 rate 0.2 i. e. 6 APR 8 time 36 in months 9 10 print quotn ------------------------------------------------quot 11 fv Finance::FVofAnnuity(monthly, rate, time) 12 printf quotn For a monthly 8.2f at a rate of 6.2f for d periodsquot, 13 monthly, rate, time 14 printf quotn you get a future value of 8.2f quot, fv 15 16 fv 1.1 allow 10 gain in the house value. 17 18 mo Finance::AnnuityOfFV(fv, rate, time) 19 20 printf quotn To get 10 percent more at the end, i. e. 8.2fquot, fv 21 printf quotn you need a monthly payment value of 8.2fquot, mo, fv 22 23 print quotn ------------------------------------------------ nquot Here is sample input and output for this function: testme ------------------------------------------------ For a monthly 400.00 at a rate of 0.20 for 36 periods you get a future value of 1415603.75 To get 10 percent more at the end, i. e. 1557164.12 you need a monthly payment value of 440.00 ------------------------------------------------ Modules implement classes in a Perl program that uses the object-oriented features of Perl. Included in object-oriented features is the concept of inheritance . (Youll learn more on the object-oriented features of Perl in Chapter 5. quotObject-Oriented Programming in Perl. quot) Inheritance means the process with which a module inherits the functions from its base classes. A module that is nested within another module inherits its parent modules functions. So inheritance in Perl is accomplished with the :: construct. Heres the basic syntax: SuperClass::NextSubClass. ThisClass. The file for these is stored in. SuperClassNextSubClass133 . Each double colon indicates a lower-level directory in which to look for the module. Each module, in turn, declares itself as a package with statements like the following: package SuperClass::NextSubClass package SuperClass::NextSubClass::EvenLower For example, say that you really want to create a Money class with two subclasses, Stocks and Finance . Heres how to structure the hierarchy, assuming you are in the usrlibperl5 directory: Create a Money directory under the usrlibperl5 directory. Copy the existing Finance. pm file into the Money subdirectory. Create the new Stocks. pm file in the Money subdirectory. Edit the Finance. pm file to use the line package Money::Finance instead of package Finance . Edit scripts to use Money::Finance as the subroutine prefix instead of Finance:: . Create a Money. pm file in the usrlibperl5 directory. The Perl script that gets the moving average for a series of numbers is presented in Listing 4.7. Listing 4.7. Using inheriting modules. 1 usrbinperl - w 2 aa pwd 3 aa . quotMoneyquot 4 push(Inc, aa) 5 use Money::Finance 6 values ( 12,22,23,24,21,23,24,23,23,21,29,27,26,28 ) 7 mv (0) 8 size scalar(values) 9 print quotn Values to work with nquot 10 print quot Number of values size nquot 11 ---------------------------------------------------------------- 12 Calculate the average of the above function 13 ---------------------------------------------------------------- 14 ave Money::Finance::getLastAverage(5,size, values) 15 print quotn Average of last 5 days ave nquot 16 Money::Finance::getMovingAve(5,size, values, mv) 17 foreach i (values) 18 print quotn Moving with 5 days window mvi nquot 19 20 print quotn Moving Average with 5 days window n nquot Lines 2 through 4 add the path to the Money subdirectory. The use statement in line 5 now addresses the Finance. pm file in the. Money subdirectory. The calls to the functions within Finance. pm are now called with the prefix Money::Finance:: instead of Finance:: . Therefore, a new subdirectory is shown via the :: symbol when Perl is searching for modules to load. The Money. pm file is not required. Even so, you should create a template for future use. Actually, the file would be required to put any special requirements for initialization that the entire hierarchy of modules uses. The code for initialization is placed in the BEGIN() function. The sample Money. pm file is shown in Listing 4.8. Listing 4.8. The superclass module for Finance. pm . 1 package Money 2 require Exporter 3 4 BEGIN 5 printf quotn Hello Zipping into existence for younquot 6 7 1 To see the line of output from the printf statement in line 5, you have to insert the following commands at the beginning of your Perl script: use Money use Money::Finance To use the functions in the Stocks. pm module, you use this line: use Money::Stocks The Stocks. pm file appears in the Money subdirectory and is defined in the same format as the Finance. pm file, with the exceptions that use Stocks is used instead of use Finance and the set of functions to export is different. A number of modules are included in the Perl distribution. Check the usrlibperl5lib directory for a complete listing after you install Perl. There are two kinds of modules you should know about and look for in your Perl 5 release, Pragmatic and Standard modules. Pragmatic modules, which are also like pragmas in C compiler directives, tend to affect the compilation of your program. They are similar in operation to the preprocessor elements of a C program. Pragmas are locally scoped so that they can be turned off with the no command. Thus, the command no POSIX turns off the POSIX features in the script. These features can be turned back on with the use statement. Standard modules bundled with the Perl package include several functioning packages of code for you to use. Refer to appendix B, quotPerl Module Archives, quot for a complete list of these standard modules. To find out all the. pm modules installed on your system, issue the following command. (If you get an error, add the usrlibperl5 directory to your path.) find usrlibperl5 - name perl quot. pmquot - print Extension modules are written in C (or a mixture of Perl and C) and are dynamically loaded into Perl if and when you need them. These types of modules for dynamic loading require support in the kernel. Solaris lets you use these modules. For a Linux machine, check the installation pages on how to upgrade to the ELF format binaries for your Linux kernel. The term CPAN (Comprehensive Perl Archive Network) refers to all the hosts containing copies of sets of data, documents, and Perl modules on the Net. To find out about the CPAN site nearest you, search on the keyword CPAN in search engines such as Yahoo. AltaVista, or Magellan. A good place to start is the metronet site . This chapter introduced you to Perl 5 modules and described what they have to offer. A more comprehensive list is found on the Internet via the addresses shown in the Web sites metronet and perl . A Perl package is a set of Perl code that looks like a library file. A Perl module is a package that is defined in a library file of the same name. A module is designed to be reusable. You can do some type checking with Perl function prototypes to see whether parameters are being passed correctly. A module has to export its functions with the EXPORT array and therefore requires the Exporter module. Modules are searched for in the directories listed in the Inc array. Obviously, there is a lot more to writing modules for Perl than what is shown in this chapter. The simple examples in this chapter show you how to get started with Perl modules. In the rest of the book I cover the modules and their features, so hang in there. I cover Perl objects, classes, and related concepts in Chapter 5.This is an Evergreen Joe Celko question. Jeg ignorerer hvilken DBMS-plattform som brukes. Men i hvert fall kunne Joe svare på mer enn 10 år siden med standard SQL. Joe Celko SQL Puslespill og svar citation: Det siste oppdateringsforsøket antyder at vi kunne bruke predikatet til å konstruere en spørring som ville gi oss et bevegelige gjennomsnitt: Er den ekstra kolonnen eller spørringsmetoden bedre Spørringen er teknisk bedre fordi UPDATE-tilnærmingen vil deformalisere databasen. Men hvis de historiske dataene som blir registrert ikke kommer til å endres og beregning er det bevegelige gjennomsnittet dyrt, kan du vurdere å bruke kolonne tilnærming. SQL Puslespørsmål: for all del uniform. Du kaster bare til riktig vektbøtte, avhengig av avstanden fra det nåværende tidspunktet. For eksempel kvittve vekt1 for datapoints innen 24 timer fra nåværende datapoint weight0.5 for datapoints innen 48hrsquot. Den saken er det viktig hvor mye datapoints som følger (som 6:12 og 11:48) er fjernt fra hverandre. En brukstilstand jeg kan tenke på, ville være et forsøk på å jevne histogrammet hvor datapoints ikke er tette nok ndash msciwoj 27. mai kl 15 22:22 Jeg er ikke sikker på at ditt forventede resultat (utgang) viser klassisk enkelt bevegelige (rullende) gjennomsnitt i 3 dager. Fordi, for eksempel, gir den første trippen av tall per definisjon: men du forventer 4,360 og det er forvirrende. Likevel foreslår jeg følgende løsning, som bruker vindufunksjon AVG. Denne tilnærmingen er mye mer effektiv (klar og mindre ressursintensiv) enn SELF-JOIN introdusert i andre svar (og jeg er overrasket over at ingen har gitt en bedre løsning). Du ser at AVG er innpakket med et tilfelle når rownum gt p. days deretter tvinge NULL s i første rader, hvor 3 dagers Moving Average er meningsløs. besvart 23 februar 16 kl 13:12 Vi kan bruke Joe Celkos skitne venstre ytre tilkoblingsmetode (som nevnt ovenfor av Diego Scaravaggi) for å svare på spørsmålet som det ble spurt. Generates the requested output: answered Jan 9 16 at 0:33 Your Answer 2017 Stack Exchange, Inc