Thread Gibt es ein Modul zur Komprimierung von Perl Code? (11 answers)
Opened by bianca at 2021-09-28 07:32

bianca
 2021-09-29 07:16
#193606 #193606
User since
2009-09-13
6751 articles
BenutzerIn

user image
2021-09-28T07:20:46 haj
Da kommt CPAN:Perl::Strip in Frage.

Hierzu eine kleine Frage:
Ich möchte den Schalter keep_nl setzen aber mit my $transform = new Perl::Strip(keep_nl => 1) zeigt es keine Wirkung. Was genau ist mit $bool gemeint? Denn bei dieser Syntax enthält das Resultat trotzdem keine Umbrüche mehr. Wie muss das richtig geschrieben werden? Oder hat das mit Windows zu tun?

Win10
Strawberry 5, version 30, subversion 2 (v5.30.2) built for MSWin32-x64-multi-thread
Perl::Strip 1.1

Edit: mit Heredocs kommt es scheinbar auch nicht zurecht:
Code (perl): (dl )
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
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

require Perl::Strip;
my $transform = new Perl::Strip(keep_nl => 1);

my $source = <<'HEREDOC'
my $testcode = 'Hallo';     # Testtext

    my @array = ( 2, 4, 6, 8, '   10'," 1\" 2 ");

    my @array2 = qw(foo bar zorg);

SPRUNGMARKE:

# Abschnitt ####################

print "testtext\n";                     # Kommentar
$xyz = <<HEREDOCIMHEREDOC

Leerzeilen  Leerzeilen  Leerzeilen

UNTEN
HEREDOCIMHEREDOC
;

$xyz =~ s/[ \n\r\t ]//g;

goto SPRUNGMARKE;

require Dies::Das;
HEREDOC
;

my $target = $transform->strip($source);
say $target;


Editiert von bianca: Code ergänzt
Last edited: 2021-09-29 07:31:59 +0200 (CEST)
10 print "Hallo"
20 goto 10

View full thread Gibt es ein Modul zur Komprimierung von Perl Code?