※ 引述《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