2017-05-06T12:21:07 Wild.CardHallo allerseits, ich habe einen komischen Code gefunden und frage mich, woher diese "Lingisitik" abstammt, bzw.wovon diese motiviiert ist.
qq(), q(), qw()
2017-05-07T09:52:19 GwenDragonIch quote auch lieber mit q oder qq.
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use warnings; use strict; sub myfunc { q(This is a comment.); print "Hallo\n"; }
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
no warnings qw(void); # qw steht für quoted words q( Hier ein wichiger und mehrzeiliger Kommentar: 1. 2. 3..... Letztens.... perllexwarn - Perl Lexical Warnings );
2017-05-07T16:12:56 LinuxerBevor ich sowas mache, nutze ich lieber Kommentarzeilen mit # oder packe meinen mehrzeiligen Kommentar in =begin =end =cut.
perldoc doc.plCode: (dl )1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23doc.pl
doc.pl ist ein Beispielskript wie man POD zur Dokumentation in ein
Skript integrieren koennte. Die POD kann im Quelltext oder alternativ
mit dem Kommando "perldoc doc.pl" gelesen werden.
Module
doc.pl benutzt derzeit keine weiteren Module (abgesehen von 'strict' und
'warnings'. Hier koennte man die Erklaerungen auflisten, warum man diese
weiteren Module eingebunden hat oder welche Features/Funktionen man aus
diesen Modulen verwendet.
CGI Das Modul 'CGI' wird geladen, weil wir es koennen. Benutzt wird es
nicht.
Sub Routinen
Dieses Skript definiert folgende Subroutinen:
sub foo
foo() gibt einfach den String "foo\n" auf STDOUT aus.
sub bar
bar(arg1, arg2, ...) gibt die uebergebenen Argumenten zeilenweise nach
STDOUT aus.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
sub blah { =pod =head1 Description sub blah ( Japs, Schnauf ) Die Funktion blah() nimmt verschieden Parameter entgegen und gibt eine Meldung aus oder wie soll ich das sonst beschrieben, ihr unpraktischen Profs!? =head1 Parameters Japs: Int Anzahl der Schnaufer bei Programmfehlern Default: 3 Schnauf: String menschenlesbares Gejammer Default: NeeNeeeNeeeeee! =head1 Returns String Mit Unfug, damit mal richtig aufgejault wird beim Prof =head1 Copyleft Schmeiss bloss swech, das Zeuch. =head1 Additional Das kann man noch besser machen, sagt Larry Wall =cut my $japs = shift // 3; my $schnauf = shift // "NeeNeeeNeeeeee!"; for (1..$japs) { print $schnauf, "\n"; } return q<Fooooo Barrrrr! YMMD!>; } my $ret = blah(10,"Ihhhh was für ein schlechtes Perl!"); print "Ergebnis des Ablaufs von blah() ist '$ret'"; blah();
2017-05-08T10:58:33 GwenDragonDas POD-Format ist dafür gut und erfunden worden.
Code (perl): (dl )1 2 3 4 5 6 7 8sub blah { =pod =head1 Description =cut my $japs = shift // 3; my $schnauf = shift // "NeeNeeeNeeeeee!"; }
2017-05-06T12:21:07 Wild.Cardich habe einen komischen Code gefunden