#!/usr/bin/perl use strict; use warnings; my $log_file = '/home/aaa/log'; open(LOG,"){ print if /\[error]|error/; } close(LOG); 解释:从文件中打印包含“[error]”或者“error‘关键字的行。 本文来自ChinaUnix博客,如果查看原文请点:http://blog.chinaunix.net/u/25264/showart_1728481.html
by huifeideluotuo - Linux文档专区 - 2008-12-18 22:51:41 阅读(958) 回复(0)
用open(CONTEXT , "$contextfile") ||die "Can't read context file!";
my @file =
RT 比如: test.pl #!/usr/bin/perl my $n = 1; my $cmd="echo"; my $arg = $ARGV[0]; while ($n < 10) { system("$cmd $arg"); $n++; } 执行: # perl test.pl "\$n" [ 本帖最后由 miniqq 于 2009-11-14 10:43 编辑 ]
各位老哥,老姐,小弟有个问题想让大家帮忙看看 需求是这样的: 在Windows系统D:\perl目录下有只有一个EXE文件(这个文件的文件名不确定,但可以确定文件名中有“windows”这个字符串。例如,文件名是abcd_windows_i386.exe 或者是1245_windows_x86-64.exe) 首先需要用perl确定这个文件名,并把此文件名赋值为变量。然后运行这个执行文件。 如果此EXE文件运行时需要配合参数,又该当如果实现 啊。 希望各位老哥,老姐...
foreach(
如: Query= nmtca_Cluster3542.seq.Contig1 [178 - 513] (112 letters) Database: g:/blast/wormpep206.fasta 24,143 sequences; 10,671,996 total letters Searching..................................................done Score E equences producing significant alignments: (bits) Value Y54F10AM.8 Unknown 101 8e-023 F09B12.3 Unknown 82 4e-017 Y37D8A.2 Unknown 55 7e-009 Score = 101 bits (251), Expect = 8e-023 ...
我想 在perl 脚本中执行 perl的一行命令 perl -wni.bak -e 'if ( $_ =~ m/.*FileRef/ ){ s/Car/UserCar/g}' filename 用过system 报错:Can't find string terminator "'" anywhere before EOF at -e
如果我有一个 aa.txt文本里面的内容是 IN A www.naodi.com IN A www.qq.com IN A www.naodi.com 当我要取出第3行的www.naodi.com 我,此时我应该要获取文本的行数,我的问题是如何获取到他的行数,获取到行数如何将他取出:mrgreen:
[code]#!/usr/bin/perl use strict; use LWP::Simple; my $content = "jjj87784834hMC=[aak4i534hkgke]jdhjkh4kj3hjkgd联系人:鸟人#dfdglk43543"; my ($tld,$lian) = $content =~ /MC=\[(.*)]+联系人:(.*)#/; print $tld $lian;[/code] 请教下如何把[ ] 和联系人 取出来