作者japanet (电机模范生)
看板Perl
标题[问题] perl新手一问
时间Sat Apr 27 13:18:36 2013
不好意思请教一个问题
我的input file类似这样 这是cacti的output file
Total Cache Size: 131072
Associativity: direct mapped
Block Size (bytes): 128
Technology Size: 0.07um
Access Time (ns): 0.719224
Cycle Time (ns): 0.318145
Total dynamic Read Energy all Banks (nJ): 0.0201788
Total dynamic Write Energy all Banks (nJ): 0.00375056
Total leakage Read/Write Power Without Routing (mW): 452.626
如果我要找到"Access Time (ns):"
然後print出0.719224
不知该用哪个语法呢?
感激不尽~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 67.79.77.75
1F：→ play9091:open(name,"filename.txt") 04/27 14:30
2F：→ play9091:for $line (<name>){ 04/27 14:32
3F：→ play9091: if (line =~ m/Access Time/){ 04/27 14:33
4F：→ play9091: @sline = split(' ',$line); 04/27 14:35
5F：→ play9091: print "$sline[3]\n"; 04/27 14:36
6F：→ play9091: } 04/27 14:37
7F：→ play9091:} 04/27 14:37
8F：→ play9091:Sorry,第一行的行末没有加上分号 " ; " 04/27 14:38
9F：→ play9091:第三行的 " line " 改为 " $line " 04/27 14:38
10F：推 play9091:最近在写 Python ， Perl 反而有点生了！ 04/27 14:41
11F：→ japanet:感谢不尽~ 04/28 13:00
12F：→ japanet:可以再请教如何读多个档案进来跑这个for loop呢? 04/28 13:06
13F：推 play9091:要多加档案的话要改写吧！您有写过Perl吗？ 04/28 17:31
14F：→ play9091:外面再包一个LOOP，或是另外一种写法…… 04/28 17:31
15F：推 pshuang:print `cat file | grep "Access Time" |cut -d ":" -f 3` 05/03 18:08
16F：→ pshuang:用perl来处里shell最擅长的事，不会很累吗? 05/03 18:09
17F：→ pshuang:要多个档案 把cat file 中 file 改成变数就好 05/03 18:11
18F：推 HowLeeHi:不用多一道cat手续,直接 grep "Access Time" file省时 05/29 17:50
19F：→ HowLeeHi:然後cut -d ":" -f 2 05/29 17:52