Computer Science: CS should be required. For everyone. Can you be a historian today without using a computer? An artist? A salesperson? Anything? Shouldn’t we aspire to turn out a new generation of educated men and women who have more than a surface knowledge of how the blasted things work, since their success in no small part will depend on that knowledge?I hold a CS degree. I work with computers in the day and play with them at night. My day work with computers involves the use of computers in science, and I've been saying this for years: Today, all science is computer science, because the research that could've been done without computers has been done without them already. I think that the same is becoming true in other fields. Between Processing, Tod Machover's work and work with genetic algorithms in composing, there's precedent for the use of computational tools in the arts. I think you can still be a historian without using a computer much more than using it for email and word processing, but I've heard of historians making more interesting use of it. First, there's the wider dissemination of contemporaneous source material, but beyond that, many are beginning to see digitized libraries as a Big Data source, where you can graph the rise and fall of ideas and people by the number of occurrences of them in the text.
 |
| Photo by Douglas Heriot. Thanks. |
 |
| ElectronicHouse.com |
#!/usr/bin/perl
# $Id: hpsetdisp.pl 11 2006-03-22 01:21:03Z yaakov $
# hpsetdisp.pl
# Connects to a JetDirect equipped HP printer and uses
# HP's control language to set the ready message on the
# LCD display. Takes an IP address and message on the
# command line. My favorite message is "INSERT COIN".
# Keep in mind the limitations of the display when composing
# your clever verbiage.
#
# THIS PROGRAM IS PROVIDED WITH NO WARRANTY OF ANY KIND EXPRESSED OR IMPLIED
# THE AUTHOR CANNOT BE RESPONSIBLE FOR THE EFFECTS OF THIS PROGRAM
# IF YOU ARE UNCERTAIN ABOUT THE ADVISABILITY OF USING IT, DO NOT!
#
# Yaakov (http://kovaya.com/ )
#
# Modified by Garrett Hoofman
# 10/18/2007
# http://www.visionsofafar.com
# Modified by David Jacoby
# 12/10/2008
# http://varlogrant.blogspot.com/
# Modified by David Jacoby, using notify-send and tweaking Unicode
# 09/08/2008
# http://varlogrant.blogspot.com/
# Modified by David Jacoby, moving from Google to NOAA
# 08/28/2012
# http://varlogrant.blogspot.com/
use strict ;
use warnings ;
use Modern::Perl ;
use DBI ;
use Getopt::Long ;
use IO::Interactive qw{ interactive } ;
use IO::Socket ;
use XML::DOM ;
use Data::Dumper ;
use lib '/home/jacoby/lib' ;
use MyDB 'db_connect' ;
use subs qw{ get_weather notify db_upload } ;
my $zip = '' ;
my $interactive = '' ;
my $degree = '°' ; #the unicode, straight
$degree = "\x{00b0}" ; #the unicode, specified
my $rdymsg = "Ready" ;
my $curr_cond ;
GetOptions(
'zipcode=s' => \$zip ,
) ;
$zip !~ /\d/ and exit 0 ;
my %weather = get_weather ;
db_upload %weather ;
exit ;
########## ########## ########## ########## ########## ########## ##########
sub get_weather {
my %output ;
my $parser = XML::DOM::Parser->new() ;
my $file = 'http://www.google.com/ig/api?weather=XXXXX&hl=en' ;
#my $zip = shift ;
$zip =~ s{(\d{5})}{}mx ;
$zip = $1 ;
$file =~ s/XXXXX/$zip/mx ;
my $doc = $parser->parsefile( $file ) ;
exit if ! defined $doc ;
$output{zip} = $zip ;
$output{city} = $doc->getElementsByTagName( 'city' )->item( 0 )
->getAttribute('data');
$output{temp_c} = $doc->getElementsByTagName( 'temp_c' )->item( 0 )
->getAttribute('data');
$output{temp_f} = $doc->getElementsByTagName( 'temp_f' )->item( 0 )
->getAttribute('data');
$output{humidity} = $doc->getElementsByTagName( 'humidity' )->item( 0 )
->getAttribute('data');
$output{wind} = $doc->getElementsByTagName( 'wind_condition' )->item( 0 )
->getAttribute('data');
$output{conditions} = $doc->getElementsByTagName( 'condition' )->item( 0 )
->getAttribute('data') ;
return %output ;
}
########## ########## ########## ########## ########## ########## ##########
########## ########## ########## ########## ########## ########## ##########
sub db_upload {
my %cond = @_ ;
my $dbh = db_connect() ;
for my $k ( sort keys %cond ) {
$cond{$k} = $dbh->quote( $cond{$k} ) ;
}
my $fields = join ',' , qw{
city conditions
humidity temp_c
temp_f wind
zip
} ;
my $sql ;
my $rows ;
$sql = qq{
INSERT INTO weather_data ( $fields ) VALUES (
$cond{ city } ,
$cond{ conditions } ,
$cond{ humidity } ,
$cond{ temp_c } ,
$cond{ temp_f } ,
$cond{ wind } ,
$cond{ zip }
) } ;
#$rows = $dbh->do( $sql ) or croak $dbh->errstr;
$sql = qq{
INSERT INTO weather ( $fields ) VALUES (
$cond{ city } ,
$cond{ conditions } ,
$cond{ humidity } ,
$cond{ temp_c } ,
$cond{ temp_f } ,
$cond{ wind } ,
$cond{ zip }
) } ;
$rows = $dbh->do( $sql ) or croak $dbh->errstr;
return ;
}
########## ########## ########## ########## ########## ########## ##########
Problem is, Google knows I've been grabbing weather data every 10 minutes and has blocked me.
// ========= ========= ========= =========
void setup() {
// make pin 10 an input and turn on the
// pullup resistor so it goes high unless
// connected to ground:
pinMode(10, INPUT_PULLUP);
delay(2000);
Keyboard.begin() ;
}
// ========= ========= ========= =========
void loop() {
if ( digitalRead( 10 ) == LOW ) {
Keyboard.press( KEY_SCROLL_LOCK ) ;
Keyboard.releaseAll() ;
delay(300);
Keyboard.press( KEY_SCROLL_LOCK ) ;
Keyboard.releaseAll() ;
delay(600); // Delay of 6/10 second to keep from repeating.
}
delay(10);
}
He went on to go through is goals. They are good goals. But I'm about my goals. Which are:What’s big for you this week?
One of my closest friends asks me that question each Monday. The first time she posed the question, it caught me off guard. I can still remember my response.
“Um, my to-do list.”
It took about 2 seconds to identify that my snarky response was a lame attempt dodge the question. I hadn’t defined what was truly BIG for me that week. And I didn’t yet understand how powerful this simple question could be.
My friend and I worked together to identify the 3 biggest things for that week and I wrote them on a post-it. It took less than five minute, but it created a clarity that propelled me through the rest of my workweek. And the best part was that, at the end of the week, the list was complete—a welcomed supplement to the ever-growing list of things that need to get done.
I want to pay it forward. So, here’s the question for you:
What are your 3 Big goals for your business this week?
Write your Big 3 down on a post-it. Tell a friend, a mentor, a random person at a coffee shop—anyone. Heck, if you can’t find someone, email me.
Go ahead and reply with your Big 3 directly to this email. I can’t promise that I can reply to all of them, but I will certainly read each and every one. If there’s some way that I can help, I will.
Sharing this stuff can be scary. Trust me, I get it.
"Why don't you open source your code?" "I am deeply ashamed of what it looks like" (typical result of formal CS education?)
-- Ehud Lamm (@ehud)
sub temperature {
my $parser = XML::DOM::Parser->new() ;
my $file = 'http://w1.weather.gov/xml/current_obs/KLAF.xml' ;
my $doc = $parser->parsefile( $file ) ;
my $nodes = $doc->getElementsByTagName( "temp_f" ) ;
my $n = $nodes->getLength ;
my $temp ;
for ( my $i = 0 ; $i < $n ; $i++ ) {
my $node = $nodes->item ($i) ;
my $str = $node->toString;
$temp = sprintf '%d' , ( split /[<>]/ , $str )[2] ;
}
return $temp ;
}
{ data:{abc:123} }
{ action:"upload_keys",data:{abc:123} }
ajax_handler.cgi look for action and handle depending on that value.
// ========= ========= ========= ========= ========= ========= =========
// creates popup where you enter the accessions desired
// --------- --------- --------- --------- --------- --------- ---------
apr.accession_popup = function () {
// I do this enough that I should make a specific library to handle
// this style of popup
// must investigate reformatting
$( '#paste_from_spreadsheet' ).remove() ;
$( '<div id="paste_from_spreadsheet" />' )
.attr( 'title' , 'Add Accessions' )
.dialog() ;
$('.ui-dialog-titlebar-close')
.click( function () {
$( '#paste_from_spreadsheet' ).remove()
} ) ;
$( '<div/>' )
.text(
'Add one or more valid Accession IDs. ' +
'When done, click "Go" or hit "Enter". '
)
.appendTo( '#paste_from_spreadsheet' ) ;
$( '<textarea/>' )
.attr( 'id' , 'spreadsheet' )
.attr( 'name' , 'spreadsheet' )
.appendTo( '#paste_from_spreadsheet' )
;
$( '<div/>' )
.attr( 'id' , 'spreadsheet_go' )
.text( 'Go' )
.appendTo( '#paste_from_spreadsheet' ) ;
$('.ui-icon-closethick')
.text( 'X' ) ;
$( '#spreadsheet_go' ).click( function () {
apr.add_accession( $( '#spreadsheet' ).val() ) ;
$( '#paste_from_spreadsheet' ).remove()
} ) ;
$( '#spreadsheet' ).focus() ;
} ;
function my_popup () {
$( '#paste_from_spreadsheet' ).remove() ;
$( '<div id="paste_from_spreadsheet" />' )
.attr( 'title' , 'Add Accessions' )
.dialog() ;
$('.ui-icon-closethick')
.text( 'X' ) ;
$('.ui-dialog-titlebar-close')
.click( function () {
$( '#paste_from_spreadsheet' ).remove()
} ) ;
var template = '\
<div>\
Add one or more valid Accession IDs.\
When done, click "Go" or hit "Enter". \
</div>\
<textarea id="spreadsheet" name="spreadsheet" ></textarea>\
<div id="spreadsheet_go"> Go </div>\
' ;
var html = Mustache.to_html( template,'' ) ;
$( '#paste_from_spreadsheet' ).append( html );
$( '#spreadsheet_go' ).click( function () {
apr.add_accession( $( '#spreadsheet' ).val() ) ;
$( '#paste_from_spreadsheet' ).remove()
} ) ;
$( '#spreadsheet' ).focus() ;
}
prompt() such that used a textarea equivalent rather than a popup with input type="text", I'd probably toss the whole thing. But, as this is what I'm looking for, my desire is for a solution that could work on a page that looked like <body></body> and what I see of pure.js is that it is much more aligned with replacing values it finds within existing structures.  |
| City of Lafayette |
use CGI, so I started to do that, and my code went from:
print qq{
<a href="http://draft.blogger.com/$link">Link</a>
} ;
print $cgi->a( { href=> $link } , 'Link' ) ;
$.get(
apr.chip_url ,
function ( data ) {
$( '<fieldset id="chip_field">')
.addClass( 'narrow_fieldset' )
.appendTo( chip_div ) ;
$( '<legend>')
.text( "Chips" )
.appendTo( chip_field ) ;
$( '<div id="select_div" />' )
.appendTo( chip_field ) ;
$( '<select name="chip_sel" id="chip_sel">')
.appendTo( select_div ) ;
$( '<div id="control_div" />' )
.text( ' Include Control?: ' )
.appendTo( chip_field ) ;
$( '<input type="checkbox" />' )
.attr('id',"control")
.attr('name',"control")
.val("control")
.prependTo( control_div ) ;
$( '<div id="submit_div" />' )
.appendTo( chip_field ) ;
$( '<div class="button" />' )
.text( 'Choose Chip' )
.appendTo( submit_div )
.click(
function () {
apr.write_chip() ;
}
)
;
// Fill the Select
var d_list = [] ;
for ( var i in data ) { d_list.push( i ) }
d_list = d_list.sort() ;
for ( var d in d_list ) {
var i = d_list[ d ] ;
$( '<option/>')
.text( data[i].name )
.val( i )
.appendTo( chip_sel ) ;
}
} ,
'jsonp'
) ;
appends better, but this is exactly the big block of ugly stuff that I hated with CGI and made me pledge my babies to Template Toolkit.
SELECT *
FROM sequence_sample
LEFT JOIN accessions
ON sequence_sample.accession_id = accessions.accession_id
LEFT JOIN requests
ON accessions.request_id = requests.request_id
WHERE run_id = ?
if (motion && time > 6 && time < 23 ) { turn_on( light ) } , but I'd like to give that a try. |
| In situ |
// --------- --------- --------- --------- --------- --------- ---------
// fill the "i5" select boxes, and fit in order
// --------- --------- --------- --------- --------- --------- ---------
pr.fill_i5s = function ( assay ) {
$.get( pr.url , function( data ) {
var assay_barcodes = data.assay_barcodes ;
var assay_data = assay_barcodes[assay].data ;
var i5_list = assay_data.i5 ;
$( 'select.i5' ).each( function () {
var id = $( this ).attr( "id" ) ;
var id_array = id.split("") ;
var id_letter = id_array[3] ;
$( '#' + id ).html( '' ) ;
for ( i in i5_list ) {
var i5 = i5_list[i] ;
var i5_name = i5.name ;
var i5_bases = i5.bases ;
var i5_array = i5_name.split("") ;
var i5_num = i5_array[3] ;
if ( pr.check_i5( id_letter, i5_num ) ) {
$( '<option/>' )
.text( i5_name )
.val( i5_name )
.attr( 'selected' , 'selected' )
.appendTo( '#' + id )
;
}
else {
$( '<option/>' )
.text( i5_name )
.val( i5_name )
.appendTo( '#' + id )
;
}
}
} ) ;
} , 'json' ) ;
} ;
// --------- --------- --------- --------- --------- --------- ---------
// function to move checking into a subroutine, so that i5s flow
// automatically
// --------- --------- --------- --------- --------- --------- ---------
pr.check_i5 = function ( position , barcode ) {
if ( position == 'a' && barcode == '1' ) { return true ; }
if ( position == 'b' && barcode == '2' ) { return true ; }
if ( position == 'c' && barcode == '3' ) { return true ; }
if ( position == 'd' && barcode == '4' ) { return true ; }
if ( position == 'e' && barcode == '5' ) { return true ; }
if ( position == 'f' && barcode == '6' ) { return true ; }
if ( position == 'g' && barcode == '7' ) { return true ; }
if ( position == 'h' && barcode == '8' ) { return true ; }
return( false ) ;
} ;
 |
| Image by LiminaMike |
