~nova/MAGScrape

MAGScrape/cut.pl -rw-r--r-- 275 bytes
6e300524 — Novalinium Magnus Archives Statement Scraper 1 year, 3 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());