Öppna MAILL, "| mail -s \" Subject \ "$ mails";
# Skalaren för $ mails listar alla adresser åtskilda av ett mellanslag
skriv ut MAILL "$ as4"; # det här är brevets kropp
stäng MAILL; Med programmet Sendmail kan du skicka e -post enligt följande: open (MAIL, "| / usr / lib / sendmail -f $ from_addr $ mails");
print MAIL "Ämne: ämne_text \ n";
skriv ut MAIL "innehållstyp: text / html; teckenuppsättning = koi8-r \ n \ n";
print MAIL "Till: $ användare<$to_addr>\ n "; # Vilken adress du ska svara på.
skriv ut POST "$ as4";
stäng MAIL;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % brev? Det enklaste sättet är att använda postbiblioteket. #! / usr / local / bin / perl
använd Mail :: POP3Client;
$ pop = new Mail :: POP3Client ("inloggning", "lösenord", "mail.server.ru");
för ($ i = 1; $ i<= $pop->Räkna; $ i ++) (
$ bbb = $ pop-> Body ($ i);
$ aaa = $ pop-> Huvud ($ i);
foreach ($ pop-> Head ($ i)) ( / ^ (Från | Ämne): / och skriv ut $ _, "\ n";)
# $ pop-> Radera ($ i); # så här raderas ett läst brev
skriva ut "$ aaa \ n";
skriva ut "$ bbb \ n";
} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Kulchenko ( [e -postskyddad]), uppdaterad 04/04/2000 Detta är en beskrivning av LWP -modulen (ibland kallad LibWWW), som innehåller många mycket användbara funktioner. ===================================================== =================== 1.1. Hur får man textfil (http, ftp)? 1.2. Hur får jag filen jpeg / gif / bmp och returnerar den? 1.3. Hur får jag åtkomst till en lösenordsskyddad fil? 1.4. Hur ställer jag in REFERER och andra HTTP -huvudparametrar? 1.5. Hur får jag angiven del av filen (första MAXSIZE byte)? 1.6. Hur får jag och ställer in cookies? 1.7. Hur anger jag proxyservrar? 1.8. Hur kontrollerar jag om omdirigering? 1.9. Hur skapar jag parametrar för POST -metoden? ===================================================== =================== 1.1. Hur får man textfil (http, ftp)? Hur man får en fil via http eller ftp använd LWP :: UserAgent;

Min $ URL = " http://www.yahoo.com/";
min $ res = LWP :: UserAgent-> new-> request (ny HTTP :: Request GET => $ URL);
skrivhuvud, $ res-> är_success? $ res-> innehåll: $ res-> status_line; ===================================================== =================== 1.2. Hur får jag filen jpeg / gif / bmp och returnerar den? Hur man får en bild. använd LWP :: UserAgent;
använd CGI qw (header -no_debug);
$ URL = " http://a100.g.akamaitech.net/7/100/70/0001/www.fool.com/art/new/butts/go99 .
gif ";
min $ res = LWP :: UserAgent-> new-> request (ny HTTP :: Request GET => $ URL);
binmode (STDOUT);
skriva ut $ res-> är_success? (header ("image / gif"), $ res-> content)
: (header ("text / html"), $ res-> status_line); ===================================================== =================== 1.3. Hur får jag åtkomst till en lösenordsskyddad fil? Hur man anger ett lösenord. BÖRJA (
paket RequestAgent;
använd LWP :: UserAgent;
@ISA = qw (LWP :: UserAgent);

Sub new (LWP :: UserAgent :: new (@_);)
sub get_basic_credentials (returnera "användare", "lösenord")
}
använd CGI qw (header -no_debug);

Min $ res = RequestAgent-> new-> begäran (ny HTTP :: Request GET => $ URL);
skrivhuvud, $ res-> är_success? $ res-> innehåll: $ res-> status_line;
===================================================== =================== 1.4. Hur ställer jag in REFERER och andra HTTP -huvudparametrar? Hur man ställer in sessionsmiljövariabler. använd LWP :: UserAgent;
använd HTTP :: Headers;
använd CGI qw (header -no_debug);

Min $ URL = " http: //localhost/cgi-bin/hello.cgi ";
min $ res = LWP :: UserAgent-> new-> request (
ny HTTP :: Begär (
GET => $ URL,
ny HTTP :: Headers referer => " http://www.yahoo.com "),
);
skrivhuvud, $ res-> är_success? $ res-> innehåll: $ res-> status_line;
===================================================== =================== 1.5. Hur får jag angiven del av filen (första MAXSIZE byte)? Hur man får en del av en fil. använd LWP :: UserAgent;
använd CGI qw (header -no_debug);

Min $ URL = " http://www.yahoo.com/ ";
min $ MAXSIZE = 1024;

Skrivhuvud;
min $ res = LWP :: UserAgent-> new-> request (
ny HTTP :: Begäran (GET => $ URL), \ & återuppringning, $ MAXSIZE);

Subåteruppringning (min ($ data, $ svar, $ protokoll) = @_; skriv ut $ data; dö)
===================================================== =================== 1.6. Hur får jag och ställer in cookies? Hur man installerar och läser nyckeln. använd LWP :: UserAgent;
använd CGI qw (header -no_debug);
använd HTTP :: Cookies;

Min $ URL = "http://mail.yahoo.com/";

Min $ ua = ny LWP :: UserAgent;
min $ res = $ ua-> begäran (ny HTTP :: Begäran GET => $ URL);
min $ cookie_jar = ny HTTP :: Cookies;
$ cookie_jar-> extract_cookies ($ res);

Skrivhuvud;
if ($ res-> is_success) (
min $ req = ny HTTP :: Begäran GET => $ URL;
$ cookie_jar-> add_cookie_header ($ req);
$ res = $ ua-> begäran ($ req);
skriva ut $ res-> är_success? $ res-> as_string: $ res-> status_line;
) annat (
skriv ut $ res-> status_line;
}
===================================================== =================== 1.7. Hur anger man proxyservrar? Hur man arbetar genom en proxy. använd LWP :: UserAgent;
använd CGI qw (header -no_debug);

Min $ URL = " http://www.yahoo.com/ ";
min $ ua = ny LWP :: UserAgent;

$ ua-> proxy (["http", "ftp"], " http://proxy.sn.no:8001/ ");
$ ua-> proxy ("gopher", " http://proxy.sn.no:8001/ ");

Min $ res = $ ua-> förfrågan (ny HTTP :: Begäran GET => $ URL);
skrivhuvud, $ res-> är_success? $ res-> innehåll: $ res-> status_line;
===================================================== =================== 1.8. Hur kontrollerar jag om omdirigering? Hur man omdirigerar använd LWP :: UserAgent;
använd CGI qw (header -no_debug);

Min $ URL = " http://www.yahoo.com/ ";
min $ res = LWP :: UserAgent-> new-> request (ny HTTP :: Request GET => $ URL);

Skrivhuvud;
skriv ut $ res-> request-> url om $ res-> föregående-> är_redirect;
===================================================== =================== 1.9. Hur skapar jag parametrar för POST -metoden? Hur man skickar en begäran med POST -metoden utan att använda ett formulär. använd URI :: URL;
använd HTTP :: Request;
använd LWP :: UserAgent;
använd CGI qw (header -no_debug);

Min $ URL = " http://yahoo.com/?login=mylogin&password=mypassword ";
min $ uri = ny URI $ URL;
min $ metod = "POST";

Min $ begäran;
if (uc ($ metod) eq "POST") (
min $ fråga = $ uri-> fråga;
(min $ url = $ uri-> as_string) = ~ s /\? $ fråga $ //;
$ request = new HTTP :: Request ($ method, $ url);
$ request-> header ("Content-Type" => "application / x-www-form-urlencoded");
$ request-> content ($ query);
) annat (
$ request = new HTTP :: Request ($ method, $ uri-> as_string);
};

# lägg till värdfält som krävs i HTTP / 1.1
$ request-> header (Host => $ uri-> host_port) if $ uri-> schema ne "fil";

Min $ res = LWP :: UserAgent-> new-> request ($ request);

Skrivhuvud, $ res-> är_success? $ res-> innehåll: $ res-> status_line;
====================================================================

Allt det följande gör inte på något sätt anspråk på att vara fullständigt och pålitligt.

Jag vill på förhand varna dig för att den här artikeln inte kommer att göra dig till en super PERL -programmerare, men det kommer att ge dig några nödvändiga initial information som hjälper dig i den vidare studien av detta intressanta programmeringsspråk.

Jag bestämde mig för att skriva den här artikeln efter att jag fått reda på hur svårt det är att "skära" i allt, även om du har någon PERL -manual till hands. Överallt, redan i början, börjar de hänvisa till några mystiska termer och kommandon, och allt du behöver göra är att blinka förvånat, eller (om du fortfarande förstår något) få dessa program att fungera (inte "som det ska" ", men i allmänhet!). Den här artikeln skulle kunna kallas "PERL for Dummies" om den täckte allt material, men här satte jag mig som mål att ge dig bara de nödvändiga inledande begreppen, och så att säga "förbered dig på ytterligare strider" :). Även om det är fullt möjligt att i framtiden, "på arbetarnas begäran", kommer denna lilla artikel att växa till något mer.

Så ... låt oss komma igång!

Låt mig först berätta att PERL måste installeras på din dator. Några av mina vänner hoppade helt över den här till synes enkla operationen, och efter att ha skrivit ett enkelt program försökte de köra det länge ...;) De flesta tillgängligt paket PERL (enligt min mening) är ActivePerl, även om det här paketet riktar sig till Windows -användare, och om du har UNIX kan du ladda ner något inbyggt från www.perl.com. Hur som helst kommer du att få och installera perl för dig själv (om du inte redan har gjort det). Så: du kommer att ha en ny pappa "perl", men det betyder inte att alla program behöver placeras där :) Perl, som sitter där, utför bara alla dina geniala skapelser med tillägget * .pl och var de är själva - en användare vet :) (sant för Windows -användare med ActivePerl -paketet installerat, eftersom det associerar * .pl -filer).

Eftersom Eftersom denna artikel främst är avsedd för Windows -användare anser jag mig vara skyldig att berätta att för program som körs på detta operativsystem är det inte alls nödvändigt att starta varje program från raden:

#! / usr / bin / perl

Saken är att det här språket skapades på grundval av UNIX OS, och de försöker överföra denna linje till oss som ett "arv" från deras operativsystem. Du bör dock komma ihåg att UNIX också kan installeras på servern (om du bestämmer dig för att släppa dina program där).

Nu lite om skrivmetoden.
Jag råder dig att börja använda en enkel anteckningsblock för att komma ihåg alla kommandon och programmeringssyntax. I framtiden kan du använda någon form av redaktör, men det här är inte längre sport :), och ännu mer oönskat för dem som bara bekantar sig med detta programmeringsspråk och programmering i allmänhet.

Nästan alla självstudier på detta språk börjar med det enklaste programmet, som ser ut ungefär så här:

print ("hej, VÄRLD! \ n");

Några av er har förmodligen redan kopierat det givna programmet till din fil och märkt att det öppnas snabbt och stängs lika snabbt. Detta beror på att programmet är ett program, och efter att det har körts stängs det omedelbart, så lägg till en rad till i programmet med följande innehåll:

Som ett resultat kommer allt detta att ta följande form:

print ("hej, VÄRLD! \ n");
<>;

Det ser inte så lätt ut för de oinvigde ... Till och med lite läskigt ... Men det här är bara för de oinvigde, faktiskt är allt ingenstans lättare! :) kan inte tro det? Jag ska bevisa det nu.
Först måste du veta att utskrift är ett kommando som skriver ut information till standardutmatningen STDOUT (STanDart OUT eller, med andra ord, utmatning till bildskärmen).
För det andra är obegripligheten i form av \ n en ny rad, men inte program, som vissa kan vara rädda för, men information på skärmen, d.v.s. om du fortsatte texten med citattecken, skulle det efter det tecknet skrivas ut på en ny rad. Och om du behöver använda ett snedstreck (skal :) i själva texten måste du lägga ett skal till framför det. Till exempel:

skriv ut "\ a"; # Kommandot efter vilket Perl # skriver ut en signal till SPICER -utskrift "\\ a"; #Perl skriver bara ut \ a

Då vill jag glädja dig: nafig -parenteser behövs inte :) Användningen av dem beror helt på ditt humör, även om manualerna säger att detta förmodligen hjälper till att markera texten i programmet. I allmänhet - som du gillar det mer ...
Som du säkert redan gissat - citat behövs för att bifoga texten i dem, så det finns två obegripliga punkter kvar. Men innan jag tänker på dem anser jag att det är nödvändigt att förklara för dig vilken information som finns i Perl.
Den grundläggande informationsenheten i Perl är en skalär, d.v.s. ett separat värde lagrat i en separat variabel.

$ a = "hej, värld!"; # Tilldela variabeln $ a lite text
$ b = 777; # Tilldela ett nummer till $ b

Dessa variabler lagrar strängar, siffror och referenser. Det är nödvändigt att förstå skillnaden mellan talen som sådana och siffrorna i strängen.

$ abc = "123"; # Antal i rad
$ 123 = 123; # Själva numret

Om du behöver ett tal för beräkningar, lägg bara inte dubbla citattecken.

Semikolonet i slutet av varje rad är faktiskt ... slutet på raden, från vilket det följer att du kan skriva hela programmet på en rad, men vi är ledsna för raderna :) Det finns ett undantag från ovanstående : # -tecknet säger om att allt som står i raden efter det är en kommentar, och inte längre gäller programmet.
Rhombus tecken<>- detta är standard eller, på vanligt språk - standardinmatning från bildskärmen (jag förklarar: en begäran visas på monitorn, och du går naturligtvis in via tangentbordet. Tryck sedan på enter och det angivna värdet finns redan i Perl -variabeln, om det har ställts in). Hela tricket med att lägga till denna diamant i vårt fall är att den kommer att be dig om denna ingång tills du trycker på "enter" -knappen, och eftersom programmet inte anger vad du ska göra med denna ingång, kommer perl helt enkelt att glömma det och kommer att betrakta vårt program slutfört. Och som ett resultat av genomförandet av detta program kommer vi att se texten Hej, värld! ...

Låt oss nu komplicera vårt program lite:

print "ange ditt namn:";
$ namn =<>;
print "hej $ namn!";
<>;

Du bör förstå att program körs rad för rad, dvs. först den första raden, därefter den andra osv.

Så på den första raden visar vi en uppmaning att ange ett användarnamn. På den andra raden läser vi in ​​den i $ name -variabeln. $ -namnet är som nämnts en Perl -skalärvariabel som börjar med ett dollarstecken. Ser jag framåt kommer jag att berätta att förutom variabler som börjar med en dollar finns det också matriser (@array), hash (% hash) och några fler typer, som är för tidiga att prata om. Det finns jämlikhet mellan variabeln och diamanten, vilket innebär att vi tilldelar variabeln resultatet av frågan. På den tredje raden skriver vi ut ordet hej, och efter det skriver vi ut det som lagrades i variabeln $ name. I vårt fall är detta namnet vi bad om.

Låt oss göra en annan distraktion, där jag kommer att berätta vad du kan göra med variabler ... Du kan göra ALLT med dem! Och detta är inte en överdrift. Till exempel är detta möjligt:

$ a = 3;
$ b = 4;
$ c = $ a + $ b; # Lägg till två variabler och
# tilldela dem till tredje
skriva ut $ c; # Skriv ut det resulterande numret
skriva ut $ a + $ b; # samma, bara utan
# åberopar den tredje variabeln

Jag hoppas att allt är klart med detta ... Under tiden kommer det till några, vi kommer att skriva ett program som kör DOS dir -kommandon. För dem som inte vet - dir är ett kommando som visar innehållet i katalogen där du befinner dig.

$ dos = `dir`;
skriva ut $ dos;
<>;

Detta program läser in i $ dos -variabeln resultatet av dir -kommandot, som är inneslutet i bakre citattecken (om det vore enkla citat, skulle det inte vara ett kommando, utan bara ett ord) och visar sedan samma resultat på monitorn.

Låt oss nu återvända till våra ramar, eller snarare bara till ramarna hittills :) Vi lärde oss att visa texten vi behöver på skärmen, ta emot information från användaren och lärde oss också att DOS -kommandon i back citat kommer att köras som DOS -kommandon :) Det är dags att skriva ett program som inte ber om mer än samma kommandon:

print "ange kommando:";
chmod ($ com =<>);
skriv ut `$ com`;
<>;

Av säkerhetsskäl avråder jag starkt från att ange FORMAT -kommandot, gissa varför :) chmod -kommandon(). Detta kommando tar bort nyradstecknet \ n från den information som vi får i begäran, som finns där som standard. Det som står på den andra raden är en stenografi -notation för två rader:

Vi gissar bara några symboler med detta, men det är fortfarande trevligt :)

På detta tror jag att du har klarat de första stegen och är redo att fortsätta den taggiga vägen att lära sig Perl.

Det händer så att jag känner minst två personer som skulle vilja lära sig Perl. Speciellt för dem bestämde jag mig för att skriva detta inlägg.

• Del 1: Typer av variabler (du läser den här delen)

I den hittar du exempel på enkla program från serien "skriv ut siffror från 1 till 5" och liknande. Jag har alltid tyckt om att lära av exempel - det är mer intressant och snabbare än från böcker eller seminarier. Du kan också titta på inläggen i den här bloggen - chansen är stor att du hittar fler exempel i dem.

Jag antar att på skolan / institutet har du studerat Pascal / Delphi, C eller åtminstone Basic, och du behöver inte förklara vad en funktion och loopar är. Om så inte är fallet är det okej, bara för att ta reda på allt måste du lägga extra tid på att läsa Wikipedia. Om du inte vet hur du kör ett bash -skript, eller varför, på första raden i manuset, skriver du något liknande #! / bin / sh, du måste googla lite för att ta reda på det.

Speciellt för dem som är intresserade av frågorna, "är det sant att Perl är väldigt svårt", "vilka böcker om Perl kan du ge råd" och till och med "eh ... och vad skriver de mer i det?", Skrev jag en mini-FAQ om Perl som du kan läsa på HabraHabr. Och för dem som utan kraft många bokstäver här kommer jag att ge en kort sammanfattning av det:

• Perl - modernt språk programmering där de skriver och kommer att skriva under mycket lång tid.
• Perl, liksom alla andra programmeringsspråk, har sina fördelar, nackdelar och användningsområden. Existerar riktigt stor en klass problem som Perl löser för 5+.
• Perl -syntax är inte mer komplex än C ++ eller Java -syntax. Du kan bli övertygad om detta genom att läsa detta inlägg till slutet.
• Det finns bra och billiga Perl -handledning där ute. Även på nätet kan du enkelt hitta en gemenskap av perl-programmerare som talar ditt modersmål.
• Perl fungerar bra både under operativsystem UNIX -familjen och under de onda fönstren.

Tillägg: Jag rekommenderar också att du kolla in Perl vs Python vs Ruby vs PHP och programmeringspräster. Den första berättar om olika prestanda skriptspråk, det andra handlar om skillnaden mellan PHP och andra språk. Python -fans uppmuntras att läsa inlägget Python Scripting Performance Test. Jag hoppas att dessa material hjälper dig att hitta svaret på frågan "vad är bra med Perl".

Hej% användarnamn%!

Så låt oss redan skriva vårt första Perl -manus!

#! / usr / bin / perl

$ namn = skift ();
print ("Hej, $ namn! \ n ") ;

Kör skriptet:

$ chmod u + x 1 .pl
$ ./ 1 .pl afiskon
Hej, afiskon!

Allt är väldigt enkelt här:

• Namnen på skalvariabler (det vill säga inte matriser och inte hascher, vad är de - se nedan) börjar med ett dollarstecken.
• Skiftfunktionen returnerar nästa argument till skriptet. Med andra ord returnerar det första samtalet för att skifta () det första argumentet, det andra samtalet returnerar det andra och så vidare.
• Funktionen print () skriver ut strängen som skickas som ett argument.
• Du kan ersätta variabelvärden i strängen (se rad 4). Mer om strängar - se nedan.

Om det ännu inte är mycket klart - det är okej. Kanske kommer lite teori att ge lite mer klarhet.

Variabla typer

Det finns tre huvudtyper av variabler i Perl: skalar(nummer och strängar), matriser- liknande dem som används i Pascal eller C (ibland kallas även matriser vektorer), och hascher(associativa matriser).

Skalarer vi har redan använt i föregående exempel. Här är några fler exempel på hur man definierar skalarer.

#! / usr / bin / perl

$ a = 123;
$ b = - 7,496;
$ c = 0xABC; # är 2748, ja, det är en kommentar :)
$ d = ($ a + $ b) / $ c;
$ d * = $ a; # samma som $ d = $ d * $ a;

$ str1 = "hej";
$ str2 = "$ str1, värld"; # $ str2 innehåller "hej, värld"
$ str3 = $ a. " \ n "... $ str2;
$ str4 = "$ str1"; # $ str4 innehåller "$ str1", inte "hej"

Här sätter vi positiva och negativa, hela och bråktal, ställ in siffran i hexadecimal kodning, lägg till, multiplicera och dela - allt är som i C eller Java. Förutom de listade verksamheterna stöder Perl också exponentieringsoperationen:

$ a = 2 ** 8; # resultat: 256

Med strängar är allt ungefär detsamma som i vissa PHP. Perioden betyder drift av sammanfogning (det vill säga "sammanfogning" av strängar), om strängen innehåller variabelnamn ersätts värden i stället med ett snedstreck kan du infoga nya rader (\ n), flikar (\ t), citattecken (\ "), bakåtstrecket (\\) i sig är ett dollarstecken utan att någon variabel (\ $) måste bytas ut. Om en sträng är i enstaka citat behandlas tecknen i den" som den är " , utan variabel substitution, etc.

Precis som PHP tolkar Perl skalarer som tal eller som strängar, beroende på operation. Det är enkelt:

$ int1 = "11" + 22;
# ^ strängen "11" konverteras till ett tal,
# följt av tillägg, resultat: 33.
$ str1 = "11". 22;
# ^ talet 22 konverteras till en sträng,
# varefter sammankopplingen utförs är resultatet "1122".

Reglerna för att konvertera från sträng till tal och vice versa är desamma som i PHP:

$ str1 = 0. "abc";
# ^ resultatet är "abc", nummer noll konverteras till tom sträng
$ int1 = "aaa" + 1;
# ^ resultat - 1, raden "aaa" har inga siffror
$ int2 = "12aaa" + 1;
# ^ resultat - 13, endast de första siffrorna i strängen beaktas

Förresten, det finns speciella operatörer för att deklarera långa strängar - q och qq:

# liknande enkla citat
$ text = q (
Har du $ 15?
} ;
# liknar dubbla citat
$ meddelande = qq (
Hej, $ användarnamn!
Hur mår du?
} ;

Arbetar med matriser sker enligt följande:

#! / usr / bin / perl

$ scalar = "bebebebe";
($ a, $ b) = (1, 2); # samma som $ a = 1; $ b = 2;
@arr = ("aaa", 123, $ scalar, $ a + $ b);
skriv ut $ arr [1]. " \ n ";
push @arr, $ a;
print pop (@arr). " \ n ";

Här skapar vi en @arr -array med 4 element (rad 5). Sedan visar vi det andra elementet (rad 6). Numreringen av elementen börjar från noll, så index 1 används för att visa det andra elementet. Sedan sätter vi värdet på variabeln $ a ( push -funktion, rad 7) och hämta och visa den omedelbart (funktionspop, rad 8).

Var uppmärksam, namnen på matriserna börjar med "hund", inte dollarn (det är inte svårt att komma ihåg - motsvarande symboler liknar de första bokstäverna i de engelska typnamnen: $ - scalar, @ - array). Vid åtkomst till det andra elementet i arrayen (rad 6) användes dollarstecknet eftersom elementet i arrayen är en skalär. Detta orsakar mycket förvirring först, men i allmänhet är allt logiskt.

Även i detta skript kallar vi utskrifts- och push -funktionerna utan parenteser. I Perl, när du anropar en funktion, där den inte är tvetydig, kan parenteserna utelämnas.

För att deklarera en matris vars element är strängar utan mellanslag finns det en speciell operator - qw:

@arr = qw / aaa bbb ccc /;
# liknande ("aaa", "bbb", "ccc"), men kortare

Hashesär som matriser, men elementen i haschen är inte ordnade. I det här fallet kan strängar användas som nyckeln genom vilken elementet nås.

#! / usr / bin / perl

% hash = ( # när du deklarerar hash och matriser kan du
"x" => 12, # använd radbrytningar
y => 53, # om det inte finns några specialtecken i nyckeln behövs inga citattecken
"z" => - 10,5, # komma i slutet kan lämnas
) ;

$ hash ("x") ++; # x -koordinaten är nu 13
$ hash (y) -; # y-koordinat är nu 52

# visningskoordinater
skriva ut "x = $ hash (x), y = $ hash (y), z = $ hash (z) \ n";

Hashnamn börjar med ett procenttecken och används för att hänvisa till ett objekt. tandställning(inte kvadratisk, som är fallet med matriser). Om du känner till nyckelns namn i förväg kan du ange det utan citattecken (rad 10).

Förresten, variablerna $ test, @test och% test är helt oberoende variabler av olika typer.

Vid den här tiden ville jag gå till villkorade operatörer och för / stund slingor, men jag insåg att det redan var lite för mycket för ett inlägg med text. Samtidigt förblev många frågor bakom kulisserna:

• Villkorliga operatörer;
• För och medan slingor;
• Funktionsdeklaration;
• Arbeta med strömmar och filer;
• Strikt syntax;
• Använda färdiga moduler och klasser.

Jag kommer att skriva om detta i en av följande anteckningar. Jag skulle vilja få minst ett par kommentarer till det här inlägget - intressant / ointressant, begripligt / obegripligt osv. Förresten, om du har några Perl -relaterade frågor (inte nödvändigtvis med detta inlägg) - ställ dem gärna i kommentarerna!

Förhoppningsvis hjälper denna serie inlägg om Perl -programmering dig att skriva dina första enkla manus. Med tiden kommer skript att bli mer komplexa, de kommer att använda ny teknik (OOP, reguljära uttryck) och efter ett tag kommer du att upptäcka att du vet tillräckligt om Perl för att dela din erfarenhet med andra.