
By: wikiparsel.pl | Date: Jun 1 2020 17:12 | Format: Perl | Expires: never | Size: 467 B | Hits: 887
- use strict;
- use warnings;
- my $most_counts = 0;
- my $most_line;
- while (my $line = <$in_fh>) {
- next unless $line =~ /^en\s\S+\s(\S+)\s\S+\s/;
- if ($most_counts < $1) {
- $most_counts = $1;
- $most_line = $line;
- }
- }
Latest pastes
16 days ago
2 months ago
17 months ago
19 months ago
23 months ago