请问下面这段用Perl怎么写,先谢啦

open F,"1.txt" or die $!;@array=<F>;foreach(@array){if(/IP address:\s*(.*)/){$ip=$1; print "$ip\n"} }

截取Fastehernet之后的字符和duplex之前的字符 如果Duplex值 等于Half 或者Full，运行easy的send_command方法

首先你要知道 perl 里面有一个叫 @ARGV 的预设数组是用来装载传入参数的, 例如:> script.pl "Hello" "World"script.plprint "@ARGV"; # 打印出: Hello WorldGetopt 系列就是 @ARGV 的操作将之伸延下去, 那麼, 根据你写出来的, 我就可以写成这样:> script.pl -V -h -i -s -v --w=...

类似下面的写法，先提取出来，之后直接写入文件my $H;open $H, "+>", "out.log";while (<DATA>) {if (/\/translation="(.*?)"/) {print $1, "\n";print $H "$1\n";}}close $H;__DATA__/aa=123/bb=456/translation="MMMDDD"/aa=123/bb=456/translation="MMMDDD"/aa=123...

这个程序大致意思是查看指定的程序是在ps列表中出现的次数 例如，你在命令行执行这个程序 ./processMonitor.pl ps klogd 就可以在生成的log文件中看到结果了 下面给你稍微加了些注释，如果基本语法比较熟悉的话，应该可以看懂了 !/usr/bin/perl -w name: processMonitor.pl written by trizsolo usage:...

AAA =~ s/[\n\r]*//g =~s/A/B/g 在模式匹配是 替换，就是将内容A替换成内容B，后面的g是全局，就是全部替换成。[ AB ]出现在中括号的是任意的其中一个，\n \r是换行符 ，[\n\r]* *号是0个或以上 总起来：将$AAA中的所有的换行符全部替换为空，也就是将所有换行去掉。

while($content =~ /(\]*?\>(.+?)\<\/h3\>)/isg) #先把h3标签取出来 { my $x = $2;x =~ s/\<[^\>]*?\>//g; #再去掉所有的html标签 print $x; #剩下的就是标题的内容了 }

这个用awk很方便就能实现，用perl的话可以这样 !/usr/bin/perl print "input file name\n";input = <STDIN>;print "output file name\n";output = <STDIN>;print "phase to search \n";phase = <STDIN>;chomp($phase);open(IN,"<$input")||die "fail to open $input";open(OUT,">...

首先搞懂顺序问题：从perlre文档里面关于capture buffers的描述可以看出：Capture buffers are numbered from left to right，编号是从左到右的。也就是说，对于你这个表达式，最外面是$1, 中间是$2， 最里面是$3。但下面还有一句：but inside this construct the numbering is restarted for each branch...

不过这里看到的是, 这不是个直接运行的程式..而是要在 shell 里打 : perl "yourscript.pl" "SomeFile" 才能执行的,你要先准备好一个档案 当作参数, 丢入去运行.如果你懒得进入 shell, 你可以将第一句替代成 :my $in = "c:/test.txt";然後自己在 c:\ 入面做一个 test.txt 档 打开 ...