0 Пользователей и 1 Гость просматривают эту тему.
open F, "file.txt";my @lines = ;my $result;foreach (@lines) { my @values = split /;/; $result += $values[1];}print $result;