get_cmrc_db.pl

for(my $index = 100500;$index < 105000; $index++){

my $file = system "lynx 'http://www.cmhrc.co.uk/site/database/cmhrc?action=fetch_by_id&record_id=$index' -dump > db.txt";

open FILE, "db.txt" or die $!;

while(){
push(@lines,$_);
}
close FILE, "db.txt" or die $!;

my %miner;
for(my $cnt = 0; $cnt < $#lines;$cnt++){
$_ = $lines[$cnt];
if($_ =~ /Mining Accidents/){
chomp $_;
$_ =~ s/^\s+//;
$_ =~ s/Mining Accidents -//g;
print "$_ \n";
$miner{miner_name} = $_;
} elsif( $_ =~ /Age:/){
chomp $_;
$_ =~ s/^\s+//;
$_ =~ s/Age://g;
print "$_ \n";
$miner{miner_age} = $_;
}elsif($_ =~ /Date:/){
chomp $_;
$_ =~ s/^\s+//;
$_ =~ s/Date://g;
print "$_ \n";
$miner{miner_date} = $_;
} elsif($_ =~ /Year:/){
chomp $_;
$_ =~ s/^\s+//;
$_ =~ s/Year://g;
print "$_ \n";
$miner{miner_year} = $_;
} elsif($_ =~ /Occupation:/){
chomp $_;
$_ =~ s/^\s+//;
$_ =~ s/Occupation://g;
print "$_ \n";
$miner{miner_occupation} = $_;
} elsif($_ =~ /Colliery:/){
chomp $_;
$_ =~ s/^\s+//;
$_ =~ s/Colliery://g;
print "$_ \n";
$miner{miner_colliery} = $_;
} elsif($_ =~ /Owner:/){
chomp $_;
$_ =~ s/^\s+//;
$_ =~ s/Owner://g;
print FILE "$_ \n";
} elsif($_ =~ /Town:/){
chomp $_;
$_ =~ s/^\s+//;
$_ =~ s/Town://g;
# print FILE "$_ \n";
} elsif($_ =~ /County:/){
chomp $_;
$_ =~ s/^\s+//;
$_ =~ s/County://g;
print FILE "$_ \n";
} elsif($_ =~ /Notes:/){
$_ =~ s/Notes://g;
$_ =~ s/^\s+//;
chomp $_;
$notes = $_;
my ($tmp,$start) = (0,1);
while($start){
$tmp = $lines[++$cnt];
chomp $tmp;
if ($tmp =~ m/____________________/){last}
$notes .= $tmp;
$notes =~ s/\s+/ /g;

}
print FILE "$notes \n";

}

}
close FILE, or die $!;
}
__DATA__
* [1]Home
* [2]Location Maps
+ [3]Scottish Division
+ [4]Durham Division
+ [5]Northern Division
+ [6]North Eastern Division
+ [7]North Western Division
+ [8]East Midlands Division
+ [9]West Midlands Division
+ [10]South Western Division
+ [11]South Eastern Division
+ [12]A-Z List of Mines
* [13]Accidents/Disasters
* [14]Literature
+ [15]1842 Royal Commission Reports
+ [16]A Day in a Miners' Life
+ [17]A Collection of Poems
+ [18]Books on Mining History
+ [19]Downloads on Mining Technology
+ [20]A Glossary of Mining Terms
+ [21]Old Mersey Times
+ [22]Women and Coal Mining
+ [23]Mining Texts
* [24]Photo Gallery
+ [25]Banners
+ [26]Collieries
+ [27]Ashton-in-Makerfield
+ [28]Disasters
+ [29]Mines Recue
+ [30]News Articles
+ [31]Ponies
+ [32]The People

[33]The Coalmining History Resource Centre

Brought to you by Raleys - specialists in
workplace accident and disease compensation
[34]Rayleys Solicitors
The Coalmining History Resource Centre

Mining Accidents - James Campbell

Name: CAMPBELL James
Age: 26
Date: 14/09/1911
Year: 1911
Occupation: Pony driver
Colliery: Earnock
Owner: John Watson Ltd
Town:
County: Lanark
Notes: He got one of his fingers slightly cut by catching it against a
buckle on the harness of his horse. Blood poisoning supervened, and he
died on 4th July, 1912.
____________________
Search
[35]Contact Us
* [36]Home
* [37]Location Maps
* [38]Accidents/Disasters
* [39]Literature
* [40]Photo Gallery

[41]© The Coalmining History Resource Centre from [42]Raleys
Solicitors. Email : [43]coalmining@raleys.co.uk
[44]Office Details | [45]Privacy Policy | [46]Disclaimer
__________ (Submit)
[47][smaller] Change text size [48][larger]
© The Coalmining History Resource Centre from Raleys Solicitors. Email
: coalmining@raleys.co.uk

References

Projects

Text

HWY

Scotoma

Mediashed

Mongrel

get_cmrc_db.pl

Navigation

Admin