1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl use strict; use warnings; my $test = sub { print "ja, klappt!\n"; }; $test->(); open (my $FH,'>','test.pl'); print $FH $test; system('perl test.pl');
1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/perl use strict; use warnings; my $test = <<'ENDCODE'; print "ja, klappt!\n"; ENDCODE eval $test; open (my $FH,'>','test.pl'); print $FH $test; system('perl test.pl');
2015-03-10T15:40:44 biancaWie löst ihr diese Aufgabe des checkings, ob alles da ist, was eure Seite/euer Projekt braucht?
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
Dist::Zilla zuerst einmal konfigurieren, um Boilerplates für Module und Tests zu haben
$ dzil new My::Test
$ cd My-Test/
$ vim dist.ini
füge [AutoPrereqs] hinzu
$ vim lib/My/Test.pm
füge hinzu:
# ABSTRACT: Demo-Modul für Dist::Zilla
use Parse::BBCode 0.14;
use DBI;
use Non::Sense 99;
$ dzil listdeps --versions
DBI = 0
ExtUtils::MakeMaker = 6.30
Non::Sense = 99
Parse::BBCode = 0.14
strict = 0
Test::More = 0
warnings = 0
$ dzil listdeps --versions --missing
Non::Sense = 99
$ dzil build
...
[DZ] writing archive to My-Test-0.001.tar.gz
$ cd My-Test-0.001/
$ perl Makefile.PL
Checking if your kit is complete...
Looks good
Warning: prerequisite Non::Sense 99 not found.
Generating a Unix-style Makefile
Writing Makefile for My::Test
Writing MYMETA.yml and MYMETA.json
$ prove -lr t
# Failed test 'use My::Test;'
# at t/00.load.t line 3.
# Tried to use 'My::Test'.
# Error: Can't locate Non/Sense.pm in @INC (you may need to install the Non::Sense module) ...
2015-03-12T16:59:07 biancaMeine Tabelle enthält folgende Daten bzw. macht folgende Sachen:
QuoteHat die von dir beschriebene Lösung das auch alles? Oder anders: welche Merkmale zeichnen deine Lösung aus?
1 2 3
sub curry { my $arg = shift; return sub { return 1 + $arg } } my $code = curry(1); say $code->();
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
# Datei Interface.pm als ein Beispiel my $trailer = sub{ my $self = shift; }; my $init = sub{}; my $control = sub{}; # Letzte Anweisung in Datei # das wird beim Einbinden mit do oder require zurückgegeben # Code-Referenzen für Interface { trailer => $trailer, init => $init, control => $control };