Heiko Schlittermann (Sa 14 Jul 2018 12:57:00 CEST):
…
> #!/usr/bin/perl
> die "Usage: $0 FILE\n" unless @ARGV == 1;
> $/ = \4096; # use 4k chunks, not line by line
> defined($_ = )
> and open(STDOUT, '>', shift)
> and print
> and print while ;
Habe eben
Heiko Schlittermann (Do 12 Jul 2018 14:50:20 CEST):
> Jochen Topf (Do 12 Jul 2018 09:09:49 CEST):
> > Die Lösung ist relativ einfach mit einem externen Programm zu erledigen,
> > das quasi wie "cat" funktioniert, also Daten einfach durchleitet, aber
> > die Ausgabedatei selbst aufmacht und zwar