会python真的可以为所欲为0(回)
378天前
这里还有人吗1(回)
563天前这里还有人吗0(回)
563天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
788天前到处都是羊，不想上班0(回)
868天前
鸽子
0(回)
872天前#!/user/bin/perl |
use Data::SearchReplace ( 'sr' ); |
sr ( { SEARCH => 'searching', REPLACE => 'replacing'}, \$complex_var ); |
# or OO |
use Data::SearchReplace; |
$sr = Data::SearchReplace->new ( { SEARCH => 'search for this', |
REPLACE => 'replace with this' |
} ); |
$sr->sr ( \$complex_var ); |
$sr->sr ( \$new_complex_var ); |
# if you want more control over your search/replace pattern you |
# can pass an entire regex instead complete with attributes |
sr ( { REGEX => 's/nice/great/gi' }, \$complex_var ); |
# you can even use a subroutine if you'd like |
# the input variable is the value and the return sets the new |
# value. |
sr({ CODE => sub { uc($_[0]) } }, \$complex_var); |
QUOTE:use Data::SearchReplace qw(sr); |
sr({SEARCH => 'find', REPLACE => 'replace'}, \@data); |
sr({REGEX => 's/find/replace/g'}, \%data); |
sr({CODE => sub {uc($_[0])} }, \@data); |
by: 发表于：2017-09-11 11:51:54 顶(0) | 踩(0) 回复
？？
回复评论