#!/usr/bin/perl use warnings; use strict; my @fields; my $line; my @lines; my @values; my $i; my @resultline; my $dir = './FXE'; foreach my $fp (glob("$dir/*")) { open my $fh, "<:encoding(utf8)", $fp or die "can't open $!"; while ($line = <$fh>) { chomp $line;; @fields = split(/\,/ , $line); @values = (); if($fields[0] >= 1101227) { push(@values, $fields[0]); foreach $i (1 .. 3) { push(@values, $values[$i - 1] + $fields[$i]); } foreach $i (4 .. 7) { push(@values, $fields[$i]); } push(@values, "\n"); my $resultline = join(',', @values); print $resultline; push(@lines, $resultline); } } close $fh or die "can't close $!"; } # foreach $i (@lines) { # print $i; # }