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

perl打印乘法表

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

最近在看《Perl高效编程》,很赞的一本书~书上提到了打印乘法表的一个例子~借这个小例子重新学习perl,由其是引用这块。

这个例子包括了不少基础知识,有创建二维数组,引用的自动带入等等。

直接上代码了:

 1 #!/usr/bin/perl
2 use strict;
3 use Getopt::Long;
4 my ($matrix,$num,$flag);
5 my $maxnum=9;
6 GetOptions("n:i"=>\$num,
7 "h"=>\$flag,);
8 die "num is not valid" if (!defined $num)||$num>$maxnum||$num<0;
9 for(my $i=0;$i<=$num;$i++){
10 for(my $j=0;$j<=$num;$j++){
11 $matrix->[$i][$j]=$i*$j;
12 }
13 }
14 my $format='%2d ' x (@{$matrix});
15 printf "i*j $format\n",0 .. $num;
16 foreach (0 .. $num){
17 printf "%2d $format\n",$_,@{$matrix->[$_]};
18 }




鲜花

握手

雷人

路过

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

请发表评论

全部评论

专题导读
上一篇:
Perl按行分割文件发布时间:2022-07-22
下一篇:
mod_perl输出的奇怪的http响应头发布时间: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