All pastes #233207 Raw Edit

Someone

public text v1 · immutable
·published 2006-11-01 20:36 UTC
rendered paste body
#!/usr/bin/perl -l

use strict;
use warnings qw(all);

#unshift "";


my $loc = "";
my $sum = "";


while (<>) {
    if(/^LOCATION:(.+)/) {
        $loc = $1;
        next;
    }

    if(/^SUMMARY:(.+)\\n.*/) {
        $sum = $1;
        print "SUMMARY: ".$loc.": ".$sum;
        next;
    }

    print;
}