From jduncan at fotango.com Tue Jul 1 01:37:19 2003 From: jduncan at fotango.com (James A. Duncan) Date: Mon Aug 2 21:39:43 2004 Subject: [yapc] Photos from Bostons's Party online In-Reply-To: <20030630160607.A30898@timji.consultix-inc.com> Message-ID: <767E14AC-AB8E-11D7-885A-000393D142E2@fotango.com> On Tuesday, July 1, 2003, at 12:06 am, Tim Maher wrote: > I've finally managed to put my photos from the party at "Boston's > on the Beach" on my web site. > > Check teachmeperl.com/YAPC.03/Pics for candid snaps of myself, > Randal, Uri, Ingy, Rocco, Kevin M., James Duncan, a giant Maine > lobster, and some guy who looks like a leprechaun 8-} Ah! That's not me! The picture entitled duncleon.jpg is actually Mark Fowler and Leon Brocard. And I'm guessing, though I cannot be completely sure, that it also features an appearance of Ingy's arm. Regards, James. From Mark at Overmeer.net Tue Jul 1 05:06:43 2003 From: Mark at Overmeer.net (Mark Overmeer) Date: Mon Aug 2 21:39:43 2004 Subject: [yapc] pictures from YAPC::NA Message-ID: <20030701120643.U17533@speeltuin.ATComputing.nl> Hi, Finally back home, I found some time put put some travel pictures on the web. Recognize some of these people? 1) during the conference After the conference: 2) trip to the Japanese gardens (with Meng and Phil) 3) evening at Dania Jai-Alai (Scott, rGeoffrey, ...) 4) trip to the Everglades (Arthur, Meng, Scott, ...) 5) snorkeling and Kennedy Space Center (Philipp) Temporarily available at http://mark.overmeer.net/yapc-na/ -- Enjoy! MarkOv ------------------------------------------------------------------------ drs Mark A.C.J. Overmeer MARKOV Solutions Mark@Overmeer.net solutions@overmeer.net http://Mark.Overmeer.net http://solutions.overmeer.net From tim at consultix-inc.com Tue Jul 1 11:11:14 2003 From: tim at consultix-inc.com (Tim Maher) Date: Mon Aug 2 21:39:43 2004 Subject: [yapc] Photos from Bostons's Party online In-Reply-To: <767E14AC-AB8E-11D7-885A-000393D142E2@fotango.com> References: <20030630160607.A30898@timji.consultix-inc.com> <767E14AC-AB8E-11D7-885A-000393D142E2@fotango.com> Message-ID: <20030701091114.A1069@timji.consultix-inc.com> On Tue, Jul 01, 2003 at 07:37:19AM +0100, James A. Duncan wrote: > > On Tuesday, July 1, 2003, at 12:06 am, Tim Maher wrote: > > >I've finally managed to put my photos from the party at "Boston's > >on the Beach" on my web site. > > > >Check teachmeperl.com/YAPC.03/Pics for candid snaps of myself, > >Randal, Uri, Ingy, Rocco, Kevin M., James Duncan, a giant Maine > >lobster, and some guy who looks like a leprechaun 8-} > > Ah! That's not me! The picture entitled duncleon.jpg is actually Mark Well, you would have been my *2nd* guess! Thanks for the correction. > Fowler and Leon Brocard. And I'm guessing, though I cannot be > completely sure, that it also features an appearance of Ingy's arm. Bingo! Right again . . . > > Regards, > James. > > > _______________________________________________ > yapc mailing list > yapc@mail.pm.org > http://mail.pm.org/mailman/listinfo/yapc -Tim *------------------------------------------------------------* | Tim Maher (206) 781-UNIX (866) DOC-PERL (866) DOC-UNIX | | CEO, JAWCAR ("Just Another White Camel Award Recipient") | | tim(AT)Consultix-Inc.Com TeachMeUnix.Com TeachMePerl.Com | *+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* | Watch for my Book: "Minimal Perl for Shell Programmers" | *------------------------------------------------------------* From david_zabka at yahoo.com Tue Jul 1 14:44:38 2003 From: david_zabka at yahoo.com (David Zabka) Date: Mon Aug 2 21:39:43 2004 Subject: [yapc] Damian's .exrc? In-Reply-To: <20030627051112.2252d4b1.prlawrence@lehigh.edu> Message-ID: <20030701194438.58414.qmail@web41805.mail.yahoo.com> have you rec'd any info on this? i too would like to get a hold of damian's config files... djz --- Phil R Lawrence wrote: > Does anyone know if Damian is planning to post his super .exrc (and > slides)? I chose to just "feel the power" instead of take actual > notes during his talk. :) > > prl > _______________________________________________ > yapc mailing list > yapc@mail.pm.org > http://mail.pm.org/mailman/listinfo/yapc __________________________________ Do you Yahoo!? SBC Yahoo! DSL - Now only $29.95 per month! http://sbc.yahoo.com From ceverett at ceverett.com Thu Jul 3 15:04:25 2003 From: ceverett at ceverett.com (Christopher L. Everett) Date: Mon Aug 2 21:39:44 2004 Subject: [yapc] Damian's .exrc? References: <20030627051112.2252d4b1.prlawrence@lehigh.edu> Message-ID: <3F048C49.6070401@ceverett.com> Phil R Lawrence wrote: > Does anyone know if Damian is planning to post his super .exrc (and slides)? > I chose to just "feel the power" instead of take actual notes during his talk. :) Hey, yet another "sit back and let the Gestalt wash over you" type of guy here. I too want to see that rc file. I think he said he would put it up. -- Christopher L. Everett Chief Technology Officer The Medical Banner Exchange Physicians Employment on the Internet From fibonaci at babylonia.flatirons.org Thu Jul 3 14:43:05 2003 From: fibonaci at babylonia.flatirons.org (Luke Palmer) Date: Mon Aug 2 21:39:44 2004 Subject: [yapc] Damian's .exrc? In-Reply-To: <3F048C49.6070401@ceverett.com> References: <20030627051112.2252d4b1.prlawrence@lehigh.edu> <3F048C49.6070401@ceverett.com> Message-ID: > Phil R Lawrence wrote: > > Does anyone know if Damian is planning to post his super .exrc (and slides)? > > I chose to just "feel the power" instead of take actual notes during his talk. :) > > Hey, yet another "sit back and let the Gestalt wash over you" type of guy here. > I too want to see that rc file. I think he said he would put it up. I don't care about his .exrc; give me Perl6::Junctions! :-) Luke From damian at conway.org Fri Jul 4 18:30:19 2003 From: damian at conway.org (Damian Conway) Date: Mon Aug 2 21:39:44 2004 Subject: [yapc] Damian's .exrc? In-Reply-To: References: <20030627051112.2252d4b1.prlawrence@lehigh.edu> <3F048C49.6070401@ceverett.com> Message-ID: <3F060E0B.2050205@conway.org> Sorry for the delay. My .exrc and numerous other "goodies" are now available from: http://www.yetanother.org/damian/bintools.tar.gz Thanks for your patience. Damian From tpg at umich.edu Mon Jul 7 09:08:39 2003 From: tpg at umich.edu (Terry Gliedt) Date: Mon Aug 2 21:39:44 2004 Subject: [yapc] Damian's .exrc? References: <20030627051112.2252d4b1.prlawrence@lehigh.edu> <3F048C49.6070401@ceverett.com> <3F060E0B.2050205@conway.org> Message-ID: <3F097EE7.C888DA73@umich.edu> Damian Conway wrote: > > Sorry for the delay. My .exrc and numerous other "goodies" are now available > from: > > http://www.yetanother.org/damian/bintools.tar.gz > > Thanks for your patience. THANK YOU! I've already extracted a few nuggets and posted explainations so people in my group can take advantage of some things. If you would, kind sir, make available the code that generated the code to show a "progress bar" (seen in the last plenary session), I'd be vey grateful again. TIA -- ============================================================= Terry Gliedt tpg@umich.edu http://www.hps.com/~tpg/ Biostatistics, Univ of Michigan Personal Email: tpg@hps.com From ceverett at ceverett.com Mon Jul 7 17:48:48 2003 From: ceverett at ceverett.com (Christopher L. Everett) Date: Mon Aug 2 21:39:44 2004 Subject: [yapc] Damian's .exrc? In-Reply-To: <3F060E0B.2050205@conway.org> References: <20030627051112.2252d4b1.prlawrence@lehigh.edu> <3F048C49.6070401@ceverett.com> <3F060E0B.2050205@conway.org> Message-ID: <3F09F8D0.70101@ceverett.com> Damian Conway wrote: > Sorry for the delay. My .exrc and numerous other "goodies" are now > available > from: > > http://www.yetanother.org/damian/bintools.tar.gz > > Thanks for your patience. > Damian, thanks. I thinks I'm correct when i say that you are a true friend and hero to Perl hackers everywhere. From omacneil at brave.cs.uml.edu Mon Jul 7 19:14:58 2003 From: omacneil at brave.cs.uml.edu (Dan MacNeil) Date: Mon Aug 2 21:39:44 2004 Subject: [yapc] YASR In-Reply-To: <3F097EE7.C888DA73@umich.edu> Message-ID: Yet another slide request... Are the LDAP slides someplace I missed? From kevin at jibsheet.com Tue Jul 8 04:05:17 2003 From: kevin at jibsheet.com (Kevin Falcone) Date: Mon Aug 2 21:39:44 2004 Subject: [yapc] YASR In-Reply-To: (Dan MacNeil's message of "Mon, 7 Jul 2003 20:14:58 -0400 (EDT)") References: Message-ID: >>>>> "DM" == Dan MacNeil writes: DM> Yet another slide request... DM> Are the LDAP slides someplace I missed? Since the LDAP slides are a small subset of my OSCON presentation (I'm sitting in an airport on my way to Portland now), I was just going to release the larger set of slides at the end of OSCON. They should be up on http://jibsheet.com/blather/ next week. My AxKit slides will be linked from there today or tomorrow. -kevin From damian at conway.org Wed Jul 9 11:30:25 2003 From: damian at conway.org (Damian Conway) Date: Mon Aug 2 21:39:44 2004 Subject: [yapc] Damian's .exrc? In-Reply-To: <3F097EE7.C888DA73@umich.edu> References: <20030627051112.2252d4b1.prlawrence@lehigh.edu> <3F048C49.6070401@ceverett.com> <3F060E0B.2050205@conway.org> <3F097EE7.C888DA73@umich.edu> Message-ID: <3F0C4321.9040108@conway.org> Hi Terry. > THANK YOU! I've already extracted a few nuggets and posted > explainations so people in my group can take advantage of some things. Glad to hear it's been useful to you. :-) > If you would, kind sir, make available the code that generated the code > to show a "progress bar" (seen in the last plenary session), I'd be vey > grateful again. TIA I've attached an (undocumented) alpha. Good luck! ;-) Damian -------------- next part -------------- package IO::Progress; use base Exporter; @EXPORT = qw(progress); use Carp; use Text::Reform 'form'; my $form = "\r<"x78; my %field = ( msg=>{cnt=>0}, expect=>{fld=>'msg',cnt=>0} ); my @fields = (""); my ($display, $prevdisplay) = ("",""); my $USAGE_FORM = <<'EOUSAGE'; Usage: progress form=>[$template, 'Field1', 'Field2'...] Error in call to &progress EOUSAGE my $USAGE_NEXT = <<'EOUSAGE'; Usage: progress next=>['Field1', 'Field2', {Field3=>newval}...] Error in call to &progress EOUSAGE my $USAGE_FLD = <<'EOUSAGE'; Usage: progress Field1=>'msg', Field2=>'msg'...] Error in call to &progress EOUSAGE sub check { my $USAGE = shift; my @invalid = grep !(length && exists $field{$_}), @_; croak "Unknown field", (@invalid==1?"":"s"), ": @_\n\n", $USAGE if @invalid; return @_; } my $form_marker = join "|", map quotemeta, qw([[ || ]] << ^^ >> ~); my $is_form = qr/^$form_marker|[^\\]$form_marker/; sub desc_time { my ($seconds) = @_; return "unknown amount of time" if $seconds eq '???'; my $hours = int($seconds/3600); $seconds -= 3600*$hours; my $minutes = int($seconds/60); $seconds -= 60*$minutes; my $remaining; if ($hours) { $remaining = $minutes < 10 ? "about $hours hour".($hours==1?"":"s") : $minutes < 25 ? "less than $hours.5 hours" : $minutes < 40 ? "about $hours.5 hours" : "less than ".($hours+1)." hours"; } elsif ($minutes) { $remaining = "about $minutes minutes"; chop $remaining if $minutes == 1; } else { $remaining = "$seconds seconds"; chop $remaining if $seconds == 1; } return $remaining; } sub set_ETA { my ($elapsed) = @_; $field{elapsed}{cnt} = $elapsed; $field{elapsed}{msg} = desc_time($elapsed); my $predicted = $field{expect}{cnt} && $field{expect}{cnt} =~ /^\d+$/ ? int($field{expect}{cnt} / ($field{$field{expect}{fld}}{cnt}||1) * $field{elapsed}{cnt} - $field{elapsed}{cnt} + 1) : "???"; $field{remaining}{cnt} = $predicted; $field{remaining}{msg} = desc_time($predicted); } sub decode { my ($form_allowed, $form, @fields) = @_; $form = "%s" unless defined $form; my $formtype = ref $form; if ($formtype eq 'CODE') { local *_ = $fields[0]; return $form->(@fields); } if ($formtype eq 'ARRAY') { my @part = map { defined($_) ? $_ : "" } @$form[0..2]; return $part[0] . ($part[1]x$fields[0]) . $part[2]; } if ($form_allowed && $form =~ $is_form ) { return form $form, @fields; } if ( $form =~ /%[-+ 0#*hLlqVv0-9.]*[%bcDdEeFfGginOopsUuXx]\b/) { return sprintf $form, @fields } return $form; } my $start_time = time(); sub progress { my %arg = @_; if ($arg{form}) { croak $USAGE_FORM if ref($arg{form}) ne 'ARRAY'; ($form, @fields, %field) = @{$arg{form}}; @field{@fields} = map {fld=>$_, cnt=>0}, (0..$#fields); $field{msg} = {cnt=>0}; $field{expect} = {fld=>'msg',cnt=>0}; $start_time = time(); return unless keys %arg > 1; } $field{msg}{cnt}++; if ($arg{next}) { $arg{next} = [$arg{next}] if ref($arg{next}) eq 'HASH'; croak $USAGE_NEXT if ref($arg{next}) ne 'ARRAY'; my @next = @{$arg{next}}; for my $next (@next) { if (ref($next) eq 'HASH') { for (check $USAGE_NEXT, keys %$next) { $field{$_}{cnt} = $next->{$_}; } } else { check $USAGE_NEXT, $next; $field{$next}{cnt}++; } } } if (exists $arg{expect}) { my $type = ref $arg{expect}; if ($type eq 'ARRAY') { croak "Only one expectation allowed" if @{$arg{expect}} > 2; } elsif ($type eq 'HASH') { croak "Only one expectation allowed" if keys %{$arg{expect}} > 1; $arg{expect} = [ %{$arg{expect}} ]; } else { $arg{expect} = [ 'msg', $arg{expect} ]; } $field{expect}{fld} = $arg{expect}[0]; $field{expect}{cnt} = $arg{expect}[1]; } set_ETA(time()-$start_time); $prevdisplay = $display; if (exists $arg{msg}) { $display = decode(1,$arg{msg},$field{msg}{cnt}); goto OUTPUT; } for my $field (check $USAGE_FLD, grep /^[A-Z]/, keys %arg) { $field{$field}{msg} = $arg{$field}; } ($display = decode 1, $form, map { decode 0, @{$_}{'msg','cnt'} } @field{@fields}) =~ s/\n.*//s; OUTPUT: local $|=1; print "\r", " " x length($prevdisplay), "\r$display" if -t; select undef, undef, undef, $arg{pause} if $arg{pause}; $start_time = time() if $display =~ /\n\z/; } 1; -------------- next part -------------- #! /usr/bin/perl -w use IO::Progress; progress msg=>[qw(Loading .)], pause=>1 for 0..5; progress msg=>[qw(Loading . done)], pause=>2; for (1..1000) { $value = rand 30; progress msg=>[qw(| - |)], next=>{msg=>$value}; } progress form=>["Volume: 0|<<<<<<<<<<<|11", Volume]; for (1..1000) { $value = rand 11; progress Volume=>'*'x$value; } progress form=>["L [>>>>>>>>>>] [<<<<<<<<<<<] R", Left, Right ]; for (1..1000) { ($left, $right) = (rand 10, rand 10); progress Left=>'|'x$left, Right=>'|'x$right; } -------------- next part -------------- use IO::Progress; progress form=>["Step %s, Processed %s of %s in %s (%s to go)", 'msg', 'Seen', 'expect', 'elapsed', 'remaining']; for (1..20) { progress next=>['Seen'], expect=>20, pause=>0.4; } progress msg=>"Done\n", next=>{Seen=>0}, expect=>{Seen=>200}; for (1..200) { progress next=>['Seen'], pause=>0.4; } -------------- next part -------------- use IO::Progress; progress form=>[">>>>: phase <<<< [ |||| ]", Step, Phase, Status, ]; for (1..5) { progress Status=>"on", Step=>"%d", Phase=>"%d", pause=>1; progress next=>[Step]; progress next=>[Phase] unless $_%3; progress Status=>"off", pause=>1; } progress msg=>"Done\n";