Question

I have the following string in a file and want to truncate the string to no more than 6 char. how to do that using regular expression in perl?
the original file is:

编目短.。 :

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

I want to get file as:
cat shortstring.out

<value>1234@g</value> <value>1235@g</value>
I have a code as follows, is there any more efficient way than using
s/<value>(wwwwww)(.*)/$1/;?

这是我守则的一部分:

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

Answer 1

而是使用(管制局不是Perl的唯一特征,它为:-)

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

rel=“noretinger”>http://perldoc.perl.org/Functions/substr.html

Answer 2

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

在您的提问中,使用

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

或采用单一模式

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

利用香料作为替代经营者的划界器,可防止http://en.wikipedia.org/wiki/Leaning_toothpick_syndrome” rel=“nofollow noretinger”>Leaning Toothpick Hopkins in </ Value>。

<>光> 通常的适用“分离”XML的定期表述。

解散方案:

#! /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>

产出:

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

Answer 3

为此:

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

Answer 4

想像你那样,在标本中删除可能少于6个特性的案文,在这种情况下:

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

Answer 5

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

友情链接