• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

寒假【perl语言学习脚本】5.1 5.2 5.3

原作者: [db:作者] 来自: [db:来源] 收藏 邀请


#!/usr/bin/perl -w
use strict;
print reverse <>;

#!/usr/bin/perl -w
use strict;
print “Enter some lines,then press ctrl-z:\n”;
chomp (my @lines=);#需要用my来创建新的私有数组
print “1234567890” x 4 ,"\n"; #标尺行
foreach my KaTeX parse error: Expected '}', got 'EOF' at end of input: …rintf "%20s\n",line;#字符串内插,设定的字段宽度 前面都是空格,右对齐
}

print “another way of using the default variable:\n”;
foreach (@lines){
printf “%20s\n”,KaTeX parse error: Expected 'EOF', got '}' at position 5: _; }̲ ![在这里插入图片描述](h…; }
print "The Width of the Rule Line Width = "; width=&lt;STDIN&gt;;print&quot;1234567890&quot;x(width = &lt;STDIN&gt;; print &quot;1234567890&quot; x (width/10);
foreach(1…9) { if(&lt;=(_ &lt;= (width%10)) { print KaTeX parse error: Expected 'EOF', got '}' at position 4: _; }̲ } say; foreach…
; }

#!/usr/bin/perl -w
use strict;
print “what column width would you like?”;
chomp (my KaTeX parse error: Expected 'EOF', got '\n' at position 60: …n press ctrl-z:\̲n̲"; chomp (my @l…width/10)*2) ,"\n";
foreach (@lines){
printf "%KaTeX parse error: Expected 'EOF', got '\n' at position 9: {width}s\̲n̲",_;#(%s代表字符串格式)字符串内插,设定的字段宽度 前面都是空格,右对齐
#width{width}和width一样,花括号只是便于分隔,跟在shell中相同
}
print “1234567890” x ((KaTeX parse error: Expected 'EOF', got '\n' at position 16: width+9)/10) ,"\̲n̲"; #对x右边的操作数是取整…width,KaTeX parse error: Expected 'EOF', got '}' at position 5: _; }̲ #print (width/10);


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Perl IO:操作系统层次的IO发布时间:2022-07-22
下一篇:
perl智能匹配操作符~~发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap