ACME :: Pythonic :: FunctiesPython-achtige functies voor PERL | |
Download nu |
ACME :: Pythonic :: Functies Rangschikking & Samenvatting
Advertentie
- Vergunning:
- Perl Artistic License
- Prijs:
- FREE
- Naam uitgever:
- Hauke Lubenow
- Uitgever website:
- http://search.cpan.org/~hlubenow/
ACME :: Pythonic :: Functies Tags
ACME :: Pythonic :: Functies Beschrijving
Python-achtige functies voor Perl Het programmeertaal "Python" biedt een aantal eenvoudige string-, lijst- en andere functies, die vrij intuatief kunnen worden gebruikt. Perl gebruikt vaak regelmatig uitdrukkingen of speciale variabelen voor deze taken. Hoewel de functies van PERL in het algemeen flexibeler en krachtiger zijn, zijn ze iets moeilijker te gebruiken en een beetje moeilijker om te lezen voor menselijke wezens. ACME :: Pythonic :: Functies is een Perl-module die probeert enkele van de functies van Python in Perl na te bootsen. Misschien kunnen Python-programmeurs omschakelen naar PERL of PROGRAMMERING-BEGINNERS zich een beetje comfortabeler met hen voelen. SynopsISHet het volgende script "Voorbeeld.pl" toont het gebruik van de functies. Een kant-en-klare versie van het is te vinden in de "Voorbeelden" -Directory in de tar-ball van de module: gebruik ACME :: Pythonic :: Functies; # Als u PERL 5, versie 5.10 of hoger gebruikt, wijzigt u het # commentaar-teken in de twee volgende "gebruik" -Statements: Gebruik Perl6 :: Say; # Gebruik functie 'zeggen'; zeg "snaren:"; $ A = "Hallo"; Als (Endswith ($ A, "Ello"))) {zeg '$ A-uiteinden met "Ello".'; } if (isin ($ a, "ll", "S")) {zeg 'll' is in $ a. '; } $ A = "2345"; if (isdigit ($ A)) {zeg '$ A is een cijfer.'; } $ A = "LINE"; zeg lstrip ($ A); $ A = Vervang ($ A, "lijn", "een andere regel"); zeg $ A; Zeg de rstrip ($ A); $ A = "Hallo"; if (startswith ($ a, "hij")) {zeg '$ A begint met "hij".'; } Zeg LEN ($ A, "S"); zeggen; Zeg "Lijsten:"; @A = ("A", "B", "C"); $ b = "d"; @A = APPEND (@A, $ B); Saylist (@A); @A = ("A", "B", "C"); @B = (1, 2, 3); @A = Extend (@A, @b); Saylist (@A); if (isin (@a, "C", "L")) {zeg '"C" is in @a.'; } @a = insert (@a, 1, "A2"); Saylist (@A); zeg Len (@a, "L"); @A = Verwijderen (@A, "A2"); Saylist (@A); zeggen; Zeg "Hashes:"; % A = ("A" => 1, "B" => 2, "C" => 3); if (has_key (% a, "c")) {zeg '% a heeft een sleutel "C".'; } if (isin (% a, "c", "H")) {zeg '% a heeft een sleutel "C".'; } zeggen; Zeg "Bestand-gerelateerd:"; if (ISDIR ("/ home / user")) {zeg "is directory."; } if (isfile ("/ home / user / myfile")) {zeg "is bestand."; } @a = ("a \ n", "b \ n", "C \ n"); if (isfile ("test12345.txt"))) {zeg 'bestand "test12345.txt" bestaat al. Niets gedaan. '; } anders {writefile ("test12345.txt", @A); @c = leesfile ("test12345.txt"); voor $ i (@c) {$ i = rstrip ($ i); Print $ i. ""; } zeggen; } zeggen; Zeg "Systeemgerelateerd:"; zeg ONNAME (); SUBSLAG {voor $ i (@_) {print $ i. ""; } zeggen; } In de hierboven genoemde "voorbeelden" -directory is er ook een pythonic-perl-versie van dit script genaamd "Perlpyex.pl" en een bijbehorende Python-Script genaamd "Pyex.py" ter vergelijking. Vereisten: · Perl
ACME :: Pythonic :: Functies Gerelateerde software
NET :: CIDR :: LOEKEN
Een PERL-klasse die een opzoektabel indexeert met IPv4-netwerken of hosts ...
171