In Perl, how do I handle multiple lines

Question

Let's say I have a file that has the following lines with "TIMESTAMP" "NAME":

10:00:00 Bob 11:00:00
Volume
11:00:20 Fred
11:00:40 George
12:00:00 Bill

I want to read this file, group the names that occur every hour on one line, and then write the rewritten lines to a file, for example.

10:00:00 Bob
11:00:00 Tom, Fred, George
12:00:00 Bill

Answer 1

, , , , - , , , , . (, , .)

, :

#!/usr/bin/env perl

use strict;
use warnings;

my $current_hour = -1;
my @names;

while (my $line = <DATA>) {
  my ($hour, $name) = $line =~ /(\d{2}):\d{2}:\d{2} (.*)/;
  next unless $hour;

  if ($hour != $current_hour) {
    print_hour($current_hour, @names);
    @names = ();
    $current_hour = $hour;
  }

  push @names, $name;
}

print_hour($current_hour, @names);

exit;

sub print_hour {
  my ($hour, @names) = @_;
  return unless @names;

  print $hour, ':00:00 ', (join ', ', @names), "\n";
}

__DATA__
10:00:00 Bob
11:00:00 Tom
11:00:20 Fred
11:00:40 George
12:00:00 Bill

Answer 2

​​ :

while(<>) {
    # ... do something with the line in $_
    # specifically, collect the hour and name
    # ignoring malformed lines
    if (/(\d\d):\d\d:\d\d\s+(\w+)/) {
        my $hour = $1;
        my $name = $2;
    }
}

, if

$people{$hour} = $people{$hour} . ", " . $name 

, , :

while ( my ($time, $names) = each(%people) ) {
    print $time . ":00:00 " . $names ."\n";
}

( , , .)

Answer 3

grouped_by_hour , , push , , sprintf 03:04:05, - 3:9:18.

sub grouped_by_hour {
  my($fh) = @_;

  local $_;
  my %hour_names;

  while (<$fh>) {
    push @{ $hour_names{sprintf "%02d", $1} } => $2
      if /^(\d+):\d+:\d+\s+(.+?)\s*$/;
  }

  wantarray ? %hour_names : \%hour_names;
}

Normalized clocks also allow you to sort by default. The code below places the input in a special file descriptor DATA, having it after the token __DATA__, but in real code you can call it grouped_by_hour $fh.

my %hour_names = grouped_by_hour \*DATA;
foreach my $hour (sort keys %hour_names) {
  print "$hour:00:00 ", join(", " => @{ $hour_names{$hour} }), "\n";
}

__DATA__
10:00:00 Bob
11:00:00 Tom
11:00:20 Fred
11:00:40 George
12:00:00 Bill

Conclusion:

10:00:00 Bob
11:00:00 Tom, Fred, George
12:00:00 Bill

Answer 4

Here is a complete solution on how to do this.

my @readings = (
    "10:00:00 Bob",
    "11:00:00 Tom",
    "11:00:20 Fred",
    "11:00:40 George",
    "12:00:00 Bill",
);

my %hours;

for my $line (@readings) {
    $line =~ /^(\d{2}).*?([a-zA-Z]+)/;
    push(@{$hours{$1}}, $2);
}

for my $hour (sort keys %hours) {
    print "$hour:00:00 ";
    print join ", ", @{$hours{$hour}};
    print "\n";
}

It leads to:

10:00:00 Bob
11:00:00 Tom, Fred, George
12:00:00 Bill