<br><div class="gmail_quote"><br>Since it's a fixed format, I would go with unpack (inventing appropriate widths)<div><br></div><div>my ( $zone, $supply, $exhaust, $fan, $flow ) = unpack "A25A10A10A10A10" $line;</div>
<div>$supply   += 0;  # convert strings to numbers</div>
<div>$exhaust += 0; </div><div>$fan        += 0; </div><div>$flow       += 0;</div><div><br></div><div>and work from there<br><br><div class="gmail_quote"><div class="im">On Fri, Oct 19, 2012 at 9:43 PM, Chris Jones <span dir="ltr"><<a href="mailto:cj@enersave.ca" target="_blank">cj@enersave.ca</a>></span> wrote:<br>

</div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5">
<div>
I pull data from long files in that are in a fixed format, ascii
report.<br><br>
For example:<br>
<font face="Courier New, Courier">
                             
SUPPLY  
EXHAUST            
MINIMUM<br>
    
ZONE                      
FLOW     
FLOW      
FAN      FLOW<br>
    
NAME                    
(CFM )    (CFM )     
(KW)    (FRAC)<br><br>
Kitchen Area 1C Spc zn        
2750.     1400.    
0.249     1.000<br>
Kitchen Area 1C Pl
zn            
0.        0.    
0.000     0.000<br>
</font>
                                                                 
<br>
The Zone names are a max a maximum of 25 characters - spaces
allowed.   I want to split the lines into the zone name field
and the 4 number fields:  I am hoping the first pattern will leave
the last character and remove the trailing spaces up to the maximum of 25
characters (assuming the user would have at least one character in the
zone name.).<br><br>
I am hoping the following does the trick but I think the first pattern
will end up removing the last character in the zone name:<br><br>
my @zoneLine = split /[\w\s{0,25)$]/+\w{4}/, $inLine;<br><br>
At any rate, the above gives me a compile error:<br><br>
Search pattern not terminated at Test-Split-1.pl line 5.<br>
 <br>
Any help appreciated!<br><br>
<br>
<u></u><p><u></u>
>><br>
Christopher Jones, P.Eng.<br>
Suite 1801, 1 Yonge Street<br>
Toronto, ON M5E1W7<br>
Tel. <a href="tel:416-203-7465" value="+14162037465" target="_blank">416-203-7465</a><br>
Fax. <a href="tel:416-946-1005" value="+14169461005" target="_blank">416-946-1005</a><br>
email <a href="mailto:cj@enersave.ca" target="_blank">cj@enersave.ca</a><br>
</p></div>

<br></div></div>_______________________________________________<br>
toronto-pm mailing list<br>
<a href="mailto:toronto-pm@pm.org" target="_blank">toronto-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/toronto-pm" target="_blank">http://mail.pm.org/mailman/listinfo/toronto-pm</a><br>
<br></blockquote></div><br></div>
</div><br>