作者LiloHuang (0x5f3759df)
看板Perl
标题Re: [问题] 新手请问取代档案内容的写法
时间Sat May 16 16:51:48 2020
提供两个方法，很久没有写 Perl 了，可能写起来不是很好。
use strict;
use feature qw(switch);
no warnings qw(experimental::smartmatch);
# using LUT method
my %maps = ('NTU' => 112,
'NCTU' => 113,
'NTHU' => 114,
'NCU' => 115,
'NCKU' => 116);
my $str1 = "NTU NCU NCTU NTHU NCKU";
$str1 =~ s/(\w+)/$maps{$1}/g;
print $str1,$/;
# replacing string with function
sub convert {
given (shift)
{
when ('NTU') { return 112; }
when ('NCTU') { return 113; }
when ('NTHU') { return 114; }
when ('NCU') { return 115; }
when ('NCKU') { return 116; }
}
die 'invalid argument';
}
my $str2 = "NTU NCU NCTU NTHU NCKU";
$str2 =~ s/(\w+)/convert($1)/eg;
print $str2,$/;
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 35.194.169.177 (美国)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1589619112.A.6E9.html
※ 编辑: LiloHuang (35.194.169.177 美国), 05/16/2020 17:54:57
※ 编辑: LiloHuang (35.194.169.177 美国), 05/16/2020 17:55:24
※ 编辑: LiloHuang (35.194.169.177 美国), 05/16/2020 19:31:39