我想通过echo每10分钟打印下面的“还在继续等10分钟” 为了每10分钟打印一行，请在echo命令之前build议添加什么条件？ 备注 – 计数器每增加一个周期（1秒），我不想为此脚本添加附加延迟（睡眠命令）！ Until [ ] do Counter=1 sleep 1 let counter=$counter+1 [ …. ] && echo " still in process wait another 10 min …." done
请build议如何仅匹配file.txt中的有效IP（255.255.255.255），并只将有效IP插入VALID_IP.txt文件 （例如，参见VALID_IP.txt） 解决scheme应该在我的ksh脚本中实现（所以perl或sed或awk也可以） 更多file.txt e32)5.500.5.5*kjcdr ##@$1.1.1.1+++jmjh 1.1.1.1333 33331.1.1.1 @5.5.5.?????? ~3de.ede5.5.5.5 1.1.1.13444r54 192.9.30.174 &&^#%5.5.5.5 :5.5.5.5@%%^^&* :5.5.5.5: **22.22.22.22 172.78.0.1()*5.4.3.277 VALID_IP.txt文件的例子 1.1.1.1 192.9.30.174 5.5.5.5 5.5.5.5 5.5.5.5 22.22.22.22 172.78.0.1
我的系统中安装了perl 5.8.8版本。 我在/ usr / local / bin / perl上安装了5.10.0。 但是当我重新启动我的linux的盒子现在默认的perlpath已经改变。 which perl /usr/local/bin/perl 我想使用perl版本5.10.0，但也想保持默认path/ usr / bin / perl（版本5.8.8）。 我试图在我的bashconfiguration文件中做一个别名，但做完这个后，我不能使用perl 5.10。 你可以请build议我解决这个问题的方法。
有没有人知道如何通过数以千计的子目录search只包含1个文件，不超过1个文件的所有目录？ 任何build议使用什么工具或简单的代码片段？
我有一个示例perl脚本，我需要使用cron每天运行，任何人都可以让我知道使用cron作业的确切语法。 提前致谢。
我正在尝试创build一个小型服务来监视和终止带有FIN标志的套接字。 我可以得到他们与tcpdump （我也尝试过tcp [13]＆1）： tcpdump "tcp[tcpflags] & tcp-fin != 0" tcpkill假设使用与tcpdump相同的接口，但是它的工作原理不一样。 我已经尝试了一堆命令，但它应该是（-i eth0可选）： tcpkill -9 "tcp[tcpflags] & tcp-fin != 0" 其中说（但没有别的，成功的tcpkill输出数据）： tcpkill：监听eth0 [tcp [tcpflags]＆tcp-fin！= 0] 看看源代码，应该将正确的filter传递给pcap（在[]括号之间）。 使用Net :: Pcap的perl脚本我可以确定filter工作正常。 我不知道我在做什么错，或者如果它是旧版本的tcpkill / pcap这是一个问题。 任何帮助tcpkill或帮助使用perl的Net :: Pcap杀死套接字将不胜感激。 谢谢！ #!/usr/bin/perl use strict; use warnings; use Net::Pcap; my $err = ''; my $dev = 'eth0'; my ($address, $netmask); Net::Pcap::lookupnet($dev, […]
我有一个Apache服务器设置为使用mod_perl。 我已经设置了使用Perl模块MyModule处理所有请求。 这是我的httpd.conf一部分： LoadModule perl_module modules/mod_perl.so <Directory /> Order Deny,Allow Allow from all </Directory> PerlModule MyModule <Location /> SetHandler modperl PerlResponseHandler MyModule </Location> 这似乎工作正常，除了顶级目录（即www.mysite.com/）没有被发送到MyModule 。 怎么了？
我想将所有的HTTP代理stream量redirect到perl或php脚本。 我有一个工作的鱿鱼设置，并在我的squid.conf中 url_rewrite_program "c:\\squid\\redirect.pl" 但是当我在控制台中启动squid时，它存在exception程序终止 ，这是在cache.log中： 2012/03/23 19:26:12| helperOpenServers: Starting 5 'c:\squid\php\redirect.pl' processes 2012/03/23 19:26:12| ipcCreate: CHILD: c:\squid\php\redirect.pl: (8) Exec format error 2012/03/23 19:26:12| ipcCreate: PARENT: OK read test failed 2012/03/23 19:26:13| –> read returned 4 PHP脚本也一样。 当我直接在控制台中执行时，脚本工作正常。 perl脚本的内容： #!/usr/bin/env perl $|=1; while (<>) { $url = m/^([^ ]*)/; if ($url !~ /^http:\/\/www\.hostname\.com/) { $url […]
我想做出5个样本的平均值，并计算出一个值： 当前输出 – 我把5分钟的分辨率，但收到5个样本： $ rrdtool fetch file.rrd AVERAGE -r 300 –start 1200000000 –end 1200000300 1200000000: 1.3938888889e+00 1200000060: 4.9572222222e+00 1200000120: 7.1675000000e+00 1200000180: 1.0982500000e+01 1200000240: 7.6136111111e+00 1200000300: 7.2169444444e+00 预期结果： $ rrdtool fetch file.rrd AVERAGE -r 300 –start 1200000000 –end 1200000300 1200000000: 1.3938888889e+00 1200000300: x.xxxxxxxxxxe+00 – average 我想用rrdtool或perl，bash等其他语言来计算它。
刚开始与perl（试图让一个请求跟踪器安装工作）：出于某种原因，我不能安装Cache :: Cache！ （或者testing失败）：注意：在CentOS 5.8 Final（x86_64,2.6.18-308.13.1.el5），Apache 2.2.23上的perl 5.8.8（我没有看到2.6.18-308的报告在cpan.org上，但某些版本的2.6.18-xyz失败（主要是alpha5或xend4版本是失败），但大多数情况下， 我已经尝试过与cpan，cpanm，我试图使用下午卸载来摆脱它，但它说，它不存在.. cpanm Cache::Cache –> Working on Cache::Cache Fetching http://www.cpan.org/authors/id/J/JS/JSWARTZ/Cache-Cache-1.06.tar.gz … OK Configuring Cache-Cache-1.05 … OK Building and testing Cache-Cache-1.06 … FAIL ! Installing Cache::Cache failed. See /root/.cpanm/build.log for details. 所以我： 更多/root/.cpanm/build.log 输出的相关部分是（似乎是）： Manifying blib/man3/Cache::NullCache.3 PERL_DL_NONLAZY=1 /usr/local/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/1_test_cache_interface.t …………….. ok t/2_test_memory_cache.t ……………….. […]