2021-09-28T07:20:46 hajDa kommt Perl::Strip in Frage.
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;
1 2 3 4 5 6 7
# ...Den Anfang habe ich abgeschnitten $xyz=<<HEREDOCIMHEREDOC ;$xyz =~ s/[ \n\r\t ]//g;goto SPRUNGMARKE;require Dies::Das; Leerzeilen Leerzeilen Leerzeilen UNTEN HEREDOCIMHEREDOC
2021-09-29T06:44:24 hajSo wie's aussieht, ist keep_nl gar nicht implementiert (ein Hinweis darauf ist im Changelog zu finden).
2021-09-28T07:20:46 hajUnd, natürlich, Acme::Bleach von Damian Conway, das allerdings nicht komprimiert und auch ansonsten eher was für Leute mit schrägem Humor ist.
2021-09-28T07:20:46 hajEs gibt auch Perl::Squish, das macht das gleiche wie Perl::Strip, kommt aber ohne jede Gebrauchsanweisung daher.
1 2 3
use Perl::Squish; my $transform = Perl::Squish->new; $transform->file('uncompressed.pl' => 'compressed.pl');
2021-09-29T20:03:07 hajNa ja, einfach mal ausprobieren mit dem wenigen was dasteht
2021-09-29T20:26:58 biancaWie bist du auf die Syntax gekommen?
2021-09-29T20:26:58 biancaWas ist mit diesen Hinweisen auf das PPI Dingsda gemeint?
2021-09-29T20:26:58 biancaEs arbeitet übrigens fast wie von mir erwartet. Die Shebang müsste man halt am Ende wieder einfügen aber der Rest sieht bis jetzt gut aus. Für diesen Tipp nochmal danke!