perl 提取字符串的中数字（包括小数点）

最新推荐文章于 2025-11-21 15:28:03 发布
原创 最新推荐文章于 2025-11-21 15:28:03 发布 · 9.2k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文通过几个示例展示了如何使用Perl语言中的正则表达式来从包含单位的字符串中提取纯数字部分。首先介绍了一种方法去除所有非数字字符，然后展示了如何精确匹配带有小数点的数字。
my $x='12.0 M';
$x=~ s/[^0-9]//g;
print $x."\n";


print  "######################################################\n";


my $xx='12.67 M';
$xx=~ /(\d+.*\d)/g;
print $1."\n";


print  "######################################################\n";


my $xxx='0.00 MB';
$xxx=~ /(\d+.*\d)/g;
print $1."\n";
perl 循环截取字符串
zhaoyangjian724的专栏
12-21 1701
my $sql="where `lc`.`tb`.`xx` = 1 and `tb2` . `id2` = 2 or `id3` > 3 and `id4` >22"; #my $sql='where `lc` = 1 and `tb2` . `id2` = 2 or `id3` > 3 and `id4` >22'; foreach ($sql =~ m/(`\w+`\s*\.?\s*)/g
perl字符串如何提取数字
Black-REN
01-13 8286
$test="fsfsfs fsfsf 212 fsfs"; $test =~ /(\d+)/; print "$1\n";
Perl求中值
zsf的专栏
01-18 1812
先就按这个标题了吧，其实是求数据的中值，如果不合适请大家见谅 参考数据，感谢网友提供的资料 http://perldoc.perl.org/perllol.html http://blog.sina.com.cn/s/blog_5f8e03960100wq3r.html 大晚上的，闲来无事，碰巧遇到一批数据需要处理，就拿学习中的Perl来练手了。 程序想要实现的功能本来挺简单的，可由
Perl-提取文件中指定行的数字，并完成替换（包含代码注释）
qq_38704425的博客
08-25 690
今天在仿真log中想要把指定行中的位置的数字，替换为使用该数字处理后的数字。
perl脚本编写——提取文本中的所有数字，单行多次匹配
seu他山之石的博客
07-23 1765
perl脚本编写——提取文本中的所有数字，单行多次匹配 1.题目 针对如下的shuzi.txt文件提取文件中所有的数字。 abcv125edr345adeh47cvf 2.编写思路 a.按行读入文件 b.全局匹配，匹配到数字存入数组中 c.输出所有的数字 3.脚本如下 open IN,'<','shuzi.txt'; while(<IN>){ @shuzi = /(\d+)/g; } foreach $key (@shuzi){ print "$key\n"; } close IN;
取中值
当凌绝顶,俯瞰天下
12-03 1118
题目1097：取中值 时间限制：1 秒 内存限制：32 兆 特殊判题：否 提交：3391 解决：889 题目描述：      存在两组数组，和4个数字a,b,c,d,要求做如下操作，将第一个数组第a个数到第b个数，第二个数组的第c个数到第d个数放到一个数组中，求出合并后数组的中间值，如果有两个中间值，取下标较小的那个。 输入：
perl语言 中字符串转数字
06-21
转换规则是从字符串开头提取有效的数字部分（忽略前导空格），直到遇到非数字字符（除了小数点、指数符号等数字中允许的字符）。如果开头没有数字，则转换为0。2.使用int()函数：将浮点数或字符串转换为整数（截断...
perl将50ns的字符串转为数字
最新发布
12-06
在Perl中，可以使用正则表达式提取字符串中的数字部分（包括符号和小数），然后转换为数字。示例代码： my $str = '50ns'; if ($str =~ /([-+]?\d+(?:\.\d+)?)/) { my $num = $1 + 0; print "The number is: $...
Perl6中的数字与字符串处理
# Perl 6 中的数字与字符串处理 ## 一、Perl 6 中的有理数处理 ### 1. 有理数的表示 在 Perl 6 里，非整数会以分数形式用整数来表示。即便你写成带小数点的数字（也就是浮点数），编译器也会把它转换为分数。例如：...
perl语言数字小数点前固定三位，少数补0
11-11
首先，用户的问题是关于Perl语言实现数字小数点前固定三位不足补0的方法。我需要参考提供的引用来帮助回答。 引用内容： - 引用[1]: 讨论Perl使用机器的浮点数表示，精度有限。例如，打印π时可能显示不精确。 - ...
35、Ruby中的字符串与正则表达式详解
alice7model的博客
11-21 15
本文详细介绍了Ruby中的字符串操作与正则表达式功能。涵盖字符串的基本转换、校验、计数、删除、去重、格式化及二进制数据的pack/unpack处理，并深入讲解了正则表达式的定义、语法、工厂方法和模式匹配机制。通过丰富的代码示例，展示了如何使用 ~ 运算符和 MatchData 对象进行高效文本匹配与提取，同时提供了邮箱验证、HTML内容提取等实际应用场景，帮助开发者全面掌握Ruby中强大的文本处理能力。
perl中的字符串和数值
caz28的专栏
07-27 1万+
$string = "11"; $number = 22; $result = $string + $number; # $result = 33 perl 中字符串和数值可以互相转换，但是只是十进制的字符串。 对于字串中有非十进制字符的，从左边到第一个非十进制字符的字符串将被转换: $result = "12a34" +1; # $result = 13 如果左边第一个也不是
关于判断字符串是否是数字
Poo_Chai的博客
09-06 254
关于判断字符串是否是数字： #include<sstream> bool isNum(string s){ stringstream ss(s); int d; if(ss<<d) return true; return false; } /** #include<ctype.h> bool is digit(ch...
perl判断字符串包含
weixin_34143774的博客
10-12 2442
perl中没有判断字符串包含的函数，可以用正则表达式来实现这个功能，下面代码判断$str1是否包含$str2。 if($str1 =~ /$str2/) { ...}
Perl_控制输出小数点位数_sprintf
热门推荐
BBka要黑化！
04-20 2万+
Perl_控制输出小数点位数_sprintf   例 my $var=123.454789; $var=sprintf "%.2f",$var; print $var."\n"; #123.45 例 my $var=123.455789; $var=sprintf "%.2f",$var; print $var."\n"; #123.46 默认四舍五入 例： 输出百分比
perl字符串转义以及字符串含.号等特殊符号时的用法
直到世界的尽头
11-05 1万+
Perl中的单引号字符串不支持转义字符，双引号字符串支持转义字符 如下 双引号中的\t   \x  \r  \n是有作用的  单引号中的无作用 $ cat test_stresc.pl #!/usr/bin/perl use warnings; use strict; my $str_sq = '1Aa\t\x31\x41\x61\t\x{263a}\r\n'; my $st
perl脚本截取字符串和用正则截取字符串的两种方式
yyf960126的博客
01-07 1万+
#!/usr/bin/perl my ${a}="cac_aaa_ccc"; 1.sustr截取 my ${b}=substr(${a},4); #aaa_ccc print "${b}\n"; 2.把cac_替换为空 ${a}=~ s/(^[a-z]*_){1}//gi;#把前面//中间的替换成后面*/的值 aaa_ccc print "${a}"; 3.把cac_匹配出来之后用$'输出...
perl（1）
ASD_123_FGH_456的专栏
09-13 842
输出 print“...” @home=（，，） $home[i] 等号右侧则为[] %home=(“1”=>”xiaohong”,, ) $home{“1”} keys%home返回hash表的key值 values%home返回hash表的value值 返回值为@，顺序不一定是定义的顺序，因为hash表不在乎顺序 while(($key,$va
Perl教程 第三课
qq_38453556的博客
07-27 406
Pattern Matching and Regular Expression 模式 之从字符串中寻找特定序列的字符或者匹配某字符串的模板，模式由反斜线包含。 正则表达式，指用某种模式去匹配一类字符串 $_ = "Yahoo will close."; if (/Yahoo/){ #此处使用了匹配 print "Matched \n"; } 匹配 1.小数点 . ：匹配任何单个字符（除换行符） 2.反斜线\ ：转义字符 3.加号+ ：匹配该字符前面的字符至少一次 4.星号* ：匹配该字符前面的字符任
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值