出几个题

devel

1,怎么取的本地系统的HOSTNAME和设置HOSTNAME？
2.怎么从某一服务器取的它的时间？
3.怎么删除一个非空的目录？
4.计算圆周率，精确到1000个扇区(这是数学问题)？

欢迎有多种解题方法！！ :help :help

ltkun

perl? 干吗要用perl？

devel

其实PERL有它的优势的。。。PERL有良好的跨平台性，能在不同的机器运行。。。。SHELL只有UNIX/LINUX能用吧？而且PERL比较C容易入门和开发(指编辑的速度)。特别对于网络，有很多的功能包都是现有的，就不用自己在写函数等的啦。。所以学PERL有好处的。。。
请大家也说说自己的看法。。


取得和设置主机名可以这样：

1. 
   
2. #!/usr/bin/perl -w
   
3. #system : RedHat 9.0
   
4. print " local host name is $ENV{HOSTNAME}\n";
   
5. $ENV{HOSTNAME}="new host name";
   
6. print " The new host name is $ENV{HOSTNAME}\n";
   

复制代码

the_threeeyes

请教一下$ENV{HOSTNAME}是什么？
内定的环境变量吗？

devel

最初由 the_threeeyes 发表
请教一下$ENV{HOSTNAME}是什么？
内定的环境变量吗？

是的ENV是environment的缩写。。
同样适用于其他的环境变量。。。

the_threeeyes

这样好，要不从文件读取，设置要麻烦一点了

devel

打印出所有的环境变量。

1. 
   
2. #!/usr/bin/perl -w
   
3. foreach(keys %ENV) {
   
4. print "$_  $ENV{$_}\n";
   
5. }
   

复制代码

CU的bloves 这样也是打印出所有的环境变量：

1. 
   
2. for(keys %ENV){
   
3. print $_,"\t","=> ",$ENV{$_},
   
4. print "\n";
   
5. }
   

复制代码

PERL和其他语言一样，都有控制环境变量的关键字，象PERL的$ENV

the_threeeyes

删除非空目录应该用模块File::path吧
里面有两个子程序：
mkpath(\@list,$verboseFlag,$permissionMode);
三个参数：一个包含待建目录的数组访问，一个布尔标识指示待建目录是否很长，一个文件状态是待建目录的权限状态
rmtree(\@list,$verboseFlag,$skipDirs);
三个参数：一个包含需删除目录列表的数组的访问，一个布尔标识为Ture时引起rmtree以较详细的方式工作，会显示出删除了哪些目录，后一个布尔标识为Ture时忽略没有写权限的目录。