);
DROP TABLE IF EXISTS ovh_dedicated;
-CREATE TABLE ovh_dedicated (
- offer VARCHAR(80),
- proc VARCHAR(150),
- cpu VARCHAR(150),
- ram VARCHAR(150),
- disk VARCHAR(150),
- option VARCHAR(100),
- price float(5,2)
-);
+-- NB 25.10.17 CREATE TABLE ovh_dedicated (
+-- NB 25.10.17 offer VARCHAR(80),
+-- NB 25.10.17 proc VARCHAR(150),
+-- NB 25.10.17 cpu VARCHAR(150),
+-- NB 25.10.17 ram VARCHAR(150),
+-- NB 25.10.17 disk VARCHAR(150),
+-- NB 25.10.17 option VARCHAR(100),
+-- NB 25.10.17 price float(5,2)
+-- NB 25.10.17 );
> "$tmp/port.csv"
csv2table port "$tmp/port.csv"
- html-table2csv https://www.ovh.co.uk/dedicated_servers/|perl -ne \
- '/^\w/ or next; @F=split("\t",$_);splice(@F,6,1); $F[6] =~s/ ex.*$//; $F[6] =~s/[^\d\.]//g; print $_ if $_=join("\t",map{$_ eq "-" ? "" : $_} @F[0..6])."\n" and !$dbl{$_}++' \
- > "$tmp/ovh_dedicated.csv"
- csv2table ovh_dedicated "$tmp/ovh_dedicated.csv"
+# NB 25.10.17 html-table2csv https://www.ovh.co.uk/dedicated_servers/|perl -ne \
+# NB 25.10.17 '/^\w/ or next; @F=split("\t",$_);splice(@F,6,1); $F[6] =~s/ ex.*$//; $F[6] =~s/[^\d\.]//g; print $_ if $_=join("\t",map{$_ eq "-" ? "" : $_} @F[0..6])."\n" and !$dbl{$_}++' \
+# NB 25.10.17 > "$tmp/ovh_dedicated.csv"
+# NB 25.10.17 csv2table ovh_dedicated "$tmp/ovh_dedicated.csv"
return 0
w3m -dump -cols 999999 https://en.wikipedia.org/wiki/List_of_HTTP_status_codes| \