Perl-programmeerhandleiding

  • Matthew Stevenson
  • 0
  • 1370
  • 326
>

Deze Perl-programmeerhandleiding is een geweldige scriptgids om u te helpen het Perl-script volledig te begrijpen. Vind Perl-tutorials en programmeervoorbeelden om uw kennis van Perl Scripting onder de knie te krijgen.


De Perl-interpreter gebruiken

Vind Perl Interpreter

welke perl 

Impliciete uitvoering

NOTITIE:Elk script begint met keet:"#!" die niet als commentaar wordt gelezen. De eerste regel is ook een plaats waar u uw tolk plaatst, in dit geval perl.

#! / usr / bin / perl print "Perl Programming \ n"; 

Maak Perl-script uitvoerbaar:

chmod + x perl_script.pl 

Expliciete uitvoering

print "Perl Programming \ n"; 

Maak Perl-script uitvoerbaar:

chmod + x perl_script.pl 

Eenvoudig Perl-script

#! / usr / bin / perl # print "Perl-programmeerhandleiding \ n"; 

Huidig ​​pad naar Perl-modules

Maak een lijst van alle beschikbare huidige paden naar perl-modules:

perl -e 'print "@INC". "\ n"; ' 

Variabelen

$ - Scalaire variabele
% - Hash-variabele
@ - Array
& - Subroutines

Perl-standaardvariabele $ _ gebruiken

#! / usr / bin / perl
$ _ = "Standaardvariabele voor Perl-programmering. \ N";
afdrukken;



Gedefinieerde functie

#! / usr / bin / perl
# declareer perl scalair, maar definieer geen waarde
$ perl_scalar;
# we kunnen de voorwaardelijke operator '?:' gebruiken om de perl-gedefinieerde functie te testen
$ variable = gedefinieerd ($ perl_scalar)? "Variabele $ perl_scalar is gedefinieerd!"
: "Variabele $ perl_scalar is NIET gedefinieerd!";
print $ variabele. "\ n";
# declareer perl scalair met waarde
$ perl_scalar = "perl";
$ variable = gedefinieerd ($ perl_scalar)? "Variabele $ perl_scalar is gedefinieerd!"
: "Variabele $ perl_scalar is NIET gedefinieerd!";
print $ variabele. "\ n";

Scalaire variabele

#! / usr / bin / perl
#Scalars bevatten slechts één gegevenstype: string, nummer of perl-referentie
#Scalars-definitie in Perl
$ scalair_getal = -5;
$ scalar_string1 = "In PERL wordt naar Scalairen altijd verwezen met \ x24 voor elke variabelenaam.";
$ scalar_string2 = "5 items";
#Undescore kan worden gebruikt voor grote getallen
$ scalar_milion = 1_000_000;
# Scalaire waarden afdrukken
print $ scalair_getal. "\ n";
print $ scalar_string1. "\ n";
print $ scalar_string2. "\ n";
print $ scalar_milion. "\ n";
#perl scalaire toevoeging
print $ scalair_getal + $ scalair_miljoen. "\ n";

Strings met enkele aanhalingstekens

#! / usr / bin / perl
# Scalaire tekenreeksen met enkele aanhalingstekens
$ scalar_string1 = 'perl';
print "String 1:". $ scalar_string1. "\ n";
$ scalar_string2 = '#! / usr / bin / perl';
print "String 2:". $ scalar_string2. "\ n";
$ scalar_string3 = 'Perl
Programmeren
Zelfstudie ';
print "String 3:". $ scalar_string3. "\ n";
$ scalar_string4 = 'Perl \ n';
print "String 4:". $ scalar_string4. "\ n";
$ scalar_string5 = '\' \ '\';
print "String 5:". $ scalar_string5. "\ n";
$ scalar_string6 = ";
print "String 6:". $ scalar_string6. "\ n";
$ scalar_string7 = 'Ik lees de Perl Programming Tutorial';
print "String 7:". $ scalar_string7. "\ n";



Tekenreeksen met dubbele aanhalingstekens

#! / usr / bin / perl
# Scalaire tekenreeksen met dubbele aanhalingstekens
$ scalar_string1 = "perl";
print "String 1:". $ scalar_string1. "\ n";
$ scalar_string2 = "#! / usr / bin / perl";
print "String 2:". $ scalar_string2. "\ n";
$ scalar_string3 = "Perl
Programmeren
Zelfstudie ";
print "String 3:". $ scalar_string3. "\ n";
$ scalar_string4 = "Perl \ n";
print "String 4:". $ scalar_string4. "\ n";
$ scalar_string5 = "\ '\' \\" ";
print "String 5:". $ scalar_string5. "\ n";
$ scalar_string6 = "";
print "String 6:". $ scalar_string6. "\ n";
# voeg "!" ASCII-teken in octale vorm! = 041
$ scalar_string7 = "Ik lees Perl Programming Tutorial 1";
print "String 7:". $ scalar_string7. "\ n";
# voeg "@" ASCII-teken toe in hexadecimale vorm @ = 40
$ scalar_string8 = "Alle feedback over deze \ uperl \ upprogrammering
\ ututorial naar: web \ x40 \ lL \ LINUXCONFIG.ORG \ E ";
print "String 8:". $ scalar_string8. "\ n";

Stringoperatoren

#! / usr / bin / perl
#Scalar string Operatoren
$ scalar_string1 = "pe". "rl";
print "String 1:". $ scalar_string1. "\ n";
$ scalar_string2 = "Perl-programmeerhandleiding" x (1 + 1);
print "String 2:". $ scalar_string2. "\ n";
$ scalar_string3 = "3". "\ ttabs" x 3;
print "String 3:". $ scalar_string3. "\ n";
$ scalar_string4 = "Perl \ x20". 'Programmeren'. "Tutorial";
print "String 4:". $ scalar_string4. "\ n";
$ scalar_string5 = 9x5;
print "String 5:". $ scalar_string5. "\ n";

Niet-decimale gehele getallen

#! / usr / bin / perl
#perl binair geheel getal
$ hash_binary_integer = 0b10000;
#perl octaal geheel getal
$ hash_octal_integer = 020;
#perl hexadecimaal geheel getal
$ hash_hexadecimal_integer1 = 0x10;
$ hash_hexadecimal_integer2 = 0x124c_78_aa;
print $ hash_octal_integer. "\ n";
print $ hash_binary_integer. "\ n";
print $ hash_hexadecimal_integer1. "\ n";
print $ hash_hexadecimal_integer2. "\ n";

Scalaire constante variabele

#! / usr / bin / perl
$ gewone_scalar = 5;
$ gewone_scalar = 10;
print $ gewone_scalar. "\ n";
#perl constante declaratie
* SCALAR_CONSTANT = 5;
$ SCALAR_CONSTANT = 10;

Tekenreeks- en numerieke vergelijkingsoperatoren

Vergelijking Draad Numeriek
Gelijk eq ==
Niet gelijk ne !=
Minder dan lt <
Groter dan gt >
Minder dan of gelijk le <=
Groter dan of gelijk aan ge > =
#! / usr / bin / perl
# String vergelijking
if ('Perl' eq 'perl')
print "TRUE \ n";
anders
print "FALSE \ n";

# Numerieke vergelijking
if ('2.4'! = '2.6')
print "TRUE \ n";
anders
print "FALSE \ n";

Lijsten

#! / usr / bin / perl
# Geeft de definitie weer in Perl
print ("Perl", "programmeren", "Tutorial", "\ n");



Arrays

Maak een array en druk deze af

#! / usr / bin / perl
#CREËER EEN ARRAY
@ perl_array1 = qw (Perl-programmeertutorial);
@ perl_array2 = ("Perl", "Programmering", "Tutorial", "\ n");
@ perl_array3 = (1… 3);
$ perl_array4 [0] = "Perl";
$ perl_array4 [1] = "Programmeren";
$ perl_array4 [2] = "Tutorial";
$ perl_array4 [50] = "\ n";
# ELEMENTEN TOEVOEGEN AAN EEN ARRAY
$ perl_array1 [3] = "\ n";
#PRINT ARRAY
print @ perl_array1;
print @ perl_array2;
print @ perl_array3;
print $ perl_array1 [3];
print @ perl_array4;
# Welke index heeft een laatste element van een array
print "Laatste element van perl_array4 heeft index:". $ # perl_array4. "\ n";

Push- en pop-arrays

#! / usr / bin / perl
# MAAK EEN ARRAY
@perl_array = (1… 3);
# DRUK NIEUW ELEMENT NAAR DE EN VAN EEN ARRAY
push (@perl_array, "\ n");
# PRINT ARRAY
print @perl_array;
# POP LAATSTE ELEMENT UIT EEN ARRAY
$ perl_scalar = pop (@perl_array);
print @perl_array;
# NIEUWE LIJN AFDRUKKEN
print $ perl_scalar;

Bepaal de lengte van een array

#! / usr / bin / perl
#CREËER EEN ARRAY
@perl_array = (1… 3);
$ number_of_elements = @perl_array;
print "\ @perl_array heeft:". $ number_of_elements. "elementen. \ n";
print "\ @perl_array heeft:". scalair (@perl_array). "elementen. \ n";

Rangschikkingen samenvoegen en toevoegen

#! / usr / bin / perl
#CREËER EEN ARRAY
@ perl_array1 = (". \ n", "easy", "very");
@ perl_array2 = ("is", "Programmeren", "Perl");
@ perl_array3 = (@ perl_array1, @ perl_array2);
# OMKERENDE ELEMENTEN
omgekeerd afdrukken @ perl_array3;

Sorteer arrays

#! / usr / bin / perl
#CREËER EEN ARRAY
@perl_array = (3, 4, 1, 2);
@ sort_array1 = sorteer @perl_array;
@ sort_array2 = sorteer $ b <=> $ a @perl_array;
print "@ sort_array1 \ n";
print "@ sort_array2 \ n";

Verwijder element uit een array

#! / usr / bin / perl
#CREËER EEN ARRAY
@perl_array = (1, 2, 3, 4);
# CONTROLEER OF HET ARRAY-ELEMENT BESTAAT
if (bestaat ($ perl_array [2]))
verwijder $ perl_array [2];
anders
print "Array-element werkt niet! \ n"

print @perl_array, "\ n";

Hash

Maak hash

#! / usr / bin / perl
# CREËER HASH
% perl_hash = (
browser => ijsewasel,
# u kunt ook een komma gebruiken in plaats van een pijl-operator
os, linux,
);
# HASH-ELEMENT AFDRUKKEN
print "$ perl_hash 'browser' \ n";

Element toevoegen aan een hash

#! / usr / bin / perl
# CREËER HASH
% perl_hash = (
browser => ijsewasel,
# u kunt ook een komma gebruiken in plaats van een pijl-operator
os, linux,
);
# HASH-ELEMENT AFDRUKKEN
print "$ perl_hash 'browser' \ n";
# ELEMENTEN TOEVOEGEN AAN EEN HASH
% perl_hash = (% perl_hash, programmeren, perl);
# PRINT ALLE ELEMENTEN
print join ("",% perl_hash). "\ n";

Hash afdrukken

#! / usr / bin / perl
# MAAK HASH
% perl_hash = qw (
ssh 22
http 80
https 443
telnet 23
postgres 5432
);
while (($ hash_key, $ hash_value) = each% perl_hash)
print "$ hash_key gebruikt poort $ hash_value \ n";

Hashes samenvoegen

#! / usr / bin / perl
# CREËER HASH
% perl_hash1 = qw (
Debian deb
);
% perl_hash2 = qw (
RedHat tpm
);
#MERGE HASHES
% perl_hash3 = (% perl_hash1,% perl_hash2);
while (($ hash_key, $ hash_value) = elke% perl_hash3)
print "$ hash_key: $ hash_value \ n";



Perl reguliere expressies

Reguliere expressies en speciale tekens

\ D Komt overeen met niet-cijferige tekens \ d Komt overeen met cijfertekens \ E Beëindig case-wijziging
\ e ontsnappen \ f Form feed \ L Komt overeen met kleine letters tot \ E gevonden
\ l Volgende teken in kleine letters \ n Nieuwe lijn \ r Keer terug
\ S Overeenkomen met een niet-witruimteteken \ s Overeenkomen met een witruimteteken \ t Match tabblad
\ U Overeenkomen met hoofdletters totdat \ E gevonden is \ u Volgende teken in hoofdletters \ W Match niet-woord
\ w Match woord \ Q Metateken van citaatpatroon tot \ E gevonden

Match karakters

#! / usr / bin / perl
foreach (@ARGV)
# Regex Match kleine letters en hoofdletters "p" (negeert alfabetische letters)
if (m / p / i) $ p1 ++;
# Regex Komt alleen overeen met kleine letters "p"
if (m / p /) $ p2 ++;
# Regex Match twee karakters "ex" en negeer alfabetisch hoofdlettergebruik
if (m / ex / i) $ ex ++;

print "p1 = $ p1 \ np2 = $ p2 \ nex = $ ex \ n";



Vervanging

Voorbeeldbestand: perl_regex.txt

# Perl reguliere expressies #
# Tekenvervanger #
#! / usr / bin / perl
open (FILEHANDLE, $ ARGV [0]) || sterven "Problemen met openen van bestand";
@ bestand =;
foreach (@file)
# Vervang "#" door "$" en werk globaal voor elke gevonden instantie
# OPMERKING: alle metkarakters moeten worden ontsnapt met "\" zoals in
# dit geval ""$"" is ontsnapt als ""$"" om letterlijk te worden gelezen
# Meta-tekens zijn: \ | [() ^ $ * + ? .
s / \ # / $ / g



Niemand heeft nog op dit artikel gereageerd.

Een verzameling nuttige informatie over het Linux-besturingssysteem en nieuwe technologieën
Nieuwe artikelen, praktische tips, gedetailleerde recensies en handleidingen. Voel je thuis in de wereld van het Linux-besturingssysteem