Perl chomp nicht entfernen Sie alle Zeilenumbrüche

Habe ich einen code wie:

#!/usr/bin/perl
use strict;
use warnings;
open(IO,"<source.html");
my $variable = do {local $/; <IO>};
chomp($variable);
print $variable;

Jedoch wenn ich es drucken, es hat immer noch Zeilenumbrüche?

Das nächste mal Fragen Sie sich, ob Sie wirklich glauben, dass ein 10-jähriger Funktion einer mainstream-Sprache ist wirklich kaputt ist oder wenn Sie gerade verwenden es falsch.
select ist nicht kaputt

InformationsquelleAutor kamaci | 2011-04-13

  1. 17

    Entfernt es die letzten newline.

    Da Sie schlürfen in der gesamten Datei, die Sie gehen zu müssen, zu tun ist, ein regex-Ersetzung, um loszuwerden von Ihnen:

    $variable =~ s/\n//g;

    InformationsquelleAutor Brian Roach

  2. 7

    Chomp entfernt nur ein newline (eigentlich der aktuelle Wert der $/, aber das ist ein Zeilenumbruch in deinem Fall) vom Ende der Zeichenfolge. Entfernen Sie alle Zeilenumbrüche, do:

    $variable =~ y/\n//d;

    InformationsquelleAutor ysth

  3. 2

    Oder Sie können chomp jeder Zeile, und Lesen Sie es in:

    #!/usr/bin/perl

use strict;
use warnings;

open my $io, '<', 'source.html';
my $chomped_text = join '', map {chomp(my $line = $_); $line} <$io>;

print $chomped_text;
    und der downvote ist für ... ?

    InformationsquelleAutor Joel Berger

Schreibe einen Kommentar