[問題] 如何取得（）內不定長度的字串

看板Perl作者iloveyoungae (迷上西方天使)時間15年前 (2010/05/01 16:59)推噓0(0推 0噓 6→)

留言6則, 2人參與討論串1/2 (看更多)

大家好小弟最近在練習ㄧ個題目將.lib裡面的cell 取出來並且依照cell名稱另存新檔目前，已經可以成功的取出來但是名稱上面依舊有著（），我只想保留裡面的名稱例如 cell (FADDS1), 我只想要取出FADDS1而不要有（）但是每個名稱不見得ㄧ樣長度不知道各位大大，有沒有好的想法可以建議ㄧ下謝謝 open(open_file, "12.txt") or "error file!!"; my $Out; my $name; while (<open_file>) { if ($_=~ m/^cell/g) { if ($_=~ /\s(.*\b.)/) { $name=$1; open(write_file, ">$name.txt") or "error file!!"; } print $_; print write_file $_; $Skip= 1; next; } if ($Skip==1) { $Out .=$_; print $_; print write_file $_; } if ($_=~ m/^}/g) { $Skip=0; next; close write_file; } } close open_file;my $Skip; ######---------12.txt---------###### library(std_ff) { /*general attributes */ delay_molel : table_lookup; in_palce_swap_mode : match_footprint; cell (DFADDS1) { cell_footprint : addf; area : 126.7200; pin(A) { direction : input; capacitance : 0.00975; } pin(B) { direction : inoutput; capacitance : 0.1975; } pin(CI) { direction : utput; capacitance : 0.1980; } } cell (DFADDS2) { cell_footprint : addf; area : 126.7200; pin(A) { direction : input; capacitance : 0.88975; } pin(B) { direction : inoutput; capacitance : 0.1900; } pin(CI) { direction : utput; capacitance : 0.1080; } } cell (DFADDS2) { cell_footprint : addf; area : 126.7200; pin(A) { direction : input; capacitance : 0.88975; } pin(B) { direction : inoutput; capacitance : 0.1900; } pin(CI) { direction : utput; capacitance : 0.1080; } } cell (DFADDS4) { cell_footprint : addf; area : 126.7200; pin(A) { direction : input; capacitance : 0.86975; } pin(B) { direction : inoutput; capacitance : 0.1902; } pin(CI) { direction : utput; capacitance : 0.0080; } } -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.193.176.59