[Perl] Saut de ligne + extraction fichiers

lami20j@debian:~/trash$ cat ccm.pl
#!/usr/bin/perl
use warnings;
use strict;

while (<DATA>){
  next unless /CO|<!\[CDATA/;
  s/[\[<!>\]]//g;
  s/(cdata)/$1,/i;
  s/\s+/,/g;
  s/,$//;
  print;
}
print "\n";
__END__
<TABLE>
<ROW>
<SITNAME>
CO_DB2_Appl_CatCache_Hit_Low
</SITNAME>
<TEXT>
<![CDATA[An application experiences low catalog cache hit ratio]]>
</TEXT>
<AFFINITIES>
00000000000000000000W0000000000000########F
</AFFINITIES>
<PDT>
<![CDATA[*IF *VALUE KUDDB2APPLGROUP00.cat_cache_hit_ratio *LT 50]]>
</PDT>
lami20j@debian:~/trash$ perl ccm.pl
CO_DB2_Appl_CatCache_Hit_LowCDATA,An,application,experiences,low,catalog,cache,hit,ratioCDATA,*IF,*VALUE,KUDDB2APPLGROUP00.cat_cache_hit_ratio,*LT,50

lami20j@debian:~/trash$ cat ccm.pl
#!/usr/bin/perl
use warnings;use strict;

while (<DATA>){
  next unless /CO|<!\[CDATA/;
  s/[\[<!>\]]//g;
  s/cdata//i;
  s/\n/;/;
  print;
}
print "\n";
__END__
<TABLE>
<ROW>
<SITNAME>
CO_DB2_Appl_CatCache_Hit_Low
</SITNAME>
<TEXT>
<![CDATA[An application experiences low catalog cache hit ratio]]>
</TEXT>
<AFFINITIES>
00000000000000000000W0000000000000########F
</AFFINITIES>
<PDT>
<![CDATA[*IF *VALUE KUDDB2APPLGROUP00.cat_cache_hit_ratio *LT 50]]>
</PDT>
lami20j@debian:~/trash$ perl ccm.pl
CO_DB2_Appl_CatCache_Hit_Low;An application experiences low catalog cache hit ratio;*IF *VALUE KUDDB2APPLGROUP00.cat_cache_hit_ratio *LT 50;

#!/usr/bin/perl
use warnings;use strict;

my @sit = glob("*.sit");
open ECRIRE,">:crlf","resultat.txt"
   or die "E/S : $!\n";

foreach (@sit){
  open F_LIRE,"<:crlf","$_" or warn "E/S : $!\n";
  while (<F_LIRE>){
    next unless (4..4 or 7..7 or 13..13);
    s/[\[<!>\]\(\)]//g;
    s/cdata//i;
    s/\r?\n/;/;
    print ECRIRE;
  }
print ECRIRE "\n";
close F_LIRE;
}
close ECRIRE;
__END__