![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
文章平均质量分 87
bu110
菜鸟一只
展开
-
《Perl语言入门》第四版习题(2)
写一个程序,计算半径为12.5的圆的周长。圆周长等于2π(π约为3.1415926)乘以半径。答案为78.5。 修改上述程序,用户可以在程序运行时输入半径。如果,用户输入12.5,则应得到和上题一样的结果。 修改上述程序,当用户输入小于0 的数字时,程序输出的周长为0,而非负数。 写一个程序,用户能输入2 个数字(不在同一行)。输出为这两个数的积。 写一个程序,用户能输入1 个转载 2009-10-13 14:41:00 · 1682 阅读 · 1 评论 -
perl 实现shell重定向功能
许多UNIX shell可以把标准输出文件(STDOUT)和标准错误文件(STDERR)都重定向到同一个文件,例如在Bourne Shell(sh)中,命令 $ foo > file1 2>&1 运行命令foo并把输出到标准输出文件和标准错误文件的内容存贮到文件file1中。下面是用Perl实现这一功能的例子: 1: #!/usr/local/bin/perl 2: 3转载 2012-10-09 10:33:05 · 5095 阅读 · 0 评论 -
《Perl语言入门》第四版习题(13)
1. [10]写一个程序,读入一串数字,将它们按照数字排序,将结果按右对齐的列打印出来。使用下面的数据进行检测:17 000 04 1.50 3.14159 -10 1.5 4 2001 90210 6662. [15]写一个程序,将下例hash 数据根据姓(last name)按照大小写无关的字母顺序进行排序,并把结果打印出来。当last name 相同时,再按照名(first name)排序转载 2009-10-29 17:19:00 · 1199 阅读 · 0 评论 -
《Perl语言入门》第四版习题(14)
1. [6]写一个程序可以转到某个特定的(写入代码中的)目录,如系统的根目录,再执行ls –l 得到那个目录的目录列表。(如果你的是non-Unix 系统,使用你自己的系统命令,得到那个目录的详细列表)2. [10]修改第一题的程序,将结果输出到当前目录的文件ls.out 中。错误的结果输出到文件ls.err 中。(你不需要做任何特殊的事,这两个文件中的任意一个都可能是空的。)3. [8]写一个原创 2009-10-29 15:20:00 · 1230 阅读 · 0 评论 -
《Perl语言入门》第四版习题(12)
1. [12]写一个程序要求用户输入一个目录名,再改变到那个目录去。如果用户输入的值是空白,则转变到他/她的主目录去。改变后,将这个目录下的普通内容(不包括有点(.)开头的项)按照字母顺序列出来。(提示:使用目录句柄还是glob 更方便?)如果没有成功改变目录,提示用户,但不要尝试输出目录里的内容。2. [4]修改程序,使之包含所有的文件,不仅仅是那些不以点(.)开头的文件。3. [5]如果你在前原创 2009-10-23 15:09:00 · 1356 阅读 · 0 评论 -
《Perl语言入门》第四版习题(11)
1. [15]写一个程序,读入命令行中的一串文件,报告其是否可读,可写,可执行,或不存在。(提示:如果一个函数能一次对一个文件进行所有的检测将非常有帮助。)如果一个文件被执行了chmod 0 操作,将报告什么?(在Unix 系统中,chmod 0 some_file 将一个文件变成不可读,不可写,不可执行的)在大多数shell 中,星号(*)表示当前目录中的所有的普通文件。也就是说,可以输入像./原创 2009-10-22 15:53:00 · 1315 阅读 · 0 评论 -
《Perl语言入门》第四版习题(10)
1. [25]写一个程序,能重复要求用户猜测某个在1 到100 之间的数字,直到猜对为止。你的程序应当能随机的产生一个数字,使用公式int(1 + rand 100)◆。当用户猜测错误时,程序应该回应“Too high”或者“Too low”。如果用户输入quit或exit,或者回车时,程序应立即退出。如果用户猜测正确,程序也退出。 1、#!/usr/bin/perl -wuse st原创 2009-10-20 15:10:00 · 1298 阅读 · 0 评论 -
《Perl语言入门》第四版习题(9)
1. [7]写一个模式,它能匹配$what 当前的内容的3 份连续拷贝。也就是说,如果$what 为fred,则此模式能匹配fredfredfred。如果$what 为fred|barney,则此模式能匹配fredfredbarney, barneyfredfred, barneybarneybarney,或者其它的变种。(提示:你应当在程序的顶端设置$what 的值,如my $what = ‘f原创 2009-10-20 15:14:00 · 1839 阅读 · 0 评论 -
《Perl语言入门》第四版习题(8)
1. [8]使用模式测试程序。创造一个模式能匹配字符串match。使用字符串beforematchafter 进行测试。输出结果将其三部分放在正确位置了吗?2. [7]使用模式测试程序,创造一个模式能匹配任何单词(/w 意义下的单词),但这个单词必需以字母a 结尾。它匹配wilma而没匹配barney 吗?它匹配Mrs. Wilma Flintstone 吗? wilma&fred 呢?使用前一章原创 2009-10-15 16:43:00 · 1509 阅读 · 0 评论 -
《Perl语言入门》第四版习题(3)
写一个程序,将一些字符串(不同的行)读入一个列表中,逆向输出它。如果是从键盘输入的,那在Unix 系统中应当使用CTRL+D 表明end-of-file,在Windows 系统中使用CTRL+Z. 写一个程序,读入一串数字(一个数字一行),将和这些数字对应的人名(下面列出的)输出来。(将下面的人名列表写入代码中)。fred betty barney dino Wilma pebbles b转载 2009-10-13 14:40:00 · 1783 阅读 · 0 评论 -
《Perl语言入门》第四版习题(5)
写一个程序,类似于cat,但保持输出的顺序关系。(某些系统的名字可能是tac。)如果运行此程序:./tac fred barney betty, 输出将是文件betty 的内容,从最后一行到第一行,然后是barney, 最后是fred, 同样是从最后一行到第一行。(注意使用./确保调用的是你自己的程序,而非系统提供的) 写一个程序,要求用户在不同的行中输入一些字符串,将此字符串打印出来,规转载 2009-10-13 14:36:00 · 1804 阅读 · 1 评论 -
《Perl语言入门》第四版习题(6)
1.[7]写一个程序,提示用户输入given name(名),并给出其对应的family name(姓)。使用你知道的人名,或者表6-1(如果你在计算机上花了太多时间,以致什么人都不认识):表6-1 样本数据输入输出fred flintstonebarney rubblewilma flintstone2.[15]写一个程序,读入一串单词(一个单词一行)◆,输出每一个单词出现的次数。(提示:如果某原创 2009-10-14 11:37:00 · 1570 阅读 · 0 评论 -
《Perl语言入门》第四版习题(7)
1. [10]写一个程序,输出所有提到fred 的行(不要输出其它行)。如果输入字符串Fred, fredrick, Alfred,能匹配上吗?准备一个小的文本文件,其中包含如:“fred lintsotne”以及类似的信息。使用这个文本文件作为此程序的输入,以及本节下面练习的输入。2. [6]修改上面的程序,允许匹配Fred。现在它能匹配,Fred, fredrick, Alfred 吗?(将这原创 2009-10-14 20:01:00 · 1771 阅读 · 1 评论 -
《Perl语言入门》第四版习题(4)
写一个名为&total 的子程序,返回一列数字的和。提示:子程序不应当有任何的I/O 操作;它处理调用的参数,返回处理后的值给调用者。结合下面的程序来练习,它检测此子程序是否正常工作。第一组数组之和我25。my @fred = qw{ 1 3 5 7 9 };my $fred_total = &total(@fred);print "The total of /@fred is $fred_t转载 2009-10-13 14:39:00 · 1133 阅读 · 0 评论 -
perl脚本并发多条命令
#!/usr/bin/perl -w use strict; use Parallel::ForkManager; my $MAX_PROCESSES = 100; my $pm = new Parallel::ForkManager($MAX_PROCESSES); my @exp = ( ["expect /opt/agentc/temp/204064023_61_10.224.原创 2012-09-26 14:14:56 · 2808 阅读 · 0 评论