# | Line 39 | Line 39 | while ( <STDIN> ) { | |
---|---|---|
39 | print "SE_SIZE = $val\n"; | |
40 | $openTag=0; | |
41 | } | |
42 | + | |
43 | + | if($_ =~ m|.*<LFN>(.*)|s) |
44 | + | { |
45 | + | $openTag=1; |
46 | + | $lines=0; |
47 | + | $val=$1; |
48 | + | chomp($val); |
49 | + | } |
50 | + | if($_ =~ m|(.*)</LFN>.*|s) |
51 | + | { |
52 | + | $val.=$1; |
53 | + | chomp($val); |
54 | + | if($val =~ /\s*(\S*)\s*/s) |
55 | + | { |
56 | + | $val=$1; |
57 | + | } |
58 | + | print "LFN = $val\n"; |
59 | + | $openTag=0; |
60 | + | } |
61 | + | |
62 | if($_ =~ m|.*<ProcessedDataset>(.*)|s) | |
63 | { | |
64 | $openTag=1; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |