|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> perl Programmering >> Content

    Hur man använder etiketter i Perl

    Perl är ett kraftfullt programmeringsspråk som gör att programmerare att ta en hög grad av kontroll över programmet . Etiketter används för att hjälpa Perl programmerare organisera programmet . En etikett kan appliceras på en slinga eller en omkopplare. Loopar och switchar kapslat i märkta slingan kan sedan ringa tillbaka till den bredare struktur utan att lägga en uppsägning undantag till varje switch och slinga längs vägen . Således kan programmeraren hoppa runt strukturen av koden snabbt och enkelt. Instruktioner
    1

    Skapa två matriser som kräver specialiserad sortering . Dessa matriser kommer att tas för ett exempel :

    @ djur = ( ' Black Cats "," svarta hundar "," Mejeri skrämmer "," Wild Horses ','' Monkeys ');
    < p > @ lucky = ( ' Under Trappan , " Black Cats " , " Spilld Salt ' , '13 ');
    2

    Sortera genom namnen med nästlade loopar som följer:
    < p > @ djur = ( ' Black Cats "," svarta hundar "," Dairy Cows ' , ' Wild Horses ','' Monkeys ' ),

    @ lucky = ( "under Ladder " , " Black Cats " , " Spilld Salt ' , '13 ');

    foreach $ varelse ( @ djur ) {

    print " $ varelse \\ n ";

    if ( $ varelse = ~ /Black /) {

    foreach $ charm ( @ lucky ) {

    print " \\ t $ charm \\ n";

    sista om $ charm eq $ lucky ;

    }

    }

    }

    Här vi söka igenom djuren arrayen för dåliga luck charm . Slingan charm loopen stängs när " Black Cats " påträffas i båda slingorna , men den övergripande djuret slingan fortsätter
    3

    Infoga en etikett för att reda upp förvirringen : .

    @ djur = ( ' Black Cats "," svarta hundar "," Dairy Cows ' , ' Wild Horses ','' Monkeys ' ),

    @ lucky = ( ' Under Ladder "," Black Cats ' , ' spillda Salt ' , '13 ');

    Label : foreach $ varelse ( @ djur ) {

    print " $ varelse \\ n";

    om ( $ varelse = ~ /Black /) {

    foreach $ charm ( @ lucky ) {

    print " \\ t $ charm \\ n";

    sista etiketten om $ charm eq $ lucky ,

    }

    }

    }

    Varje namn kan användas i stället för " Label ". Det måste följt av ett kolon när den först har deklarerats. Det kan då kallas någonstans i slingan eller stänga kontroller . I senare delar av programmet , kan det kallas med "Start Label . " Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur Ring plink Från ett Perl Script
    ·Hur konverterar man från Perl till Python & AppEngine
    ·Hur man kör Perl Från PowerShell
    ·Lägga till moduler till Perl
    ·Hur kontrollera syntaxen i ett Perl Script
    ·Hur man skriver Perl Script
    ·Hur man skapar en while i Perl
    ·Hur Extrahera poster från Multiple - Fasta Perl filer
    ·Hur man tar bort numeriska strängar i Perl
    ·Hur hittar Mode i en matris med tal i Perl
    Utvalda artiklarna
    ·Så här ställer du in Classpath i Eclipse
    ·Hur du skapar din egen Carousel i PHP
    ·Hur vet jag om en Mole bör tas bort
    ·Hur skapa körbara filer i Java
    ·Android Java-kod Verktyg
    ·Hur tomt med MATLAB
    ·Hur man stänger en PHP felrapportering
    ·Hur man använder Microsoft Visual Studio C kompilator …
    ·Malloc funktion
    ·Handledning för att skapa en tabell med WAMP 2.0 MySQL…
    Copyright © Dator Kunskap http://www.dator.xyz