Re: [問題] print 特定段落
#!/usr/bin/perl -w
use strict;
my $txtflag=0;
open FH, "test.txt";
while (<FH>){
$txtflag=1 if /^sage\s\d+\sP/i;
print "$_" if (/^\s*name/ || /^sage\s\d+\sP/i) && $txtflag==1;
# print "$_" if (s/^\s*name/name/ || /^sage\s\d+\sP/i) && $txtflag==1;
# 消掉name前空白
$txtflag=0 if /^sage\s\d+\s(\w)/i and $1 ne "P";
}
close FH;
========
test.txt
========
sage 1 g
{
name "..............."
name "............"
number "....."
number "....name....."
}
sage 2 P
{
name ".....2222....."
name ".....2222..."
number "..name.."
number "...name......"
}
sage 3 F
{
name "..............."
name "....name......"
number "....."
number "..........."
}
sage 4 P
{
name "....4444......"
name "....44444...."
number "....."
number ".....name......"
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.115.146.194
※ 編輯: abreaction 來自: 59.115.146.194 (08/15 12:30)
※ 編輯: abreaction 來自: 59.115.146.194 (08/15 12:46)
討論串 (同標題文章)
完整討論串 (本文為第 4 之 6 篇)：
1
3
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
