From raanders at acm.org Thu Jul 1 18:38:31 2004 From: raanders at acm.org (Roderick A. Anderson) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Odd (?) array process Message-ID: Well it may only be odd to me but I can't seem to figure out a way to do this. (Probably too late in the day -- brain's full and I want to go home :-). I am getting command line like this: raa@onedomain.com, sbb@twodomain.com someone@example.com, \ ed@example.geek checkone, checktwo, checklast D:\spool\ertyuihjklyuio.file (the continuation is mine) and the anywhere there is a comma-space it needs to be only a comma since the two or more values belong together. I can't change the software providing the data to do it correctly -- commas and no spaces -- so I need a perl solution. Getopts didn't work didn't work on Windows groups of values in single quote marks "value1, value2" and double quotes are not an option. Any suggestions on how to do this? I tried some foreach loop tricks but got nowhere slowly. Like I typed earlier I'm tired and my brain is full for today. I know I just not seeing it clearly. If no suggestions this evening I'll look at a for loop tomorrow. TIA, Rod -- "Open Source Software - You usually get more than you pay for..." "Build A Brighter Lamp :: Linux Apache {middleware} PostgreSQL" From ken at cgi101.com Thu Jul 1 18:48:26 2004 From: ken at cgi101.com (Ken Brush) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Odd (?) array process In-Reply-To: References: Message-ID: <200407011648.26344.ken@cgi101.com> On Thursday 01 July 2004 16:38, Roderick A. Anderson wrote: > raa@onedomain.com, sbb@twodomain.com someone@example.com, \ > ed@example.geek checkone, checktwo, checklast D:\spool\ertyuihjklyuio.file like this? $input = join ' ',@ARGV; $input =~ s/,\s/,/g; print "<<$input>>\n"; -Ken Brush From raanders at acm.org Thu Jul 1 18:59:36 2004 From: raanders at acm.org (Roderick A. Anderson) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Odd (?) array process In-Reply-To: <200407011648.26344.ken@cgi101.com> Message-ID: On Thu, 1 Jul 2004, Ken Brush wrote: > like this? > > $input = join ' ',@ARGV; > $input =~ s/,\s/,/g; > print "<<$input>>\n"; I really am tired. Perfectly clear and concise. I tried something similar and got all wrapped up trying too hard at it. I think it might have been the hammer and nail syndrome also. I had a couple of hammers handy and them made the project looked like a nail. Thanks Ken. Rod -- "Open Source Software - You usually get more than you pay for..." "Build A Brighter Lamp :: Linux Apache {middleware} PostgreSQL" From raanders at acm.org Fri Jul 2 18:07:29 2004 From: raanders at acm.org (Roderick A. Anderson) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Odd (?) array process In-Reply-To: <200407011648.26344.ken@cgi101.com> Message-ID: On Thu, 1 Jul 2004, Ken Brush wrote: > $input = join ' ',@ARGV; > $input =~ s/,\s/,/g; > print "<<$input>>\n"; Another quick follow up. Ken this rocked! My script is ripping right along. I was really tired. As soon as I saw this I realized the errors of my way. Thanks again. Rod -- "Open Source Software - You usually get more than you pay for..." "Build A Brighter Lamp :: Linux Apache {middleware} PostgreSQL" From wcooley at nakedape.cc Fri Jul 2 23:11:10 2004 From: wcooley at nakedape.cc (Wil Cooley) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] whois In-Reply-To: References: <50139.130.94.162.208.1088173678.squirrel@www.joshheumann.com> Message-ID: <1088827870.12221.0.camel@denk.nakedape.priv> On Fri, 2004-06-25 at 10:41, Randall Hansen wrote: > On Jun 25, 2004, at 07:27, Josh Heumann wrote: > > > So, is there a better module for looking up domain availability that > > anyone has used? > > Net::Whois seems ok. i can't install it since the tests fail, and the > examples in the POD have typos, but once you get past all that it > works. I tried both Net::Whois and Net::XWhois some time ago and neither gave me consistent results. Maybe they've caught up to the changes in root DNS servers, maybe not. Wil -- Wil Cooley wcooley@nakedape.cc Naked Ape Consulting http://nakedape.cc From perl-pm at joshheumann.com Sat Jul 3 11:09:28 2004 From: perl-pm at joshheumann.com (Josh Heumann) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] whois In-Reply-To: <1088827870.12221.0.camel@denk.nakedape.priv> References: <50139.130.94.162.208.1088173678.squirrel@www.joshheumann.com> <1088827870.12221.0.camel@denk.nakedape.priv> Message-ID: <33743.130.94.161.146.1088870968.squirrel@www.joshheumann.com> > I tried both Net::Whois and Net::XWhois some time ago and neither gave > me consistent results. Maybe they've caught up to the changes in root > DNS servers, maybe not. Actually, I'm getting the same thing with Net::Whois. A coworker mentioned something about flow restriction to the ARIN, et al servers, so that after a few queries, you start getting nulls back. Anyone had any experience with this? Josh From tex at off.org Sat Jul 3 22:23:55 2004 From: tex at off.org (Austin Schutz) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] whois In-Reply-To: <33743.130.94.161.146.1088870968.squirrel@www.joshheumann.com> References: <50139.130.94.162.208.1088173678.squirrel@www.joshheumann.com> <1088827870.12221.0.camel@denk.nakedape.priv> <33743.130.94.161.146.1088870968.squirrel@www.joshheumann.com> Message-ID: <20040704032355.GD26339@gblx.net> On Sat, Jul 03, 2004 at 09:09:28AM -0700, Josh Heumann wrote: > > > I tried both Net::Whois and Net::XWhois some time ago and neither gave > > me consistent results. Maybe they've caught up to the changes in root > > DNS servers, maybe not. > > Actually, I'm getting the same thing with Net::Whois. A coworker > mentioned something about flow restriction to the ARIN, et al servers, so > that after a few queries, you start getting nulls back. Anyone had any > experience with this? > Yes, I've experienced this with their rwhois server. My workaround at the time was to implement an exponential backoff loop until the server decided to cough up the goods. Particularly annoying was the lack of an rfc compliant error message, but then we can't all be sticklers for standards... This ends up making additional work for the servers, but maybe it stops some folks from flooding queries? *shrug* Austin From schwern at pobox.com Wed Jul 7 12:11:26 2004 From: schwern at pobox.com (Michael G Schwern) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Convert code to a module In-Reply-To: <20040530131606.4794.qmail@web50506.mail.yahoo.com> References: <20040530131606.4794.qmail@web50506.mail.yahoo.com> Message-ID: <20040707171126.GC1274@localhost.grantstreet.com> On Sun, May 30, 2004 at 11:16:06PM +1000, Andrew Savige wrote: > "Roderick A. Anderson" wrote: > > I have what I think are the definitive books on OOPerl: > > Advanced Perl Programming I consider this book to be actively damaging for a newbie and hardly useful for anybody else. It was a confused, poorly edited grab bag when it came out, now add to that its seven years out of date. It was written in the early days of Perl OO and the practices it uses are rarely useful and often just confuse the newcomer. In most cases there are much better ways to do things now or the book spends lots of time on things which simply never was an issue. Little of the sample code ever coalesed into usable modules. Examples: saving memory by spreading objects over sets of arrays the rather odd chapter about Jeeves Damian Conway's OO Perl is much, much better. The only other useful bit in APP was the XS and Internals information. Simon Cozens' Perl Internals book is more up to date and covers it in more detail. -- Michael G Schwern schwern@pobox.com http://www.pobox.com/~schwern/ The easy way is always mined. From raanders at acm.org Wed Jul 7 15:53:58 2004 From: raanders at acm.org (Roderick A. Anderson) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Convert code to a module In-Reply-To: <20040707171126.GC1274@localhost.grantstreet.com> Message-ID: On Wed, 7 Jul 2004, Michael G Schwern wrote: > I consider this book to be actively damaging for a newbie and hardly > useful for anybody else. It was a confused, poorly edited grab bag when it > came out, now add to that its seven years out of date. Maybe I blinded by the light? I never got very far into it but did get it several years ago (5+) so it was newer then. I'll read with caution! > Damian Conway's OO Perl is much, much better. This was a good book. I made it through most of the way but wasn't actively doing coding so most if it went into short term memory. > The only other useful bit in APP was the XS and Internals information. > Simon Cozens' Perl Internals book is more up to date and covers it in more > detail. I don't find this anywhere. Just a reference to rewriting the ORA Advanced book. New? Rod -- "Open Source Software - You usually get more than you pay for..." "Build A Brighter Lamp :: Linux Apache {middleware} PostgreSQL" From chromatic at wgz.org Wed Jul 7 16:05:03 2004 From: chromatic at wgz.org (chromatic) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Convert code to a module In-Reply-To: References: Message-ID: <1089234303.8891.22.camel@localhost> On Wed, 2004-07-07 at 13:53, Roderick A. Anderson wrote: > On Wed, 7 Jul 2004, Michael G Schwern wrote: > > The only other useful bit in APP was the XS and Internals information. > > Simon Cozens' Perl Internals book is more up to date and covers it in more > > detail. > I don't find this anywhere. Just a reference to rewriting the ORA > Advanced book. New? It's "Extending and Embedding Perl" from Manning (http://www.manning.com/jenness/). Sam Tregar's "Writing Perl Modules for CPAN" is also good (http://www.apress.com/book/bookDisplay.html?bID=14) and Peter Scott's "Perl Medic" (http://www.perlmedic.com/) is very good. -- c From raanders at acm.org Wed Jul 7 19:18:44 2004 From: raanders at acm.org (Roderick A. Anderson) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Convert code to a module In-Reply-To: <1089234303.8891.22.camel@localhost> Message-ID: On Wed, 7 Jul 2004, chromatic wrote: > It's "Extending and Embedding Perl" from Manning > (http://www.manning.com/jenness/). > > Sam Tregar's "Writing Perl Modules for CPAN" is also good > (http://www.apress.com/book/bookDisplay.html?bID=14) and Peter Scott's > "Perl Medic" (http://www.perlmedic.com/) is very good. I really need to get further afield. I've only heard one of these mentioned around my 'village'. Thanks, Rod -- "Open Source Software - You usually get more than you pay for..." "Build A Brighter Lamp :: Linux Apache {middleware} PostgreSQL" From schwern at pobox.com Thu Jul 8 14:33:28 2004 From: schwern at pobox.com (Michael G Schwern) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] program dispersement In-Reply-To: <202F123C-CAB9-11D8-B3A7-0003930405E2@ohsu.edu> References: <202F123C-CAB9-11D8-B3A7-0003930405E2@ohsu.edu> Message-ID: <20040708193328.GD10199@localhost.grantstreet.com> On Wed, Jun 30, 2004 at 10:15:46AM -0700, Thomas J Keller wrote: > Gretings, > This isn't programming. But it is relevant. Once you've got some > programs into production on various machines, what are "best practices" > for updating and bug fixing? I can't count on my users to do anything > but double click a desktop icon. Are the various machines under your control? I assume not. Most self-updating software these days seems to do something along these lines: 1) On startup query a built in http URL to get the latest version # & download location. 2) If newer, ask the user if they want to update. 3) If yes, download the installer. 4) Start the installer and quit. Let the user do the rest. That's about it. You can try getting clever by downloading just the diff between your version and the latest (cvs diff -rOLD_VERSION -rNEW_VERSION) and patch the existing code, but that's really only useful for really big apps. -- Michael G Schwern schwern@pobox.com http://www.pobox.com/~schwern/ But I wore the juice! From sechrest at peak.org Thu Jul 8 14:35:45 2004 From: sechrest at peak.org (John Sechrest) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] program dispersement In-Reply-To: Your message of Thu, 08 Jul 2004 15:33:28 EDT. <20040708193328.GD10199@localhost.grantstreet.com> Message-ID: <200407081935.i68JZje21227@jas.peak.org> In several sites, best practices includes some site management tool like CFengine (http://www.cfengine.org) or LCFG (http://www.lcfg.org) or ISconf (http://www.isconf.org) Having some methodology describing the state of your systems and then having a program make it happen is a good choice when you can afford to spend the set up time to do it. Michael G Schwern writes: % On Wed, Jun 30, 2004 at 10:15:46AM -0700, Thomas J Keller wrote: % > Gretings, % > This isn't programming. But it is relevant. Once you've got some % > programs into production on various machines, what are "best practices" % > for updating and bug fixing? I can't count on my users to do anything % > but double click a desktop icon. % % Are the various machines under your control? I assume not. % % Most self-updating software these days seems to do something along these % lines: % % 1) On startup query a built in http URL to get the latest version # & % download location. % 2) If newer, ask the user if they want to update. % 3) If yes, download the installer. % 4) Start the installer and quit. Let the user do the rest. % % That's about it. You can try getting clever by downloading just the diff % between your version and the latest (cvs diff -rOLD_VERSION -rNEW_VERSION) % and patch the existing code, but that's really only useful for really % big apps. % % % -- % Michael G Schwern schwern@pobox.com http://www.pobox.com/~schwern/ % But I wore the juice! % _______________________________________________ % Pdx-pm-list mailing list % Pdx-pm-list@mail.pm.org % http://mail.pm.org/mailman/listinfo/pdx-pm-list ----- John Sechrest . Helping people use . computers and the Internet . more effectively . . Internet: sechrest@peak.org . . http://www.peak.org/~sechrest From schwern at pobox.com Thu Jul 8 15:03:37 2004 From: schwern at pobox.com (Michael G Schwern) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Convert code to a module In-Reply-To: <1089234303.8891.22.camel@localhost> References: <1089234303.8891.22.camel@localhost> Message-ID: <20040708200337.GG10199@localhost.grantstreet.com> On Wed, Jul 07, 2004 at 02:05:03PM -0700, chromatic wrote: > > > The only other useful bit in APP was the XS and Internals information. > > > Simon Cozens' Perl Internals book is more up to date and covers it in more > > > detail. > > > I don't find this anywhere. Just a reference to rewriting the ORA > > Advanced book. New? > > It's "Extending and Embedding Perl" from Manning > (http://www.manning.com/jenness/). That's the one. > Peter Scott's "Perl Medic" (http://www.perlmedic.com/) is very good. That's a good one, too. And "Code Complete 2" even if Perl is only mentioned twice. -- Michael G Schwern schwern@pobox.com http://www.pobox.com/~schwern/ You're the sickest teenager I've ever set my wallet on. From chromatic at wgz.org Thu Jul 8 15:09:05 2004 From: chromatic at wgz.org (chromatic) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Convert code to a module In-Reply-To: <20040708200337.GG10199@localhost.grantstreet.com> References: <1089234303.8891.22.camel@localhost> <20040708200337.GG10199@localhost.grantstreet.com> Message-ID: <1089317345.26511.18.camel@localhost> On Thu, 2004-07-08 at 13:03, Michael G Schwern wrote: > And "Code Complete 2" even if Perl is only mentioned twice. I dunno, I don't use an IDE. -- c From schwern at pobox.com Thu Jul 8 15:25:13 2004 From: schwern at pobox.com (Michael G Schwern) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Convert code to a module In-Reply-To: <1089317345.26511.18.camel@localhost> References: <1089234303.8891.22.camel@localhost> <20040708200337.GG10199@localhost.grantstreet.com> <1089317345.26511.18.camel@localhost> Message-ID: <20040708202513.GM10199@localhost.grantstreet.com> On Thu, Jul 08, 2004 at 01:09:05PM -0700, chromatic wrote: > On Thu, 2004-07-08 at 13:03, Michael G Schwern wrote: > > > And "Code Complete 2" even if Perl is only mentioned twice. > > I dunno, I don't use an IDE. ? -- Michael G Schwern schwern@pobox.com http://www.pobox.com/~schwern/ Powered, not by a heart, but a sort of Wankel-Rotory Engine of Malevolence. http://www.goats.com/archive/031204.html From tcaine at eli.net Fri Jul 9 12:48:47 2004 From: tcaine at eli.net (Todd Caine) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] whois In-Reply-To: <33743.130.94.161.146.1088870968.squirrel@www.joshheumann.com> References: <33743.130.94.161.146.1088870968.squirrel@www.joshheumann.com> Message-ID: <20040709174847.GC18513@eli.net> Josh, You might give Net::Whois::RegistryFusion a try. A new version was just uploaded to the CPAN yesterday. ARIN does implement some kind of rate-limiting on connections to their WHOIS server. I just called ARIN and they said that they allow 30 queries within a 5 minute period before your IP address is denied for ~1 hour. Most of the Regional Internet Registries provide bulk WHOIS data which can be downloaded via anonymous FTP. Although, ARIN is the only registry which makes people sign an AUP before getting access to the bulk whois data. Todd On (Sat, Jul 03 09:09), Josh Heumann wrote: > > > I tried both Net::Whois and Net::XWhois some time ago and neither gave > > me consistent results. Maybe they've caught up to the changes in root > > DNS servers, maybe not. > > Actually, I'm getting the same thing with Net::Whois. A coworker > mentioned something about flow restriction to the ARIN, et al servers, so > that after a few queries, you start getting nulls back. Anyone had any > experience with this? > > Josh > > > _______________________________________________ > Pdx-pm-list mailing list > Pdx-pm-list@mail.pm.org > http://mail.pm.org/mailman/listinfo/pdx-pm-list From david at kineticode.com Sat Jul 10 16:06:43 2004 From: david at kineticode.com (David Wheeler) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] OT: Voter Registration Party Message-ID: <0BD3D1DE-D2B5-11D8-9030-000A95972D84@kineticode.com> My Fellow PDX.pmers, My wife and I signed up to host a phone banking party run by MoveOn PAC. We're going to register voters in one of the important "battleground" states that will decide the election. It'll be fun - and a powerful way to help defeat George W. Bush. Want to come to the party? You can sign up at: http://action.moveonpac.org/phone/selectmtg.html?event_ids=154078 Here are the details: Irvington voter registration party 2812 NE 13th Ave Portland, OR 97212 Sunday, July 11, 02:00 PM - 04:00 PM You can find other parties in your area -- or sign up to host your own -- by going to: http://action.moveonpac.org/phone/ We'll have a list of unregistered voters to call, and scripts to read when we're on the phone. Afterwards, we'll send a helpful kit to anyone who tells us they'd like to register to vote, and follow up to make sure they do. This has been shown to be a very effective way to register voters - and there's never been a more important time to boost registration than in the lead-up to this November's election! Since we'll be spending a good deal of the time at the party on the phone, it's important that you bring your own cell phone. But lists of folks to call, scripts of what to say, and good company will be provided. Come join the fun! David From rlucas at tercent.com Sat Jul 10 20:42:19 2004 From: rlucas at tercent.com (Randall Lucas) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] DBIx::Recordset really lacks inserted primary key for sequences / auto_increments? Message-ID: <40F09AFB.1030806@tercent.com> Mongers, Does DBIx::Recordset really, in this day and age, have no way to get the last inserted ID in a DB-independent way? Or am I overlooking something obvious? I like to prototype things in SQLite before moving them to Postgres, and the sequence vs. auto increment mismatch was conveniently covered up by Class::DBI. Please tell me I am missing a big obvious way to do this with DBIx::Recordset. Randall From perl-pm at joshheumann.com Mon Jul 12 10:46:35 2004 From: perl-pm at joshheumann.com (Josh Heumann) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] July Meeting Message-ID: <32918.130.94.161.146.1089647195.squirrel@www.joshheumann.com> This Wednesday at Free Geek. More info on the kwiki: http://pdx.pm.org/kwiki/index.cgi?PortlandPerlMongers ATTENTION RANDAL SCHWARTZ: email me info on your t-shirt connection. I haven't been able to get to you through email this week. ----- Perlbal, by Brad Fitzpatrick Brad Fitzpatrick is the founder and fearless leader of LiveJournal.com, an Open Source project and company focused on blogging and social networking with over 3,000,000 accounts, over half of which are in active use. His specialties have come to include Perl, frightening MySQL replication topologies, load balancing, distributed caching, scalability, and high-availability. He dislikes buying unnecessary hardware and commercial software. As such, he finds or creates ways to get more out of hardware, the open source way. Perlbal Perlbal's a load-balancing reverse HTTP proxy, as well as a webserver, as well as hybrid combo (useful for serving big files with complex auth/mapping which Perl/PHP is better at). It also has web-based stats. It uses epoll and sendfile to do things incredibly fast which Perl normally sucks at. Everything works in a single thread using an event-based model (hence epoll) and all truly synchronous operations (like the one-time stat and open syscalls before a sendfile) are done in a cloned helper thread which communicates the results back async over a pipe (Linux::AIO module). Basically it all shows how you can do really fancy low-level stuff in Perl and still be fast. From kellert at ohsu.edu Mon Jul 12 16:10:37 2004 From: kellert at ohsu.edu (Thomas J Keller) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] command line question Message-ID: This seems like one of those easy things easier ...things I want to rename all the files in a directory substituting an underscore for any spaces in the filename. I can write a program using IO::Dir, But it seems like that should be doable from the command line. Help? Thanks, Tom K. From ckuskie at dalsemi.com Mon Jul 12 16:16:49 2004 From: ckuskie at dalsemi.com (Colin Kuskie) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] command line question In-Reply-To: References: Message-ID: <20040712211649.GD21737@dalsemi.com> On Mon, Jul 12, 2004 at 02:10:37PM -0700, Thomas J Keller wrote: > This seems like one of those easy things easier ...things > I want to rename all the files in a directory substituting an > underscore for any spaces in the filename. I can write a program using > IO::Dir, But it seems like that should be doable from the command line. > Help? > Thanks, > Tom K. The original perl distribution used to include a program called rename that allowed you to pass a line of perl code that would modify each filename in any way you want. ren 'tr/ /_/;' * #!/usr/local/bin/perl #Usage: ren perlexpr [files] ($op = shift) or die "Usage: ren perlexpr [filenames]\n"; if (!@ARGV) { @ARGV = ; chop(@ARGV); } for (@ARGV) { $was = $_; eval $op; die $@ if $@; unless ($was eq $_) { rename($was,$_) or die "Unable to rename $was: $!\n"; } } =head1 NAME B - use a perl expression to rename multiple files =head1 SYNOPSIS B perl_expression [files] =head1 DESCRIPTION B uses a perl expression to rename multiple files. For more information about perl expressions, consult the perl man pages, F by Randal Schwartz, F by Larry Wall, or your local friendly Perl programmer. For example, to rename all files foo.* to bar.*, use ren 's/foo/bar/;' foo.* =head1 AUTHORS Randal Schwartz, Larry Wall =head1 DATE October 11, 1996 =cut From kellert at ohsu.edu Mon Jul 12 16:24:19 2004 From: kellert at ohsu.edu (Thomas J Keller) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] command line question In-Reply-To: <20040712211649.GD21737@dalsemi.com> References: <20040712211649.GD21737@dalsemi.com> Message-ID: That doesn't work for this problem: replacing whitespace in filenames. But thanks. On Jul 12, 2004, at 2:16 PM, Colin Kuskie wrote: > On Mon, Jul 12, 2004 at 02:10:37PM -0700, Thomas J Keller wrote: >> This seems like one of those easy things easier ...things >> I want to rename all the files in a directory substituting an >> underscore for any spaces in the filename. I can write a program using >> IO::Dir, But it seems like that should be doable from the command >> line. >> Help? >> Thanks, >> Tom K. > > The original perl distribution used to include a program called rename > that allowed you to pass a line of perl code that would modify each > filename in any way you want. > > ren 'tr/ /_/;' * > > > #!/usr/local/bin/perl > > #Usage: ren perlexpr [files] > > ($op = shift) or die "Usage: ren perlexpr [filenames]\n"; > > if (!@ARGV) { > @ARGV = ; > chop(@ARGV); > } > > for (@ARGV) { > $was = $_; > eval $op; > die $@ if $@; > unless ($was eq $_) { > rename($was,$_) or die "Unable to rename $was: $!\n"; > } > } > > =head1 NAME > > B - use a perl expression to rename multiple files > > =head1 SYNOPSIS > > B perl_expression [files] > > =head1 DESCRIPTION > > B uses a perl expression to rename multiple files. For more > information about > perl expressions, consult the perl man pages, F by > Randal > Schwartz, F by Larry Wall, or your local friendly > Perl programmer. > > For example, to rename all files foo.* to bar.*, use > > ren 's/foo/bar/;' foo.* > > > =head1 AUTHORS > > Randal Schwartz, Larry Wall > > =head1 DATE > > October 11, 1996 > > =cut > From ewilhelm at sbcglobal.net Mon Jul 12 16:27:43 2004 From: ewilhelm at sbcglobal.net (Eric Wilhelm) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] command line question In-Reply-To: <20040712211649.GD21737@dalsemi.com> References: <20040712211649.GD21737@dalsemi.com> Message-ID: <200407121627.43853.ewilhelm@sbcglobal.net> # The following was supposedly scribed by # Colin Kuskie # on Monday 12 July 2004 04:16 pm: >The original perl distribution used to include a program called rename >that allowed you to pass a line of perl code that would modify each >filename in any way you want. Debian still does this (it's in the 'perl' package.) Redhat had a compiled 'rename' which used a different pattern language I prefer the regex-based pattern expression. --Eric $cat `which rename` #!/usr/bin/perl -w # # This script was developed by Robin Barker (Robin.Barker@npl.co.uk), # from Larry Wall's original script eg/rename from the perl source. # # This script is free software; you can redistribute it and/or modify it # under the same terms as Perl itself. # # Larry(?)'s RCS header: # RCSfile: rename,v Revision: 4.1 Date: 92/08/07 17:20:30 # # $RCSfile: rename,v $$Revision: 1.5 $$Date: 1998/12/18 16:16:31 $ # # $Log: rename,v $ # Revision 1.5 1998/12/18 16:16:31 rmb1 # moved to perl/source # changed man documentation to POD # # Revision 1.4 1997/02/27 17:19:26 rmb1 # corrected usage string # # Revision 1.3 1997/02/27 16:39:07 rmb1 # added -v # # Revision 1.2 1997/02/27 16:15:40 rmb1 # *** empty log message *** # # Revision 1.1 1997/02/27 15:48:51 rmb1 # Initial revision # use strict; use Getopt::Long; Getopt::Long::Configure('bundling'); my ($verbose, $no_act, $force, $op); die "Usage: rename [-v] [-n] [-f] perlexpr [filenames]\n" unless GetOptions( 'v|verbose' => \$verbose, 'n|no-act' => \$no_act, 'f|force' => \$force, ) and $op = shift; $verbose++ if $no_act; if (!@ARGV) { print "reading filenames from STDIN\n" if $verbose; @ARGV = ; chop(@ARGV); } for (@ARGV) { my $was = $_; eval $op; die $@ if $@; next if $was eq $_; # ignore quietly if (-e $_ and !$force) { warn "$was not renamed: $_ already exists\n"; } elsif ($no_act or rename $was, $_) { print "$was renamed as $_\n" if $verbose; } else { warn "Can't rename $was $_: $!\n"; } } __END__ =head1 NAME rename - renames multiple files =head1 SYNOPSIS B S<[ B<-v> ]> S<[ B<-n> ]> S<[ B<-f> ]> I S<[ I ]> =head1 DESCRIPTION C renames the filenames supplied according to the rule specified as the first argument. The I argument is a Perl expression which is expected to modify the C<$_> string in Perl for at least some of the filenames specified. If a given filename is not modified by the expression, it will not be renamed. If no filenames are given on the command line, filenames will be read via standard input. For example, to rename all files matching C<*.bak> to strip the extension, you might say rename 's/\.bak$//' *.bak To translate uppercase names to lower, you'd use rename 'y/A-Z/a-z/' * =head1 OPTIONS =over 8 =item B<-v>, B<--verbose> Verbose: print names of files successfully renamed. =item B<-n>, B<--no-act> No Action: show what files would have been renamed. =item B<-f>, B<--force> Force: overwrite existing files. =back =head1 ENVIRONMENT No environment variables are used. =head1 AUTHOR Larry Wall =head1 SEE ALSO mv(1), perl(1) =head1 DIAGNOSTICS If you give an invalid Perl expression you'll get a syntax error. =head1 BUGS The original C did not check for the existence of target filenames, so had to be used with care. I hope I've fixed that (Robin Barker). =cut From ewilhelm at sbcglobal.net Mon Jul 12 16:36:59 2004 From: ewilhelm at sbcglobal.net (Eric Wilhelm) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] command line question In-Reply-To: References: <20040712211649.GD21737@dalsemi.com> Message-ID: <200407121636.59179.ewilhelm@sbcglobal.net> # The following was supposedly scribed by # Thomas J Keller # on Monday 12 July 2004 04:24 pm: >That doesn't work for this problem: replacing whitespace in filenames. >But thanks. > ? rename 's/\s+/_/g' * That would collapse any consecutive whitespace into a single underscore. Did you want it to recurse? If so, see: find -name "* *" -exec . --Eric >On Jul 12, 2004, at 2:16 PM, Colin Kuskie wrote: >> On Mon, Jul 12, 2004 at 02:10:37PM -0700, Thomas J Keller wrote: >>> This seems like one of those easy things easier ...things >>> I want to rename all the files in a directory substituting an >>> underscore for any spaces in the filename. I can write a program using >>> IO::Dir, But it seems like that should be doable from the command >>> line. >>> Help? >>> Thanks, >>> Tom K. >> >> The original perl distribution used to include a program called rename >> that allowed you to pass a line of perl code that would modify each >> filename in any way you want. >> >> ren 'tr/ /_/;' * -- "Unthinking respect for authority is the greatest enemy of truth." --Albert Einstein From kellert at ohsu.edu Mon Jul 12 16:38:57 2004 From: kellert at ohsu.edu (Thomas J Keller) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] command line question In-Reply-To: <200407121627.43853.ewilhelm@sbcglobal.net> References: <20040712211649.GD21737@dalsemi.com> <200407121627.43853.ewilhelm@sbcglobal.net> Message-ID: This also a nice program, and works for normally named files, but not for goofy filenames containing spaces. Thanks though, TK On Jul 12, 2004, at 2:27 PM, Eric Wilhelm wrote: > # The following was supposedly scribed by > # Colin Kuskie > # on Monday 12 July 2004 04:16 pm: > >> The original perl distribution used to include a program called rename >> that allowed you to pass a line of perl code that would modify each >> filename in any way you want. > > Debian still does this (it's in the 'perl' package.) Redhat had a > compiled > 'rename' which used a different pattern language > > I prefer the regex-based pattern expression. > > --Eric > > $cat `which rename` > #!/usr/bin/perl -w > # > # This script was developed by Robin Barker (Robin.Barker@npl.co.uk), > # from Larry Wall's original script eg/rename from the perl source. > # > # This script is free software; you can redistribute it and/or modify > it > # under the same terms as Perl itself. > # > # Larry(?)'s RCS header: > # RCSfile: rename,v Revision: 4.1 Date: 92/08/07 17:20:30 > # > # $RCSfile: rename,v $$Revision: 1.5 $$Date: 1998/12/18 16:16:31 $ > # > # $Log: rename,v $ > # Revision 1.5 1998/12/18 16:16:31 rmb1 > # moved to perl/source > # changed man documentation to POD > # > # Revision 1.4 1997/02/27 17:19:26 rmb1 > # corrected usage string > # > # Revision 1.3 1997/02/27 16:39:07 rmb1 > # added -v > # > # Revision 1.2 1997/02/27 16:15:40 rmb1 > # *** empty log message *** > # > # Revision 1.1 1997/02/27 15:48:51 rmb1 > # Initial revision > # > > use strict; > > use Getopt::Long; > Getopt::Long::Configure('bundling'); > > my ($verbose, $no_act, $force, $op); > > die "Usage: rename [-v] [-n] [-f] perlexpr [filenames]\n" > unless GetOptions( > 'v|verbose' => \$verbose, > 'n|no-act' => \$no_act, > 'f|force' => \$force, > ) and $op = shift; > > $verbose++ if $no_act; > > if (!@ARGV) { > print "reading filenames from STDIN\n" if $verbose; > @ARGV = ; > chop(@ARGV); > } > > for (@ARGV) { > my $was = $_; > eval $op; > die $@ if $@; > next if $was eq $_; # ignore quietly > if (-e $_ and !$force) > { > warn "$was not renamed: $_ already exists\n"; > } > elsif ($no_act or rename $was, $_) > { > print "$was renamed as $_\n" if $verbose; > } > else > { > warn "Can't rename $was $_: $!\n"; > } > } > > __END__ > > =head1 NAME > > rename - renames multiple files > > =head1 SYNOPSIS > > B S<[ B<-v> ]> S<[ B<-n> ]> S<[ B<-f> ]> I S<[ > I ]> > > =head1 DESCRIPTION > > C > renames the filenames supplied according to the rule specified as the > first argument. > The I > argument is a Perl expression which is expected to modify the C<$_> > string in Perl for at least some of the filenames specified. > If a given filename is not modified by the expression, it will not be > renamed. > If no filenames are given on the command line, filenames will be read > via standard input. > > For example, to rename all files matching C<*.bak> to strip the > extension, > you might say > > rename 's/\.bak$//' *.bak > > To translate uppercase names to lower, you'd use > > rename 'y/A-Z/a-z/' * > > =head1 OPTIONS > > =over 8 > > =item B<-v>, B<--verbose> > > Verbose: print names of files successfully renamed. > > =item B<-n>, B<--no-act> > > No Action: show what files would have been renamed. > > =item B<-f>, B<--force> > > Force: overwrite existing files. > > =back > > =head1 ENVIRONMENT > > No environment variables are used. > > =head1 AUTHOR > > Larry Wall > > =head1 SEE ALSO > > mv(1), perl(1) > > =head1 DIAGNOSTICS > > If you give an invalid Perl expression you'll get a syntax error. > > =head1 BUGS > > The original C did not check for the existence of target > filenames, > so had to be used with care. I hope I've fixed that (Robin Barker). > > =cut > _______________________________________________ > Pdx-pm-list mailing list > Pdx-pm-list@mail.pm.org > http://mail.pm.org/mailman/listinfo/pdx-pm-list From kellert at ohsu.edu Mon Jul 12 16:43:11 2004 From: kellert at ohsu.edu (Thomas J Keller) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] command line question In-Reply-To: <200407121627.43853.ewilhelm@sbcglobal.net> References: <20040712211649.GD21737@dalsemi.com> <200407121627.43853.ewilhelm@sbcglobal.net> Message-ID: <78F35152-D44C-11D8-837A-0003930405E2@ohsu.edu> Whoops, I take it back. It does work on goofy filenames w i t h spaces ;-) Thanks, Tom K On Jul 12, 2004, at 2:27 PM, Eric Wilhelm wrote: > # The following was supposedly scribed by > # Colin Kuskie > # on Monday 12 July 2004 04:16 pm: > >> The original perl distribution used to include a program called rename >> that allowed you to pass a line of perl code that would modify each >> filename in any way you want. > > Debian still does this (it's in the 'perl' package.) Redhat had a > compiled > 'rename' which used a different pattern language > > I prefer the regex-based pattern expression. > > --Eric > > $cat `which rename` > #!/usr/bin/perl -w > # > # This script was developed by Robin Barker (Robin.Barker@npl.co.uk), > # from Larry Wall's original script eg/rename from the perl source. > # > # This script is free software; you can redistribute it and/or modify > it > # under the same terms as Perl itself. > # > # Larry(?)'s RCS header: > # RCSfile: rename,v Revision: 4.1 Date: 92/08/07 17:20:30 > # > # $RCSfile: rename,v $$Revision: 1.5 $$Date: 1998/12/18 16:16:31 $ > # > # $Log: rename,v $ > # Revision 1.5 1998/12/18 16:16:31 rmb1 > # moved to perl/source > # changed man documentation to POD > # > # Revision 1.4 1997/02/27 17:19:26 rmb1 > # corrected usage string > # > # Revision 1.3 1997/02/27 16:39:07 rmb1 > # added -v > # > # Revision 1.2 1997/02/27 16:15:40 rmb1 > # *** empty log message *** > # > # Revision 1.1 1997/02/27 15:48:51 rmb1 > # Initial revision > # > > use strict; > > use Getopt::Long; > Getopt::Long::Configure('bundling'); > > my ($verbose, $no_act, $force, $op); > > die "Usage: rename [-v] [-n] [-f] perlexpr [filenames]\n" > unless GetOptions( > 'v|verbose' => \$verbose, > 'n|no-act' => \$no_act, > 'f|force' => \$force, > ) and $op = shift; > > $verbose++ if $no_act; > > if (!@ARGV) { > print "reading filenames from STDIN\n" if $verbose; > @ARGV = ; > chop(@ARGV); > } > > for (@ARGV) { > my $was = $_; > eval $op; > die $@ if $@; > next if $was eq $_; # ignore quietly > if (-e $_ and !$force) > { > warn "$was not renamed: $_ already exists\n"; > } > elsif ($no_act or rename $was, $_) > { > print "$was renamed as $_\n" if $verbose; > } > else > { > warn "Can't rename $was $_: $!\n"; > } > } > > __END__ > > =head1 NAME > > rename - renames multiple files > > =head1 SYNOPSIS > > B S<[ B<-v> ]> S<[ B<-n> ]> S<[ B<-f> ]> I S<[ > I ]> > > =head1 DESCRIPTION > > C > renames the filenames supplied according to the rule specified as the > first argument. > The I > argument is a Perl expression which is expected to modify the C<$_> > string in Perl for at least some of the filenames specified. > If a given filename is not modified by the expression, it will not be > renamed. > If no filenames are given on the command line, filenames will be read > via standard input. > > For example, to rename all files matching C<*.bak> to strip the > extension, > you might say > > rename 's/\.bak$//' *.bak > > To translate uppercase names to lower, you'd use > > rename 'y/A-Z/a-z/' * > > =head1 OPTIONS > > =over 8 > > =item B<-v>, B<--verbose> > > Verbose: print names of files successfully renamed. > > =item B<-n>, B<--no-act> > > No Action: show what files would have been renamed. > > =item B<-f>, B<--force> > > Force: overwrite existing files. > > =back > > =head1 ENVIRONMENT > > No environment variables are used. > > =head1 AUTHOR > > Larry Wall > > =head1 SEE ALSO > > mv(1), perl(1) > > =head1 DIAGNOSTICS > > If you give an invalid Perl expression you'll get a syntax error. > > =head1 BUGS > > The original C did not check for the existence of target > filenames, > so had to be used with care. I hope I've fixed that (Robin Barker). > > =cut > _______________________________________________ > Pdx-pm-list mailing list > Pdx-pm-list@mail.pm.org > http://mail.pm.org/mailman/listinfo/pdx-pm-list From ajsavige at yahoo.com.au Mon Jul 12 22:33:17 2004 From: ajsavige at yahoo.com.au (=?iso-8859-1?q?Andrew=20Savige?=) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] command line question In-Reply-To: Message-ID: <20040713033317.1590.qmail@web50809.mail.yahoo.com> Thomas J Keller wrote: > This seems like one of those easy things easier ...things > I want to rename all the files in a directory substituting an > underscore for any spaces in the filename. I can write a program using > IO::Dir, But it seems like that should be doable from the command line. Larry's rename command also gets a mention here: http://www.faqs.org/faqs/unix-faq/faq/part2/ in answer to the question: 2.6) How do I rename "*.foo" to "*.bar", or change file names to lowercase? (And is also discussed in Perl Cookbook, Recipe 9.9 "Renaming Files"). /-\ Find local movie times and trailers on Yahoo! Movies. http://au.movies.yahoo.com From ajsavige at yahoo.com.au Mon Jul 12 22:40:22 2004 From: ajsavige at yahoo.com.au (=?iso-8859-1?q?Andrew=20Savige?=) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] command line question In-Reply-To: <200407121636.59179.ewilhelm@sbcglobal.net> Message-ID: <20040713034022.83339.qmail@web50810.mail.yahoo.com> Eric Wilhelm wrote: > Did you want it to recurse? If so, see: > find -name "* *" -exec . Or, if using GNU find/xargs: find . -name '* *' -print0 | xargs -0 command which, avoiding all those forks, is a lot faster (the GNU-special -print0 copes with spaces and other funny characters in filenames). /-\ Find local movie times and trailers on Yahoo! Movies. http://au.movies.yahoo.com From dpool at hevanet.com Tue Jul 13 14:11:16 2004 From: dpool at hevanet.com (David Pool) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Penguin Day Announcement Message-ID: <40F433D4.6000804@hevanet.com> All, Below is the announcement for Portland's Penguin Day event. The SQL Clinic project that was shown at Perl Mongers a few months ago will be on demonstration. The intent is to bring together people who are interested in using open source software to help nonprofits make a difference in the world. At $25 for the whole day, the price is pretty reasonable. Hope it interests some of you... David Press Release for Penguin Day Portland, OR ? July 24^th 9:00am ? 4:00pm You are invited to Penguin Day! Come gather together with us to study the use of Free and open source software (F/OSS) in nonprofit organizations. This day long event will focus on overcoming barriers to F/OSS adoption by nonprofits, existing solutions and network building. Attendees will learn about the Meyer Memorial Trust's funding process that recently paid for software to track patients at a mental health center. Engender Health's Bill Lester will be in from New York to discuss the possibility of expanding the project into Africa's AIDS clinics. (A demonstration of the software takes place in the afternoon). Jerritt Collord from LinuxFund will be talking about their new programs to encourage F/OSS use and development in nonprofits. The dialog will be facilitated by representatives from many organizations including: Debra Jarcho of TACS (Portland) Allen Gunn from Aspiration (San Francisco) Drew Bernhard of ONE/NW (Portland) Dennis McCarthy of Project Alchemy (Seattle) Katrin Verclas from Aspiration (Massachusetts) Ron Braithwaite of Collaborative Technologies (Portland) Afternoon sessions will feature hands on demonstrations of open source software and further discussion topics. Further information about the conference and registration can be found here: http://portland.penguinday.org Location Free Geek Community Technology Center 1731 SE 10th Avenue http://portland.penguinday.org From perl-pm at joshheumann.com Wed Jul 14 12:14:18 2004 From: perl-pm at joshheumann.com (Josh Heumann) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] July Meeting Tonight Message-ID: <26244.130.94.160.138.1089825258.squirrel@www.joshheumann.com> 6:30pm at Free Geek, 1741 SE 10th Ave Perlbal, by Brad Fitzpatrick Brad Fitzpatrick is the founder and fearless leader of LiveJournal.com, an Open Source project and company focused on blogging and social networking with over 3,000,000 accounts, over half of which are in active use. His specialties have come to include Perl, frightening MySQL replication topologies, load balancing, distributed caching, scalability, and high-availability. He dislikes buying unnecessary hardware and commercial software. As such, he finds or creates ways to get more out of hardware, the open source way. Perlbal Perlbal's a load-balancing reverse HTTP proxy, as well as a webserver, as well as hybrid combo (useful for serving big files with complex auth/mapping which Perl/PHP is better at). It also has web-based stats. It uses epoll and sendfile to do things incredibly fast which Perl normally sucks at. Everything works in a single thread using an event-based model (hence epoll) and all truly synchronous operations (like the one-time stat and open syscalls before a sendfile) are done in a cloned helper thread which communicates the results back async over a pipe (Linux::AIO module). Basically it all shows how you can do really fancy low-level stuff in Perl and still be fast. From kevin.long at iovation.com Thu Jul 15 10:57:04 2004 From: kevin.long at iovation.com (Kevin Long) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Job Op Message-ID: Hey guys, The company I'm working for (IOVATION) is looking for an all around great software person with broad and deep Perl experience ASAP I'm just an engineer not an HR guy so please direct all inquiries to our acting CTO (Big JD) Jason DeHaan Jason.Dehaan@iovation.com Kevin Ernest Long | Creator of Cool Office: +1 503 224 6010 x 248 | Fax: +1 503 224 1581 | Home Office & Mobile: +1 503 888 6879 -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/pdx-pm-list/attachments/20040715/2916eb56/attachment.htm From ptkwt at aracnet.com Thu Jul 15 11:58:57 2004 From: ptkwt at aracnet.com (Phil Tomson) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Pie-Thon & State of the Onion In-Reply-To: Message-ID: Maybe I'm looking in the wrong place (I'm looking at the Perl Sessions page on the OSCON website) but I can't seem to find any reference of schedule for Larry's State of the Onion speech at OSCON - anyone know when that is supposed to take place? Last year if I recall correctly it was on Wednesday evening. Also, anyone know when the Pie-thon is supposed to happen? Phil From chromatic at wgz.org Thu Jul 15 12:09:40 2004 From: chromatic at wgz.org (chromatic) Date: Mon Aug 2 21:34:35 2004 Subject: [Pdx-pm] Pie-Thon & State of the Onion In-Reply-To: References: Message-ID: <1089911380.10429.81.camel@localhost> On Thu, 2004-07-15 at 09:58, Phil Tomson wrote: > Maybe I'm looking in the wrong place (I'm looking at the Perl Sessions > page on the OSCON website) but I can't seem to find any reference of > schedule for Larry's State of the Onion speech at OSCON - anyone know when > that is supposed to take place? Last year if I recall correctly it was on > Wednesday evening. It's Tuesday night, on the Events page: http://conferences.oreillynet.com/pub/w/29/events.html > Also, anyone know when the Pie-thon is supposed to happen? I think that's also Tuesday night. -- c From jonlevitre at yahoo.com Thu Jul 15 13:49:24 2004 From: jonlevitre at yahoo.com (Jon LeVitre) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] Pie-Thon & State of the Onion In-Reply-To: Message-ID: <20040715184924.64019.qmail@web52710.mail.yahoo.com> The State of the Onion Adress is Tuesday night at 7:30 http://conferences.oreillynet.com/pub/w/29/events.html I haven't heard about the Pie-thon --- Phil Tomson wrote: > > Maybe I'm looking in the wrong place (I'm looking at the Perl > Sessions > page on the OSCON website) but I can't seem to find any reference of > schedule for Larry's State of the Onion speech at OSCON - anyone know > when > that is supposed to take place? Last year if I recall correctly it > was on > Wednesday evening. > > Also, anyone know when the Pie-thon is supposed to happen? > > Phil > > > _______________________________________________ > Pdx-pm-list mailing list > Pdx-pm-list@mail.pm.org > http://mail.pm.org/mailman/listinfo/pdx-pm-list > __________________________________ Do you Yahoo!? Yahoo! Mail - 50x more storage than other providers! http://promotions.yahoo.com/new_mail From ARichard at AZAD.com Thu Jul 15 17:32:10 2004 From: ARichard at AZAD.com (Aaron Richard) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] [JOB] Test Engineer Message-ID: I am currently looking for a Test Engineer with strong Perl experience. Please feel free to contact me directly. Sincerely, Aaron Richard AZAD, Inc. 15985 NW Schendel Ave. Suite 120 Beaverton, OR 97006 Ph. (503) 617-9490 T.f (800) 406-1785 Fx. (503) 617-9491 www.azad.com Test Engineer This is an excellent opportunity for an AZAD consultant to join a Systems Engineering team to implement the existing test plans for a Linux based system. This individual will be responsible for creating and executing the tests, as well as, investigating and debugging the software and system level issues. The ideal candidate will possess experience in the following: - Minimum of 5 years of experience creating and executing test scripts and diagnostics. - Strong proficiency with Linux, C and PERL scripting. - Proven Experience with testing software/firmware, as well as, hardware and boards for complex embedded systems. - Creating automated test application. - Debugging embedded systems and hardware is a big plus. - Experience testing hardware and software (at the embedded level) and testing a system (2-3 boards, fans, Ethernet fabrics, chassis) is a must. All the boards/hardware and all the firmware/software are under test, not just the software. - Excellent written and verbal communication skills. ** Must be a US Citizen or a green card holder.** Location: Portland, Oregon -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/pdx-pm-list/attachments/20040715/a5378838/attachment.htm From david at kineticode.com Mon Jul 19 13:33:26 2004 From: david at kineticode.com (David Wheeler) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] T-Shirt Tag Line Message-ID: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> Hi All, As Josh mentioned at the meeting last week, I had suggested that we add a tag line to the t-shirt design. The tag line is "I'd rather be hacking." Or, "I'd rather be hacking Perl." Thoughts? The order goes in this afternoon, from what I understand, so now is the time to vote yay or nay. Cheers, David -------------- next part -------------- A non-text attachment was scrubbed... Name: smime.p7s Type: application/pkcs7-signature Size: 2369 bytes Desc: not available Url : http://mail.pm.org/pipermail/pdx-pm-list/attachments/20040719/cc803d1a/smime.bin From darthsmily at verizon.net Mon Jul 19 14:00:54 2004 From: darthsmily at verizon.net (darthsmily) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] T-Shirt Tag Line In-Reply-To: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> References: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> Message-ID: <40FC1A66.4060004@verizon.net> Give PERL a whirl. DarthSmily David Wheeler wrote: > Hi All, > > As Josh mentioned at the meeting last week, I had suggested that we > add a tag line to the t-shirt design. The tag line is "I'd rather be > hacking." Or, "I'd rather be hacking Perl." > > Thoughts? The order goes in this afternoon, from what I understand, so > now is the time to vote yay or nay. > > Cheers, > > David > >------------------------------------------------------------------------ > >_______________________________________________ >Pdx-pm-list mailing list >Pdx-pm-list@mail.pm.org >http://mail.pm.org/mailman/listinfo/pdx-pm-list > > From joe at radiojoe.org Mon Jul 19 13:45:46 2004 From: joe at radiojoe.org (Joe Oppegaard) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] T-Shirt Tag Line In-Reply-To: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> References: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> Message-ID: On Mon, 19 Jul 2004 at 11:33am -0700, David Wheeler wrote: > Hi All, > > As Josh mentioned at the meeting last week, I had suggested that we add > a tag line to the t-shirt design. The tag line is "I'd rather be > hacking." Or, "I'd rather be hacking Perl." > > Thoughts? The order goes in this afternoon, from what I understand, so > now is the time to vote yay or nay. > I like "I'd rather be hacking." What's the design for the front of the t-shirt? I have a feeling it was shown at the June meeting, which I missed. -Joe Oppegaard From david at kineticode.com Mon Jul 19 13:51:38 2004 From: david at kineticode.com (David Wheeler) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] T-Shirt Tag Line In-Reply-To: <40FC1A66.4060004@verizon.net> References: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> <40FC1A66.4060004@verizon.net> Message-ID: On Jul 19, 2004, at 12:00 PM, darthsmily wrote: > Give PERL a whirl. Damn! What's with all of this "PERL" crap? It's "Perl"! Am I missing something? David -------------- next part -------------- A non-text attachment was scrubbed... Name: smime.p7s Type: application/pkcs7-signature Size: 2369 bytes Desc: not available Url : http://mail.pm.org/pipermail/pdx-pm-list/attachments/20040719/7ca4cc7d/smime.bin From kevin.long at iovation.com Mon Jul 19 14:11:32 2004 From: kevin.long at iovation.com (Kevin Long) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] T-Shirt Tag Line Message-ID: I'd rather be #@ck!ng Kevin Ernest Long | Creator of Cool Office: +1 503 224 6010 x 248 | Fax: +1 503 224 1581 | Home Office & Mobile: +1 503 888 6879 -----Original Message----- From: pdx-pm-list-bounces@mail.pm.org [mailto:pdx-pm-list-bounces@mail.pm.org] On Behalf Of darthsmily Sent: Monday, July 19, 2004 12:01 PM To: David Wheeler Cc: Subject: Re: [Pdx-pm] T-Shirt Tag Line Give PERL a whirl. DarthSmily David Wheeler wrote: > Hi All, > > As Josh mentioned at the meeting last week, I had suggested that we > add a tag line to the t-shirt design. The tag line is "I'd rather be > hacking." Or, "I'd rather be hacking Perl." > > Thoughts? The order goes in this afternoon, from what I understand, so > now is the time to vote yay or nay. > > Cheers, > > David > >----------------------------------------------------------------------- - > >_______________________________________________ >Pdx-pm-list mailing list >Pdx-pm-list@mail.pm.org >http://mail.pm.org/mailman/listinfo/pdx-pm-list > > _______________________________________________ Pdx-pm-list mailing list Pdx-pm-list@mail.pm.org http://mail.pm.org/mailman/listinfo/pdx-pm-list From cdawson at webiphany.com Mon Jul 19 14:18:35 2004 From: cdawson at webiphany.com (Chris Dawson) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] T-Shirt Tag Line In-Reply-To: References: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> Message-ID: <40FC1E8B.5060803@webiphany.com> Since we are in Oregon, shouldn't it be "hacking or quacking?" (note: I went to UW so the Beavers/Ducks rivalry didn't factor into my comment here...) Chris Joe Oppegaard wrote: >On Mon, 19 Jul 2004 at 11:33am -0700, David Wheeler wrote: > > > >>Hi All, >> >>As Josh mentioned at the meeting last week, I had suggested that we add >>a tag line to the t-shirt design. The tag line is "I'd rather be >>hacking." Or, "I'd rather be hacking Perl." >> >>Thoughts? The order goes in this afternoon, from what I understand, so >>now is the time to vote yay or nay. >> >> >> > >I like "I'd rather be hacking." > >What's the design for the front of the t-shirt? I have a feeling it was >shown at the June meeting, which I missed. > > -Joe Oppegaard >_______________________________________________ >Pdx-pm-list mailing list >Pdx-pm-list@mail.pm.org >http://mail.pm.org/mailman/listinfo/pdx-pm-list > > From kellert at ohsu.edu Mon Jul 19 14:26:52 2004 From: kellert at ohsu.edu (Thomas J Keller) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] CGI.pm question about start_html(-script) Message-ID: <96B4590E-D9B9-11D8-8E2E-0003930405E2@ohsu.edu> Greetings CGI.pm users, I would like to call more than one external javascript script in a workrequest form I'm writing using CGI.pm. How do I code that in the start_html() method? I've tried giving the -src argument of -script an anonymous array: -script=>{'-language'=>'JavaScript', '-src'=>[ 'http://www.ohsu.edu/include/header_alt.js', 'http://www.ohsu.edu/research/core/verify.js', 'http://www.ohsu.edu/research/core/verify2.js',] } And I've tried giving -script an anonymous array: -script=>[ {'-language'=>'JavaScript', '-src'=>'http://www.ohsu.edu/include/header_alt.js', }, {'-language'=>'JavaScript', '-src'=>'http://www.ohsu.edu/research/core/verify.js', }, {'-language'=>'JavaScript', '-src'=>'http://www.ohsu.edu/research/core/verify2.js', } ] But neither approach works. I'm thinking that a list of input is not accepted, or I'm missing something basic. Can you help me with this? Thanks, Tom Keller From darthsmily at verizon.net Mon Jul 19 14:54:28 2004 From: darthsmily at verizon.net (darthsmily) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] T-Shirt Tag Line In-Reply-To: References: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> <40FC1A66.4060004@verizon.net> Message-ID: <40FC26F4.6090707@verizon.net> Practical Extraction and Report Language. So, technically it should be P.E.R.L. When People see it with the dots, they'll read the letters, instead of the work, so it wouldn't rhyme as well with whirl. However I do recognize the fact the the name has taken on a life of it's own. Like B.A.S.I.C. darthSmily David Wheeler wrote: > On Jul 19, 2004, at 12:00 PM, darthsmily wrote: > >> Give PERL a whirl. > > > Damn! What's with all of this "PERL" crap? It's "Perl"! > > Am I missing something? > > David From chromatic at wgz.org Mon Jul 19 14:43:37 2004 From: chromatic at wgz.org (chromatic) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] T-Shirt Tag Line In-Reply-To: <40FC26F4.6090707@verizon.net> References: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> <40FC1A66.4060004@verizon.net> <40FC26F4.6090707@verizon.net> Message-ID: <1090266216.16270.185.camel@localhost> On Mon, 2004-07-19 at 12:54, darthsmily wrote: > Practical Extraction and Report Language. David's thinking of perlfaq1, which says among other things: But never write "PERL", because perl is not an acronym, apocryphal folklore and post-facto expansions notwithstanding. -- c PS - I'd vote for "I'd rather be hacking." What else would I be hacking? (don't answer that) From joe at radiojoe.org Mon Jul 19 14:47:24 2004 From: joe at radiojoe.org (Joe Oppegaard) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] T-Shirt Tag Line In-Reply-To: <40FC26F4.6090707@verizon.net> References: <1FD0F134-D9B2-11D8-8B6A-000A95972D84@kineticode.com> <40FC1A66.4060004@verizon.net> <40FC26F4.6090707@verizon.net> Message-ID: > > On Jul 19, 2004, at 12:00 PM, darthsmily wrote: > > > >> Give PERL a whirl. > > > > > > Damn! What's with all of this "PERL" crap? It's "Perl"! > > > > Am I missing something? > > > Practical Extraction and Report Language. > > So, technically it should be P.E.R.L. > When People see it with the dots, they'll read the letters, instead of > the work, so it wouldn't rhyme as well with whirl. > > However I do recognize the fact the the name has taken on a life of it's > own. Like B.A.S.I.C. > From perlfaq1(1): What's the difference between "perl" and "Perl"? One bit. Oh, you weren't talking ASCII? :-) Larry now uses "Perl" to signify the language proper and "perl" the implementation of it, i.e. the current interpreter. Hence Tom's quip that "Nothing but perl can parse Perl." You may or may not choose to follow this usage. For example, parallelism means "awk and perl" and "Python and Perl" look OK, while "awk and Perl" and "Python and perl" do not. But never write "PERL", because perl is not an acronym, apocryphal folklore and post- facto expansions notwithstanding. -Joe From publiustemp-pdxpm at yahoo.com Mon Jul 19 15:00:16 2004 From: publiustemp-pdxpm at yahoo.com (publiustemp-pdxpm@yahoo.com) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] CGI.pm question about start_html(-script) In-Reply-To: <96B4590E-D9B9-11D8-8E2E-0003930405E2@ohsu.edu> Message-ID: <20040719200017.8013.qmail@web60804.mail.yahoo.com> --- Thomas J Keller wrote: > Greetings CGI.pm users, > I would like to call more than one external javascript script in a > workrequest form I'm writing using CGI.pm. How do I code that in the > start_html() method? [snip] > And I've tried giving -script an anonymous array: > -script=>[ {'-language'=>'JavaScript', > '-src'=>'http://www.ohsu.edu/include/header_alt.js', > }, {'-language'=>'JavaScript', > '-src'=>'http://www.ohsu.edu/research/core/verify.js', > }, {'-language'=>'JavaScript', > '-src'=>'http://www.ohsu.edu/research/core/verify2.js', > } ] Hi Tom, Maybe I'm missing something obvious, but I don't see the problem. This: print $q->start_html( -title=>'The Riddle of the Sphinx', -script=>[ { -language => 'JavaScript', -src => '/javascript/utilities10.js' }, { -language => 'JavaScript', -src => '/javascript/utilities11.js' }, ] ); Prints this: The Riddle of the Sphinx Can you provide us with a larger code snippet? What version of CGI.pm are you using? Also, when you say it doesn't work, what output are you expecting and what output are you actually getting? Cheers, Ovid ===== Silence is Evil http://users.easystreet.com/ovid/philosophy/indexdecency.htm Ovid http://www.perlmonks.org/index.pl?node_id=17000 Web Programming with Perl http://users.easystreet.com/ovid/cgi_course/ From kellert at ohsu.edu Mon Jul 19 15:14:26 2004 From: kellert at ohsu.edu (Thomas J Keller) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] CGI.pm question about start_html(-script) In-Reply-To: <20040719200017.8013.qmail@web60804.mail.yahoo.com> References: <20040719200017.8013.qmail@web60804.mail.yahoo.com> Message-ID: <3BA27A61-D9C0-11D8-8E2E-0003930405E2@ohsu.edu> chagrin ;-) ..typo in the path was all that was wrong. Sorry 'bout that. TK On Jul 19, 2004, at 1:00 PM, wrote: > --- Thomas J Keller wrote: >> Greetings CGI.pm users, >> I would like to call more than one external javascript script in a >> workrequest form I'm writing using CGI.pm. How do I code that in the >> start_html() method? > [snip] >> And I've tried giving -script an anonymous array: >> -script=>[ {'-language'=>'JavaScript', >> '-src'=>'http://www.ohsu.edu/include/header_alt.js', >> }, {'-language'=>'JavaScript', >> '-src'=>'http://www.ohsu.edu/research/core/verify.js', >> }, {'-language'=>'JavaScript', >> '-src'=>'http://www.ohsu.edu/research/core/verify2.js', >> } ] > > Hi Tom, > > Maybe I'm missing something obvious, but I don't see the problem. > This: > > print $q->start_html( > -title=>'The Riddle of the Sphinx', > -script=>[ > { > -language => 'JavaScript', > -src => '/javascript/utilities10.js' > }, > { > -language => 'JavaScript', > -src => '/javascript/utilities11.js' > }, > ] > ); > > Prints this: > > > PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN" > "http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd"> > lang="en-US">The Riddle of the > Sphinx > > > > > Can you provide us with a larger code snippet? What version of CGI.pm > are you using? Also, when > you say it doesn't work, what output are you expecting and what output > are you actually getting? > > Cheers, > Ovid > > ===== > Silence is Evil > http://users.easystreet.com/ovid/philosophy/indexdecency.htm > Ovid > http://www.perlmonks.org/index.pl?node_id=17000 > Web Programming with Perl http://users.easystreet.com/ovid/cgi_course/ > _______________________________________________ > Pdx-pm-list mailing list > Pdx-pm-list@mail.pm.org > http://mail.pm.org/mailman/listinfo/pdx-pm-list From schwern at pobox.com Mon Jul 19 15:17:37 2004 From: schwern at pobox.com (Michael G Schwern) Date: Mon Aug 2 21:34:36 2004 Subject: [Pdx-pm] CGI.pm question about start_html(-script) In-Reply-To: <96B4590E-D9B9-11D8-8E2E-0003930405E2@ohsu.edu> References: <96B4590E-D9B9-11D8-8E2E-0003930405E2@ohsu.edu> Message-ID: <20040719201737.GC23905@windhund.schwern.org> On Mon, Jul 19, 2004 at 12:26:52PM -0700, Thomas J Keller wrote: > Greetings CGI.pm users, > I would like to call more than one external javascript script in a > workrequest form I'm writing using CGI.pm. How do I code that in the > start_html() method? The interface is documented but a bit nasty. It really should work as you expected (ie. have src take an array ref) but I have the feeling Lincoln has little sympathy for JavaScript. A final feature allows you to incorporate multiple