wie Sie abschneiden, einen string mit Hilfe regulärer Ausdruck in perl

Ich habe folgenden string in einer Datei und wollen, kürzen Sie die Zeichenfolge, um nicht mehr als 6 char. wie zu tun, dass die Verwendung regulärer Ausdruck in perl?

die original-Datei ist:

Katze shortstring.in:

<value>[email protected]</value>
<value>[email protected]</value>

Möchte ich, um die Datei als:

Katze shortstring.aus

<value>1234@g</value>
<value>1235@g</value>


Ich habe einen code wie folgt, gibt es keine effizientere Methode als die Verwendung

s/<value>(\w\w\w\w\w\w)(.*)/$1/;?

Ist hier ein Teil von meinem code:

    while (<$input_handle>) {                        # take one input line at a time
            chomp;
            if (/(\[email protected])/) {
                    s/(<value>\w\w\w\w\w\w)(.*)</value>/$1/;
                    print $output_handle "$_\n";
              } else {
              print $output_handle "$_\n";
            }
    }
  • ist kein Wort-Zeichen, damit ist nicht abgestimmt mit \w. Außerdem denke ich, dass Sie nicht bedeuten, zu entfernen <value> Teil?
InformationsquelleAutor user399517 | 2010-08-03
  1. 10

    Diese stattdessen zu verwenden (regex ist nicht das einzige feature von Perl und es ist overkill für diese: 🙂

    $str = substr($str, 0, 6);

    http://perldoc.perl.org/functions/substr.html

    • +1 für mich daran zu erinnern, dass die regex ist nicht die einzige Funktion von Perl .-)
    InformationsquelleAutor Hut8
  2. 5
    $ perl -pe 's/(<Wert>[^<]{1,6})[^<]*/$1/' shortstring.in 
<Wert>1234@g</value> 
<Wert>1235@g</value>

    Im Kontext der Ausschnitt aus deiner Frage, verwenden Sie

    while (<$input_handle>) {
  s!(<value>)(.*?)(</value>)!$1 . substr($2,0,6) . $3!e
    if /(\d+\@google\.com)/;
  print $output_handle $_;
}

    oder, um es mit einem einzigen Muster

    while (<$input_handle>) {
   s!(<value>)(\d+\@google\.com)(</value>)!$1 . substr($2,0,6) . $3!e;
  print $output_handle $_;
}

    Mit Pony als Trennzeichen auf der substitution-operator verhindert Schiefe Zahnstocher-Syndrom in </value>.

    HINWEIS: Die üblichen Warnungen zu "Parsen" von XML mit regulären Ausdrücken anwenden.

    Demo-Programm:

    #! /usr/bin/perl

use warnings;
use strict;

my $input_handle = \*DATA;
open my $output_handle, ">&=", \*STDOUT or die "$0: open: $!";

while (<$input_handle>) {
   s!(<value>)(\d+\@google\.com)(</value>)!$1 . substr($2,0,6) . $3!e;
  print $output_handle $_;
}

__DATA__
<value>[email protected]</value>
<value>1235@google.com</value>
<value>[email protected]</value>

    Ausgabe:

    $ ./prog.pl 
<Wert>1234@g</value> 
<Wert>1235@g</value> 
<Wert>12@goo</value>
    • Ich glaube, mein code ist nicht korrekt, ich möchte nur das abschneiden der Daten zwischen <value></value>
    • Ihr funktioniert nicht. endlich habe ich dieses verwenden: s/(<value>.{1,$truncate_num}).*<.*)/$1$2/;
    • vielen Dank für die überarbeitete s!!!e sytnax. Jemand hatte gepostet und dann gelöscht, aber es enthält nicht das "<Wert>" - tags. Hatte früher nie s!!!e vor und war neugierig, wie das ausgesehen hätte, wenn es richtig gemacht.
    • Perl ist flexibel über die Trennzeichen auf die s/// Betreiber. Mit Pony bedeutete, dass ich nicht haben, um die Flucht der Schrägstrich in </value>.
    • Siehe aktualisierte Antwort für ein funktionierendes Programm, die enthält den code, schlug ich vor. Was ist die Ausgabe, die Sie sehen?
    • Die verschiedenen separator Teile, die ich kannte, die 'e' - Kennzeichen ist die gem ich wollte schon mehrere Male und habe nicht gewusst, wie das zu tun. Lieben stackoverflow.

    InformationsquelleAutor Greg Bacon
  3. 1

    Versuchen Sie dies: 

    s|(?<=<value>)(.*?)(?=</value>)|substr $1,0,6|e;
    InformationsquelleAutor Eugene Yarmash
  4. 1

    Sieht aus wie Sie möchten, kürzen Sie den text innerhalb der Tags, die könnte kürzer als 6 Zeichen ist bereits, in dem Fall:

    s/(<value>[^<]{1,6})[^<]*/$1/
    InformationsquelleAutor David Blevins
  5. 0
    s/<value>(.{1,6}).*/<value>$1</value>/;
    • Mit der . in (.{1,6}) könnte man Sachen wie "123</v'
    • Nein, denn er ist bereits getestet, um sicherzustellen, dass das tag hat @google.com kann es also nicht kleiner sein als das. Wenn Sie wollen mehr aufpassen, Sie testen konnte, für den Abschluss-tag, aber da das Parsen von xml oder html in ein regex ist eine wirklich, WIRKLICH SCHLECHTE IDEE, jedenfalls glaube ich nicht geben ihm keine Ideen.
    InformationsquelleAutor Paul Tomblin
Schreibe einen Kommentar