Text processing/1: Difference between revisions

→‎{{header|Perl}}: Fixed indentation
(→‎{{header|Perl}}: Changes thanks to Botje from #perl on Freenode.)
(→‎{{header|Perl}}: Fixed indentation)
Line 1,301:
# extract field info, skipping initial date field
my ($date, @fields) = split;
while (@fields and my ($datum, $flag) = splice @fields, 0, 2) {
if(($flag+1<2)){
$nodata++;
Anonymous user