use strict;use warnings;#数值比较大小和字符串比较大小 my $str1=amp;quot;1 -the first stramp;quot;; my $str2=amp;quot;1 - the second stramp;quot;; if($str1==$str2) { print amp;quot;numericall ...……
使用perl统计字数,使用正则表达式和hash
首先去掉非显示字符(换行 空格)
其次把大写转换为小写
word.txt 原文
A coal factory in Anhui province. The United States will pursue opportunities to increase co ...……
#-1-变量使用,打印#!/usr/local/bin/perl$value=100+30+3+8;print(amp;quot;Value=amp;quot;,$value,amp;quot;\namp;quot;);#-2-变量使用,打印#!/usr/local/bin/perl$value=1024;$sentence=amp;quot;The value of ...……