作者petertc (PTC)
看板Perl
标题Re: [问题] 关於字串
时间Mon Sep 27 21:29:50 2010
※ 引述《sqrt1089 (李崩子)》之铭言：
: 假设我读入一个档案
: lee David
: wang steve
: lee eric
: wu hunry
: .. ..
: .. ..
: .. ..
: 是个两行的档案，一行是姓，一行是名。
: 想要结果
: 输入：lee
: 会印出：
: David
: eric
: ..
: ..
: 就是所以是lee的印出来
: 以下是我初步的程式：
: open FILE, "c:aa.txt";
: #print <FILE>;→这是测试是否有成功读取档案
: chomp(my$a=<>);
: ..
: ..
: print"";
: close FILE;
: 中间我卡了快一个礼拜整个没头绪，骆驼书第14章有练习过，但还是不知道怎下手
: (一直很想用find,但是perl似乎没这指令.....)
#!/usr/bin/perl
#brute force way
chomp($input=<STDIN>);
while (<>) {
if (/(\S+)\s+(\S+)/) {
if($1 eq 'lee'){ print "$2"; }
}
请强者补完高级版本~
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.161.149.99