entfernen Sie ein Leerzeichen aus einem perl-variable

Ich bin eine Menge ärger zu tun, eine einfache Suche und ersetzen. Ich habe versucht, die angebotene Lösung in
Wie Entferne ich Leerzeichen in einen Perl-string?
aber war nicht in der Lage zu drucken.

Hier ist mein Beispielcode:

#!/usr/bin/perl
use strict;
my $hello = "hello world";
print "$hello\n"; #this should print out >> hello world
#now i am trying to print out helloworld (space removed)
my $hello_nospaces = $hello =~ s/\s//g;
#my $hello_nospaces = $hello =~ s/hello world/helloworld/g;
#my $hello_nospaces = $hello =~ s/\s+//g;
print "$hello_nospaces\n"
#am getting a blank response when i run this.

Habe ich versucht, ein paar verschiedene Möglichkeiten, aber ich war nicht in der Lage, dies zu tun.

Mein end-Ergebnis ist die Automatisierung einiger Aspekte verschieben, um die Dateien in einer linux-Umgebung, aber manchmal Dateien mit Leerzeichen im Namen, so dass ich möchten, entfernen Sie die Leerzeichen aus der Variablen.

  • Auf einem nicht verwandten note, linux und viele andere Betriebssysteme unterstützen die Leerzeichen in Dateinamen vollständig, solange die Entwickler sind vorsichtig. Entfernen von Leerzeichen können nachteilige Effekte, wie das erstellen von Unklarheiten zwischen den Dateien "helloworld.txt" und "Hallo world.txt".
  • danke Euch allen für die schnellen Antworten. ich gehalten, versuchen, zu ändern die syntax zwischen s und g. leider kann ich nicht abstimmen, ich habe nicht 15 rep Punkte
InformationsquelleAutor M Alhassan | 2013-06-26
  1. 19

    Du bist fast da; du bist nur verwirrt über die Rangfolge. Der code, den Sie verwenden möchten:

    (my $hello_nospaces = $hello) =~ s/\s//g;

    Ersten, dieser weist den Wert der Variablen $hello auf die variable $hello_nospaces. Dann führt die substitution Betrieb auf $hello_nospaces, als wenn Sie sagten,

    my $hello_nospaces = $hello;
$hello_nospaces =~ s/\s//g;

    Weil der bind-operator =~ hat eine höhere Priorität als der Zuweisungsoperator =, die Art, wie du es geschrieben

    my $hello_nospaces = $hello =~ s/\s//g;

    erste führt die substitution auf $hello und weist dann das Ergebnis der substitution Betrieb (die 1 in diesem Fall) die variable $hello_nospaces.

    • Ich danke Ihnen sehr. Ich dachte, es war ein syntax Fehler allein. deine Erklärung war sehr klar, und jetzt verstehe ich. Danke
    • Es ist ziemlich klar, die op war nicht mit einem Vorrang problem-statt der op wurde mit einem in-place-substitution-problem, d.h. der op geglaubt, dass s// Rückkehr in einen neuen string.
    InformationsquelleAutor mob
  2. 9

    Als der 5.14, Perl bietet eine zerstörungsfreie s/// - option:

    Zerstörungsfreie substitution

    Die substitution (s///) und transliteration (y///) Operatoren unterstützen nun eine /r option, dass Kopien der Eingangs-variable ist, führt die substitution auf der Kopie, und gibt das Ergebnis zurück. Das original bleibt unverändert.

    my $old = "cat";
my $new = $old =~ s/cat/dog/r;
# $old is "cat" and $new is "dog"

    Dies ist besonders nützlich, mit map. Sehen perlop weitere Beispiele.

    Also:

    my $hello_nospaces = $hello =~ s/\s//gr;

    sollte das tun, was Sie wollen.

    • +1, das ist viel sauberer.
    InformationsquelleAutor Sinan Ünür
  3. 4

    Brauchen Sie nur Klammern hinzufügen, damit das Perl-parser verstehen können, was Sie wollen, es zu tun.

    my $hello = "hello world";
print "$hello\n";

    zu

    (my $hello_nospaces = $hello) =~ s/\s//g;
print "$hello_nospaces\n";

## prints 
## hello world
## helloworld
    InformationsquelleAutor Hunter McMillen
  4. 3

    Split diese Zeile:

    my $hello_nospaces = $hello =~ s/\s//g;

    In die beiden:

    my $hello_nospaces = $hello;
$hello_nospaces =~ s/\s//g;

    Aus der offiziellen Perl Regex Tutorial:

    Wenn es eine übereinstimmung gibt, s///gibt die Anzahl der Substitutionen vorgenommen; andernfalls gibt Sie false zurück.

    • Oder (my $hello_nospaces = $hello) =~ s/\s//g;. Nicht sicher, warum ich bevorzuge diese, aber es ist ein wenig kürzer.
    • Kürzer heißt nicht immer klar 🙂
    InformationsquelleAutor Vladimir Georgiev
Schreibe einen Kommentar