（？ &lt;= ) 后看声名

xuxingyu

UID: 36969
帖子: 122
积分: 280
在线时间: 20 小时

1^# xuxingyu 发表于 2008-01-16 15:13

（？ &lt;= ) 后看声名

我的perl不支持,v5.8.5

xuxingyu

UID: 36969
帖子: 122
积分: 280
在线时间: 20 小时

2^# xuxingyu 发表于 2008-01-16 15:14

[Copy to clipboard] [ - ]

CODE:

use strict;
use warnings;

my $string1 = "i be hungry.";
my $string2 = "we be here.";
my $string3 = "he be where?";

conjugate($string1);
conjugate($string2);
conjugate($string3);

sub conjugate
{
      my $string = shift;
      print "$string\n";
      $string =~s/(? <=i )be/am/;
      $string =~s/(? <=we )be/are/;
      $string =~s/(? <=he )be/is/;

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

3^# Lonki 发表于 2008-01-16 19:15

你想说什么?

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

4^# Nosferatu 发表于 2008-01-16 19:31

try this

sub conjugate
{
    my $string = shift;
    print "$string\n";
    $string =~ s/(?<=i )be/am/;
    $string =~ s/(?<=we )be/are/;
    $string =~ s/(?<=he )be/is/;
    say $string;
}

lz你在哪找的这段代码？我依稀记得这个syntax，但是忘了怎么用了

（？ &amp;lt;= ) 后看声名

（？ &amp;lt;= ) 后看声名

（？ <= ) 后看声名

（？ <= ) 后看声名