Perl: Zeichen Entfernen bis zu einem bestimmten Punkt.

Ich habe versucht, auf der Suche durch die Fragen schon gestellt, aber kann nicht scheinen, etwas zu finden. Ich bin mir sicher, dass seine unglaublich einfach zu tun, aber ich bin komplett neu in Perl.

Was ich versuche zu tun ist, entfernen Sie die Zeichen in einer Zeichenfolge bis zu einem bestimmten Punkt. Ich habe zum Beispiel:

Parameter1 : 0xFFFF

ist und was ich tun möchte ist, entfernen Sie die "Parameter1:" und übrig bleiben nur die "0xFFFF". Wenn jemand helfen kann, und geben eine einfache Erklärung der Operatoren verwendet, das wäre toll.

InformationsquelleAutor user1006262 | 2011-10-21
  1. 2

    Klingt wie Sie müssen die substr Funktion.

      #!/usr/bin/perl
  use strict;
  use warnings;

  my $string = 'Parameter1 : 0xFFFF';
  my $fragment =  substr $string, 12;
  print "  string: <$string>\n";
  print "fragment: <$fragment>\n";
    • oder regulärer Ausdruck
    • substr macht nur Sinn, wenn Sie wissen, wie viele die Zeichen, die Sie löschen möchten (oder zu behalten).
    • Aber index kombiniert mit substr könnte eine gültige Wahl ist (je nach dem erwarteten format der string natürlich).
    • Ja, substr() kann ein Ausdruck für den offset. - hehe wir dachten darüber nach, es in der gleichen Zeit, denke ich!
    • Ich werde Wiesel aus, indem er sagte, dass Sie noch nicht wissen, wie viele Zeichen; Sie können sich mit wissen zur Laufzeit. Aber ein regexp-Lösung ist mehr idiomatische und leichter zu Lesen. substr könnte schneller sein in einigen Fällen, aber ich würde nicht diese Art von Mikro-Optimierung, es sei denn, ich weiß, es geht um eine signifikante Verbesserung.
    • Beide Lösungen sind technisch korrekt. Ich schlug vor, eine Funktion, denn dies ist offensichtlich eine Anfänger-Frage.
    • Wird man wenigstens zugeben, weaseling 🙂 +1 für TIMTOWTDI, würde ich wahrscheinlich sagen: substr $string, length('Parameter1 :') oder substr $string, length('Parameter1 : ') obwohl. Ich denke, es ist gut, um die Leute daran zu erinnern, dass es mehr an die Schweizer Armee Kettensäge als regexes.

    InformationsquelleAutor Daniel Pereira
  2. 1
    s/.*:\s*//;

    oder

    $s =~ s/.*:\s*//;

    Dies löscht alles, bis zu und einschließlich dem ersten vorkommen von : gefolgt von null oder mehr whitespace-Zeichen. Mit $s =~ angewendet $s; ohne es, es ist angewendet, um $_.

    InformationsquelleAutor Keith Thompson
  3. 1

    Haben Sie sich überlegt mit so etwas wie Config::Std?

    Hier ist, wie das Parsen einer Konfigurationsdatei von hand:

    #!/usr/bin/perl

use strict; use warnings;

my %params;

while ( my $line = <DATA> ) {
    if ($line =~ m{
            ^
            (?<param> Parameter[0-9]+)
            \s*? : \s*?
            (?<value> 0x[[:xdigit:]]+)
        }x ) {
        $params{ $+{param} } = $+{value};
    }
}

use YAML;
print Dump \%params;

__DATA__
Parameter1 : 0xFFFF
Parameter3 : 0xFAFF
Parameter4 : 0xCAFE

    Mit Config::Std:

    #!/usr/bin/perl

use strict; use warnings;
use Config::Std;

my $config = do { local $/; <DATA> };

read_config \$config, my %params;

use YAML;
print Dump \%params;

__DATA__
Parameter1 : 0xFFFF
Parameter3 : 0xFAFF
Parameter4 : 0xCAFE

    Natürlich, im wirklichen Leben, Sie würde übergeben Sie einen Dateinamen, um die read_config statt es schlürfen.

    • +1 Schönes Modul.
    InformationsquelleAutor Sinan Ünür
  4. 1

    Ich mag split für diese parameter - /Wert-Paaren.

    my $str = "Parameter1 : 0xFFFF";
my ($param, $value) = split /\s*:\s*/, $str, 2;

    Beachten Sie die Verwendung von LIMIT-in den split, die Grenzen, die teilen sich auf zwei Felder (im Falle der zusätzlichen Doppelpunkte in den Wert).

    • Als ein beiseite, ich mag in der Lage sein zu sagen, in meinem config-Dateien Parameter1 : 0xFFFF # See Frobnicator Manual section 42.17.64 in dem Fall die split Ansatz erfordert zusätzliche Arbeit.
    • Ich sehe, dass Config::Std nicht zulassen, dass solche Kommentare entweder, wenn. $value =~ s/#.+//; ist ziemlich einfach.
    InformationsquelleAutor TLP
Schreibe einen Kommentar