comment tronquer une chaîne en utilisant l'expression régulière dans perl

Question

J'ai la chaîne suivante dans un fichier et que vous voulez tronquer la chaîne à pas plus de 6 caractères. comment faire cela en utilisant l'expression régulière dans Perl?
le fichier original est:

chat shortstring.in:

<value>1234@google.com</value>
<value>1235@google.com</value>

Je veux obtenir le fichier comme:
chat shortstring.out

<value>1234@g</value>
<value>1235@g</value>
J'ai un code comme suit, est-il plus efficace que d'utiliser
s/<value>(\w\w\w\w\w\w)(.*)/$1/;?

est ici une partie de mon code:

while (<$input_handle>) {      # take one input line at a time 
      chomp; 
      if (/(\d+@google.com)/) { 
        s/(<value>\w\w\w\w\w\w)(.*)</value>/$1/; 
        print $output_handle "$_\n"; 
       } else { 
       print $output_handle "$_\n"; 
      } 
    } 

Answer 1

$ perl -pe 's/(<value>[^<]{1,6})[^<]*/$1/' shortstring.in 
<value>1234@g</value> 
<value>1235@g</value>

Dans le contexte de l'extrait de votre question, utilisez

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

ou le faire avec un seul motif

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

Utilisation de la frange comme délimiteur L'opérateur de substitution empêche Leaning Toothpick Syndrome dans </value>.

REMARQUE: L'habituel warnings à propos de l'analyse syntaxique XML avec des expressions régulières s'applique.

programme de démonstration:

#! /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>1234@google.com</value> 
<value>1235@google.com</value> 
<value>12@google.com</value> 

Sortie:

$ ./prog.pl 
<value>1234@g</value> 
<value>1235@g</value> 
<value>12@goo</value>

Answer 2

On dirait que vous voulez tronquer le texte dans la balise qui pourrait être plus courte que 6 caractères déjà, auquel cas:

s/(<value>[^<]{1,6})[^<]*/$1/ 

Answer 3

s/<value>(.{1,6}).*/<value>$1</value>/; 

Answer 4

Utilisez ce lieu (regex n'est pas la seule caractéristique de Perl et il est surpuissant pour cela: :-)

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

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

Answer 5

Essayez ceci:

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