Bon déjà, je met ton code avec la présentation comme y faut
Code :
- #!/usr/bin/perl -w
- open(PARSE,'/tmp/FILETOP') or err_trap(" Files not found" );
- while ( $line=<PARSE> ) {
- ## parse each xml file
- print "NE Name :$line";
- if ( $line=<PARSE> ) {
- #print "NE $line";
- }
- if ( $line=<PARSE> ) {
- # print "NE Type $line";
- @champ = split(/#/,$line);
- $result = $champ[0];
- print "NE Type :$result";
- }
- if ( $line=<PARSE> ) {
- print "\nNE RELEASE :$line";
- }
- }
- close(PARSE);
|
Et qu'est-ce que c'est que ces lignes bizarres là ? Y a des if ( $line=<PARSE> ) partout dans ton code. Je me demande si tu sais bien à quoi ça sert ?
---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO