[過去ログ] 正規表現道場@2ch Part3 s/煽り|荒らし/あぼーん/g (989レス)
上下前次1-新
抽出解除 レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
92(3): 03/12/19 08:15 ID:tSEWBAlW(1) AAS
$perl -pe 's/(?<![\.\d])(X\d+)(?![\.\d])/##$1##/g;' >>80
小数点を含まない数値にマッチさせるパターンを教えて下さい。
X25.125
X12.1
X78.
でなく
##X25##
##X789##
にマッチさせたいんです。
御多忙中の所、誠に恐縮では御座いますが、
省1
94: 03/12/19 13:04 ID:??? AAS
>92 いいかげんにしろやカス
95: 03/12/19 16:38 ID:??? AAS
>>92
おらよ。
/(?:^|[^\d\.])(\d+)(?:[^\d\.]|$)/
97: 03/12/21 14:45 ID:??? AAS
>>92
お前さんのレベルじゃ,
込み入った正規表現に手を出すのはまだ早いんじゃないか?
とりあえずわかりやすい代替手段でも使っておけ。
my $f = 'fs4.5s5d.af56.156asd';
my @res = ();
foreach ( split(/[^\d.]/, $f) ){ push( @res, $_ ) if(/^[\d]+$/); }
if(! scalar(@res) ){ print "no match!\n"; }
elsif( scalar(@res) > 1 ){ print "too much match!\n"; }
else{ print "matched:[$res[0]]\n"; }
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.038s