notbenh

#!/usr/bin/perl
use strict;
use warnings;

foreach my $x (32..126) {
 printf "$x =%3d, \n", $x;
}

notbenh

#!/usr/bin/perl
use strict;
use warnings;

my @Beatles = qw (John Paul George Ringo);
print "AT THE START Beatles are [@Beatles]\n";
my ($drummer, @vocals);
$drummer = pop @Beatles;
print "Drummer is $drummer and Beatles are [@Beatles] \n";
push @vocals, shift @Beatles;

notbenh

use strict;
use warnings;
use Data::Dumper;

=head1 GOAL

two arrays ['a','b','c'] and ['x','y','z'] 
become a hash:

  { a => ['a','b','c']

notbenh

#!/usr/bin/perl 
use strict;
use warnings;

my $column_width = 7;

my $number = 15;
my $padded_number = '0' x ($column_width - length($number)) . $number;
print "|$padded_number|\n";

notbenh

#!/usr/bin/perl                                                                                                                                                                                                   
use strict;
use warnings;

my $boss = 10;
my $butler = 20;

if( length($boss_first . ' ' . $boss_last) > 15 ) {
  if( $butler > 15) {
    my $padded_boss_first = ?????;

notbenh

[benh@nia Smallest-Federated-Wiki]$ af --runtime ruby193 push fed-notbenh
Would you like to deploy from the current directory? [Yn]: 
Detected a Rack Application, is this correct? [Yn]: 
1: AWS US East - Virginia
2: AWS EU West - Ireland
3: AWS Asia SE - Singapore
4: Rackspace AZ 1 - Dallas
5: HP AZ 2 - Las Vegas
Select Infrastructure: 5
Application Deployed URL [fed-notbenh.hp.af.cm]: 

notbenh

#!/bin/bash
export BROWSER=firefox

xrdb -merge .Xresources

trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --height 10 --transparent true --tint 0x000000 &

gnome-settings-daemon

if [ -x /usr/bin/gnome-power-manager ] ; then

notbenh

#!/usr/bin/env perl 
use strict;
use warnings;

sub bottles() { sprintf qq{%s bottle%s of beer}
               , $_ || 'No' 
               , $_==1 ? '' : 's'; 
               }
sub store()    { $_=99; qq{Go to the store, buy some more...\n}; }
sub wall()     { qq{ on the wall\n} }

notbenh

#!/usr/bin/env perl 
use strict;
use warnings;
use feature qw{say};

sub bottles($) { sprintf qq{%s bottle%s of beer}
               , $_ || 'No' 
               , $_==1 ? '' : 's'; 
               }
sub store()    { $_=99; qq{Go to the store, buy some more...\n}; }

notbenh

Thing.user = new Object;
Thing.user.new = function(user){this.user = user; return this};
Thing.user._fetch_user_data = function(){
  $.ajax({ url: '/api/' + this.user
         , dataType: 'json'
         , async:false
         , success: function(data){ console.info(data); for(key in data) this.$key = data[key]; }
         });
};