perl模块_List::Util

1加2加3加4 … 加到100,试了一下还是perl最快
需要用到perl的List::Util模块.

  1. [root@centos perl]# more plus.pl
  2. #!/usr/bin/perl -w
  3. use strict;
  4. use List::Util qw[sum];
  5. my $t = sum(1..100);
  6. print "$t\n";
  7. [root@centos perl]# perl plus.pl
  8. 5050

shell取巧的方法也很简单,利用seq与sed和bc
seq生成数字,sed将空格替换为加号,通过管道传递给bc进行加法运算.

  1. [root@centos perl]# seq -s " " 100|sed 's/ /+/g'|bc
  2. 5050

shell循环for-while-seq

shell的bash循环1-100数字

  1. #!/bin/sh
  2. while :;do
  3.    ((++i))
  4.    echo $i
  5. ((i==100))&&break
  6. done

Read more »

linux系统下的计算器

没接触,还真没去动过,linux下如何结算普通的加减乘除呢?这时候我肯定会想到xp(那是很久以前的事情了…)Google计算器百度计算器(不然怎么会说web应用正在快速发展?)
我知道的linux下也可以做这些计算,学到的有这些:

  1. root@debian:~# echo $((3+1))
  2. 4
  3.  
  4. root@debian:~# awk 'BEGIN{a=3+1;print a}'
  5. 4

Read more »

1 1