~nova/MAGScrape

ref: 6e30052494dc61732ef9332ee6c502dcaeef90d9 MAGScrape/cut.pl -rw-r--r-- 275 bytes
6e300524 — Novalinium Magnus Archives Statement Scraper 1 year, 5 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/bin/perl
use strict;
use warnings;

do {
    my $fn = <>;
    chomp $fn;
    my @st_header = split /:/, <>;
    my @st_begin = split /:/, <>;
    my @st_end = split /:/, <>;
    <>;
    print "sed -n '$st_header[0],$st_end[0]p' $fn | tee $fn.statement\n";
} until(eof());