0

私はこの例を使用しています：

New Zealand cyclist Jack Bauer didn't know it during the Olympic road race, but there was a scantily-clad Kiwi 'snow angel' above him. http://www.stuff.co.nz/sport/olympics/7374497/Near-naked-snow-angel-over-cycle-road-race

終止符の後にタグを追加したいのです<br />が、HTTPリンクには追加しません。文の終わりに。

現在私は使用しています：

$full_story = $read_story->[0]{story_text}; 
$full_story =~ s/(\D)\.(\D)/<br \/><br \/>/i;

このコードを使用して追加します<br />が、mfromhimは削除されます。

最終結果：

New Zealand cyclist Jack Bauer didn't know it during the Olympic road race, but there was a scantily-clad Kiwi 'snow angel' above him.

http://www.stuff.co.nz/sport/olympics/7374497/Near-naked-snow-angel-over-cycle-road-race

私は何が間違っているのですか？

4

3 に答える 3

3

検索して「s///」を置き換えることができます

与えられた文字列：

my $string = 'The quick brown fox. Jumps over the lazy dog.';

あなたができること：

$string =~ s/\./<br \/>/g

「s」は、検索と置換を行っていることを意味します。

最初の2つの「//」の間に検索しているものがあります。この場合はドット（。）ですが、正規表現のドットはワイルドカードであるため、\でエスケープする必要があります。

次の「//」の間に、置き換えようとしているテキストがあります。この場合は<br />です。ここでも、特殊文字であるため、ここで「/」をエスケープする必要があります。

最後に、最後の「g」フラグは、文字列全体での検索と置換を意味します。したがって、私の例では、出力は次のようになります。

print $string;
# The quick brown fox<br /> Jumps over the lazy dog<br />

文字列内のドットを置き換えたくないので、操作しやすいように、ドットを異なる変数に単純に分離することができます。

于 2012-10-23T15:32:36.760 に答える
0 
$full_story =~ s/(.*?)\.(.*?)/$1<br \/><br \/>$2/i;
于 2012-08-16T21:30:02.170 に答える
0

任意のリンクindexまでの文字列の最初の部分の長さを確立するために使用します。http次にsubstr、左辺値として使用して、その部分のすべての終止符を置き換えます。

このコードはアイデアを示しています。テスト目的で、いくつかの終止符を追加しました。

use strict;
use warnings;

my $str = q{New Zealand cyclist Jack Bauer. didn't know it during the Olympic. road race, but there was a scantily-clad Kiwi 'snow angel' above him.http://www.stuff.co.nz/sport/olympics/7374497/Near-naked-snow-angel-over-cycle-road-race};

my $index = index lc $str, 'http';
$index = length $str if $index < 0;
substr($str, 0, $index) =~ s|\.|.<br/>\n<br/>\n|g;

print $str;

出力

New Zealand cyclist Jack Bauer.<br/>
<br/>
 didn't know it during the Olympic.<br/>
<br/>
 road race, but there was a scantily-clad Kiwi 'snow angel' above him.<br/>
<br/>
http://www.stuff.co.nz/sport/olympics/7374497/Near-naked-snow-angel-over-cycle-road-race
于 2012-08-16T22:14:29.303 に答える