From john.brittingham at attws.com Mon Oct 1 11:19:33 2001 From: john.brittingham at attws.com (Brittingham, John) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: insert Clob problems Message-ID: <23F6FCBAA611D511A74A00508BCFBE40025E1F1D@WA-MSG06> My appolgies folks.. Don't know what is going on... This message was sent on the 12th... And it appears again on the 30th...No clue what happened. -----Original Message----- From: Brittingham, John [mailto:john.brittingham@attws.com] Sent: Wednesday, September 12, 2001 12:21 PM To: dbi-users@perl.org; spug-list@pm.org Subject: SPUG: insert Clob problems I get the following error when I try to insert a CLOB using DBI: Not a CODE reference at extract_ccml__to_oracle_db_testing.pl line 381, line 1. What am I doing wrong? 380 $sth = $dbh->prepare(qq{INSERT INTO t_opr_instr ( TITLE,DSCR,ORDER_SEQ,PRD_MODEL_SPEC_ITEM_ID ) VALUES (?, ?, ?, ?) }); 381 $sth->( 1, $subproc_heading[$n]); 382 $sth->( 2, $dscr, SQL_LONGVARCHAR); 383 $sth->( 3, $ord_seq); 384 $sth->( 4, $prd_model_spec_item_id); 385 $sth->execute ; -----Original Message----- From: Ruchi Varma [mailto:ruchi@synopsys.COM] Sent: Wednesday, September 12, 2001 11:08 AM To: dbi-users@perl.org Subject: dynamic loading... hello, I had previously sent a message, regarding dynamic loading, on this newsgroup since i had problems installing DBD on my Solaris Box. I hence used the perl executable, created by the DBI installation in the dir /remote/tools/ruchi/perl5/site_perl/5.005/DBI-1.20/, to install DBD and it worked. But now when i run my cgi script using the DBI and DBD i have installed, it gives me the same error concerning Dynamic Loading. I have attached my script to this message ..Please look at it and give me some comments on how to solve this problem. ---------------------------------------------------------------------------- ---------------------------- #!/remote/tools/ruchi/perl5/site_perl/5.005/DBI-1.20/perl -- -*-perl-*- # I also tried using /usr/local/bin/perl5.6 ..but no luck... use lib qw(/remote/tools/ruchi/perl5 /remote/tools/mysql /remote/tools/ruchi/perl5/site_perl); use DBI; use CGI; use CGI::Carp qw(fatalsToBrowser); $driver = "mysql"; $dsn = "DBI:$driver:database = ASSETLOCATOR"; $dbUserName = "root"; $dbPassword = "blah"; $dataIn = new CGI; $dataIn->header(); $requestType = $dataIn->param('requestType'); $sql = $dataIn->param('sql'); if ($sql eq "") { &printSearchForm(); exit; } else { $dbh = &connectToDB(); $dataObject = executeSQLStatement($sql); @dbRows = &getDBRows($dataObject); if ($sql =~ /^SELECT/i) { print qq! SQL Statement results
!; foreach $rowReference (@dbRows) { foreach $columnReference (@$rowReference) { print qq!!; foreach $column (@$columnReference) { print qq!\n!; } print qq!!; } } print qq!
$column
!; exit; } else { print "Your SQL Query has been processed, please hit the back button and submit a SELECT to see the changes!"; } } sub connectToDB { return (DBI->connect($dsn, $dbUserName, $dbPassword)); } sub executeSQLStatement { my ($sql) = shift; $dataObject = $dbh->prepare($sql); $dataObject->execute(); return $dataObject; } sub getDBRows { my ($dataObject) = shift; return $dataObject->fetchall_arrayref(); } sub printSearchForm { print qq! Enter SQL
Enter SQL Query
!; } ---------------------------------------------------------------------------- --------------------- the dir /remote/tools/mysql has mysql installed the dir /remote/tools/ruchi/perl5/site_perl/5.005 has both DBD and DBI installed The error i get is Can't load module DBI, dynamic loading not available in this perl. (You may need to build a new perl executable which either supports dynamic loading or has the DBI module statically linked into it.) at /remote/tools/ruchi/perl5/site_perl/DBI.pm line 189 BEGIN failed--compilation aborted at /remote/tools/ruchi/perl5/site_perl/DBI.pm line 189. Compilation failed in require at query.cgi line 6. BEGIN failed--compilation aborted at query.cgi line 6. Since the problem appears due to the perl version i am using, which perl version should i use? As far as i know perl versions from 5.004 onwards support dynamic loading. But i am using version 5.6...and it still does not seem to work..:( kindly help.. thanks Ruchi -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20011001/eb3d2bc8/attachment.htm From Bryan.Dees at airborne.com Tue Oct 2 19:52:58 2001 From: Bryan.Dees at airborne.com (Bryan Dees) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Win32 Sorting directory by date Message-ID: <5D7F6EA633D0344EAD76552F7E49446C57F0C2@GOAEVS01.abf.ad.airborne.com> Hello, I'm trying to sort by date under Windows NT but not having much luck. What I want to do is open the directory, sort the array by their touch date and time then print out the contents. I've messed around with a couple mods (polysort, file::sort, etc.) but they still wont sort by the actual file touch date and time. I also tryed redirecting the opendir var through dir /od for example: opendir(FH, "c:\\winnt\\system32\\cmd.exe \/c dir \/od $Files |") But perl didn't like that either. Any ideas? Thank You, Bryan Dees Distributed Systems Analyst Airborne Express bryan.dees@airborne.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From largest at largest.org Tue Oct 2 20:36:53 2001 From: largest at largest.org (Joel Grow) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Win32 Sorting directory by date In-Reply-To: <5D7F6EA633D0344EAD76552F7E49446C57F0C2@GOAEVS01.abf.ad.airborne.com> Message-ID: What about something like this? use strict; my $dir = 'c:\\perl-scripts'; opendir(FILES, $dir); my @files = sort { -M $a <=> -M $b } # newest files first grep { -f } # only grab files--skip dirs readdir FILES; print "The files you requested:\n". join ("\n", @files) ."\n"; Joel On Tue, 2 Oct 2001, Bryan Dees wrote: > Hello, I'm trying to sort by date under Windows NT but not having much > luck. > > What I want to do is open the directory, sort the array by their touch > date and time then print out the contents. I've messed around with a > couple mods (polysort, file::sort, etc.) but they still wont sort by > the actual file touch date and time. I also tryed redirecting the > opendir var through dir /od for example: > opendir(FH, "c:\\winnt\\system32\\cmd.exe \/c dir \/od $Files |") > > But perl didn't like that either. > > Any ideas? > > Thank You, > > Bryan Dees > Distributed Systems Analyst > Airborne Express > bryan.dees@airborne.com > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From byoung at speakeasy.org Tue Oct 2 20:43:31 2001 From: byoung at speakeasy.org (Bradley E. Young) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Win32 Sorting directory by date In-Reply-To: <5D7F6EA633D0344EAD76552F7E49446C57F0C2@GOAEVS01.abf.ad.airborne.com> Message-ID: Bryan, You might try sort combined with the filetest operators: -- opendir(DIR, "."); @files = sort {-M $a <=> -M $b} readdir(DIR); print join "\n", @files; -- Brad Bradley E. Young Curmudgeon bradleyy@wrq.com +1.206.301.6778 The reasonable man adapts himself to the world; the unreasonable one persists in trying to adapt the world to himself. Therefore, all progress depends on the unreasonable man. -- George Bernard Shaw > -----Original Message----- > From: owner-spug-list@pm.org > [mailto:owner-spug-list@pm.org]On Behalf Of > Bryan Dees > Sent: Tuesday, October 02, 2001 17:53 > To: Spug-List (E-mail) > Subject: SPUG: Win32 Sorting directory by date > > > Hello, I'm trying to sort by date under Windows NT but > not having much > luck. > > What I want to do is open the directory, sort the array > by their touch > date and time then print out the contents. I've messed > around with a couple mods (polysort, file::sort, etc.) > but they still > wont sort by the actual file touch date > and time. I also tryed redirecting the opendir var > through dir /od for > example: > opendir(FH, "c:\\winnt\\system32\\cmd.exe \/c dir > \/od $Files |") > > But perl didn't like that either. > > Any ideas? > > Thank You, > > Bryan Dees > Distributed Systems Analyst > Airborne Express > bryan.dees@airborne.com > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - > - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: > owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION > LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by > your Email-address > For daily traffic, use spug-list for LIST ; for > weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From jason at strangelight.com Tue Oct 2 20:50:57 2001 From: jason at strangelight.com (Jason Lamport) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Win32 Sorting directory by date In-Reply-To: <5D7F6EA633D0344EAD76552F7E49446C57F0C2@GOAEVS01.abf.ad.airborne.com> References: <5D7F6EA633D0344EAD76552F7E49446C57F0C2@GOAEVS01.abf.ad.airborne.com> Message-ID: Can you iterate over the list of files and stat() each one? (perldoc -f stat) -jason At 5:52 PM -0700 10/2/01, Bryan Dees wrote: >Hello, I'm trying to sort by date under Windows NT but not having much >luck. > >What I want to do is open the directory, sort the array by their touch >date and time then print out the contents. I've messed >around with a couple mods (polysort, file::sort, etc.) but they still >wont sort by the actual file touch date >and time. I also tryed redirecting the opendir var through dir /od for >example: > opendir(FH, "c:\\winnt\\system32\\cmd.exe \/c dir \/od $Files |") > >But perl didn't like that either. > >Any ideas? > >Thank You, > >Bryan Dees >Distributed Systems Analyst >Airborne Express >bryan.dees@airborne.com > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From jeremy at weezel.com Wed Oct 3 00:14:27 2001 From: jeremy at weezel.com (Jeremy Devenport) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Win32 Sorting directory by date In-Reply-To: <5D7F6EA633D0344EAD76552F7E49446C57F0C2@GOAEVS01.abf.ad.airborne.com> Message-ID: <000801c14bca$46c4bca0$1401a8c0@jeremydhome> This is covered in Effective Perl Programming. The recipe is at http://www.effectiveperl.com/recipes/sorting.html "Sorting filenames by modification time". For extra fun and adventure you can increase the speed of the sort by adding in a Schwartzian Transform, see the next recipe down. Jeremy -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of Bryan Dees Sent: Tuesday, October 02, 2001 5:53 PM To: Spug-List (E-mail) Subject: SPUG: Win32 Sorting directory by date Hello, I'm trying to sort by date under Windows NT but not having much luck. What I want to do is open the directory, sort the array by their touch date and time then print out the contents. I've messed around with a couple mods (polysort, file::sort, etc.) but they still wont sort by the actual file touch date and time. I also tryed redirecting the opendir var through dir /od for example: opendir(FH, "c:\\winnt\\system32\\cmd.exe \/c dir \/od $Files |") But perl didn't like that either. Any ideas? Thank You, Bryan Dees Distributed Systems Analyst Airborne Express bryan.dees@airborne.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From Bryan.Dees at airborne.com Wed Oct 3 11:48:58 2001 From: Bryan.Dees at airborne.com (Bryan Dees) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Win32 Sorting directory by date Message-ID: <5D7F6EA633D0344EAD76552F7E49446C57F0C3@GOAEVS01.abf.ad.airborne.com> Thanks for the followup's everyone. Your solutions work perfectly under Unix. However, the provided solution doesn't sort files under Microsoft's 'challenged' NT OS: opendir(DIR, "."); @FILES = sort { -M $a <=> -M $b } readdir(DIR); print "The files you requested:\n". join("\n", @AllFiles2) ."\n"; close(DIR); Thank you for your continued support. Bryan Dees Distributed Systems Analyst Airborne Express bryan.dees@airborne.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From myocom at microsoft.com Wed Oct 3 12:10:45 2001 From: myocom at microsoft.com (Mark Yocom) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Win32 Sorting directory by date Message-ID: The problem with your script doesn't lie in NT, it lies in the fact that you are referring to two different arrays. You assign to @FILES and then reference @AllFiles2 in your print. Changing your code such that there's only one array returns accurate results on my Win2K box. opendir(DIR, "."); my @files = sort { -M $a <=> -M $b } readdir(DIR); print "The files you requested:\n". join("\n", @files) ."\n"; close(DIR); I might also recommend using strict, which will catch errors like this (and also force you to declare your variables ahead of time). > -----Original Message----- > From: Bryan Dees [mailto:Bryan.Dees@airborne.com] > Sent: Wednesday, October 03, 2001 9:49 AM > To: Spug-List (E-mail) > Subject: RE: RE: SPUG: Win32 Sorting directory by date > > > Thanks for the followup's everyone. Your solutions work > perfectly under > Unix. > However, the provided solution doesn't sort files under Microsoft's > 'challenged' NT OS: > > opendir(DIR, "."); > @FILES = sort { -M $a <=> -M $b } readdir(DIR); > print "The files you requested:\n". join("\n", > @AllFiles2) ."\n"; > close(DIR); > > > Thank you for your continued support. > > Bryan Dees > Distributed Systems Analyst > Airborne Express > bryan.dees@airborne.com > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your > Email-address > For daily traffic, use spug-list for LIST ; for weekly, > spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From myocom at microsoft.com Wed Oct 3 12:15:25 2001 From: myocom at microsoft.com (Mark Yocom) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Win32 Sorting directory by date Message-ID: Oh, and one other thing I overlooked: closedir(DIR) should be used instead of close(DIR). :-) > -----Original Message----- > From: Bryan Dees [mailto:Bryan.Dees@airborne.com] > Sent: Wednesday, October 03, 2001 9:49 AM > To: Spug-List (E-mail) > Subject: RE: RE: SPUG: Win32 Sorting directory by date > > > Thanks for the followup's everyone. Your solutions work > perfectly under > Unix. > However, the provided solution doesn't sort files under Microsoft's > 'challenged' NT OS: > > opendir(DIR, "."); > @FILES = sort { -M $a <=> -M $b } readdir(DIR); > print "The files you requested:\n". join("\n", > @AllFiles2) ."\n"; > close(DIR); > > > Thank you for your continued support. > > Bryan Dees > Distributed Systems Analyst > Airborne Express > bryan.dees@airborne.com > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your > Email-address > For daily traffic, use spug-list for LIST ; for weekly, > spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From cwilkes at ladro.com Wed Oct 3 12:24:41 2001 From: cwilkes at ladro.com (Chris Wilkes) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Win32 Sorting directory by date In-Reply-To: <5D7F6EA633D0344EAD76552F7E49446C57F0C3@GOAEVS01.abf.ad.airborne.com> Message-ID: On Wed, 3 Oct 2001, Bryan Dees wrote: > Thanks for the followup's everyone. Your solutions work perfectly under > Unix. > However, the provided solution doesn't sort files under Microsoft's > 'challenged' NT OS: > > opendir(DIR, "."); > @FILES = sort { -M $a <=> -M $b } readdir(DIR); > print "The files you requested:\n". join("\n", @AllFiles2) ."\n"; > close(DIR); Two things 1) you say "@AllFiles2" when you probably meant to say @FILES. 2) you should modify your script to check for files outside of the current directory by doing a map to pass along the directory name. Then use File::Basename to get just the file name out of the full path. Looks like it worked for me with the oldest file appearing last. #!c:\perl\bin\perl.exe use File::Basename; use strict; my ($dir, @files); $dir = shift || die "Pass me a directory\n"; opendir(DIR, $dir) || die "Can't open directory '$dir'\n"; @files = map { basename($_) } sort { -M $a <=> -M $b } map { "$dir/$_" } readdir(DIR); close(DIR); print "The files you requested:\n" . join("\n", @files) . "\n"; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tim at consultix-inc.com Wed Oct 3 13:08:57 2001 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Re: Learning more about Regexes : Has MRE been revised yet? In-Reply-To: ; from Scott R. Godin on Tue, Oct 02, 2001 at 06:26:51AM -0400 References: Message-ID: <20011003110857.D10521@timji.consultix.wa.com> On Tue, Oct 02, 2001 at 06:26:51AM -0400, Scott R. Godin wrote: > I've been seriously wanting to get the book, but considering all the > posts I've seen around about how out of date it was, several months back > when I was more active on usenet, I put it off. > > Does anyone know if any plans are in the works to revise and re-release > it anytime THIS millennium? :) Jeffrey told me last year that O'Reilly had been bugging him about updating "Mastering Regular Expressions," and Jeff ("Japhy") Pinyan mentioned at TPC that Jeffrey told him he's now working on that. So at some future point, I think we can expect to see a new edition appearing. In the meantime, the book is still quite useful, so long as you ignore the frequent advice to avoid using $& to avoid slowing down your program (it no longer causes the big performance hit it used to). -Tim *=========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | | TIM MAHER: Unix/Perl DAMIAN CONWAY: OO Perl BRIAN INGERSON: Inline.pm | |CLASSES:Shell/Utilities 10/8; Int Perl 10/22; Inline.pm 11/6; UNIX 11/26 | *=========================================================================* > > (my e-mail is broken, admins at hosting svc. have not yet repaired the > server, so replies to my address will get bounced. I'll simply check > back here later.) > > -- > Scott R. Godin | e-mail : webmaster@webdragon.net > Laughing Dragon Services | web : http://www.webdragon.net/ -- *=========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | | TIM MAHER: Unix/Perl DAMIAN CONWAY: OO Perl BRIAN INGERSON: Inline.pm | |CLASSES:Shell/Utilities 10/8; Int Perl 10/22; Inline.pm 11/6; UNIX 11/26 | *=========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From brianmaddux at yahoo.com Wed Oct 3 15:13:04 2001 From: brianmaddux at yahoo.com (Brian Maddux) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Re: Learning more about Regexes : Has MRE been revised yet? In-Reply-To: <20011003110857.D10521@timji.consultix.wa.com> Message-ID: <20011003201304.42085.qmail@web13006.mail.yahoo.com> I might also add that the perlre doc is quite good, IMO. I didn't actually read it until I downloaded IndigoPerl for my PC. It was a great help before I got MRE. In fact, I still use perlre more than MRE.... Brian Maddux ASIX, Inc. --- Tim Maher/CONSULTIX wrote: > On Tue, Oct 02, 2001 at 06:26:51AM -0400, Scott R. > Godin wrote: > > I've been seriously wanting to get the book, but > considering all the > > posts I've seen around about how out of date it > was, several months back > > when I was more active on usenet, I put it off. > > > > Does anyone know if any plans are in the works to > revise and re-release > > it anytime THIS millennium? :) > > Jeffrey told me last year that O'Reilly had been > bugging him about updating > "Mastering Regular Expressions," and Jeff ("Japhy") > Pinyan > mentioned at TPC that Jeffrey told him he's now > working on that. > > So at some future point, I think we can expect to > see a new > edition appearing. In the meantime, the book is > still quite > useful, so long as you ignore the frequent advice to > avoid using > $& to avoid slowing down your program (it no longer > causes the big > performance hit it used to). > > -Tim > *=========================================================================* > | Dr. Tim Maher, CEO, Consultix (206) > 781-UNIX/8649; ask for FAX# | > | Email: tim@consultix-inc.com Web: > http://www.consultix-inc.com | > | TIM MAHER: Unix/Perl DAMIAN CONWAY: OO Perl > BRIAN INGERSON: Inline.pm | > |CLASSES:Shell/Utilities 10/8; Int Perl 10/22; > Inline.pm 11/6; UNIX 11/26 | > *=========================================================================* > > > > > > (my e-mail is broken, admins at hosting svc. have > not yet repaired the > > server, so replies to my address will get bounced. > I'll simply check > > back here later.) > > > > -- > > Scott R. Godin | e-mail : > webmaster@webdragon.net > > Laughing Dragon Services | web : > http://www.webdragon.net/ > > -- > *=========================================================================* > | Dr. Tim Maher, CEO, Consultix (206) > 781-UNIX/8649; ask for FAX# | > | Email: tim@consultix-inc.com Web: > http://www.consultix-inc.com | > | TIM MAHER: Unix/Perl DAMIAN CONWAY: OO Perl > BRIAN INGERSON: Inline.pm | > |CLASSES:Shell/Utilities 10/8; Int Perl 10/22; > Inline.pm 11/6; UNIX 11/26 | > *=========================================================================* > > - - - - - - - - - - - - - - - - - - - - - - - - - - > - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: > owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: > ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL > by your Email-address > For daily traffic, use spug-list for LIST ; for > weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: > http://zipcon.net/spug/ > > __________________________________________________ Do You Yahoo!? NEW from Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month. http://geocities.yahoo.com/ps/info1 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tim at consultix-inc.com Wed Oct 3 15:25:21 2001 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Fremont Perl Gig Message-ID: <20011003132521.A11749@timji.consultix.wa.com> SOFTWARE DEVELOPER POSITION Geospiza Inc. is looking to hire immediately a software developer in a permanent position at it's offices in the Fremont/Ballard area of Seattle, Washington. This individual will be responsible for helping develop large web applications in Perl for data management in the Life Sciences. The ideal candidate will be comfortable with object oriented Perl, with writing CGI scripts in a UNIX environment, high-level design of applications, and interacting with customers. Longer term responsibilities would include enhancing the software development process and project management. The position may involve infrequent travel to customer sites, and some tele-commuting may be possible. Qualifications for this position include a minimum of 3 years software development experience working in a professional environment and experience with a formalized development process. This position minimally requires a B.S. degree in Computer Science or a related field. Familiarity with molecular biology is a plus, but not required. REQUIRED SKILLS Perl, mod_perl, Apache, C, UNIX/Linux, DBI/CGI, SQL, HTML, relational databases. DESIRABLE SKILLS: C++, Java, JavaScript, Oracle Administration, Solid, CVS. SALARY: Geospiza is an equal opportunity employer that offers competitive salaries with an attractive benefits package that includes equity participation. ABOUT GEOSPIZA Geospiza Inc is a bioinformatics software company that specializes in software systems for data management and analysis. Our web-based systems allow researchers, laboratory managers, and technicians to get the most information out of their data. Researchers use a Finch-Server to submit work requests, check progress, obtain results and perform further analysis. Technicians obtain work requests through the Finch-Server, store, process, and track data. Laboratory managers use the Finch- Server as a tool to assess the quality of laboratory operations, process data, and perform data analysis. We also support an active research program. Current efforts are focused on improving algorithms for large-scale genomics sequence assembly and developing integrated tools for expressed sequence tag (EST) clustering. These efforts are funded in part by SBIR grants. With a strong set of collaborators, Geospiza continues to develop innovative solutions for DNA sequencing labs. HOW TO APPLY: Please mail resumes directly to: Geospiza, Inc. Attn. Human Resources 3939 Leary Way NW, Seattle WA 98107 or email them to: jobs@geospiza.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From alyssa at atuin.net Mon Oct 8 19:07:03 2001 From: alyssa at atuin.net (Alyssa Harding) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: I must be missing something with Net::Ping Message-ID: <3BC23FA7.5070108@atuin.net> Hi List, Maybe someone else can look at this and tell me I'm missing something simple. I've got a script which runs on a server outside the firewall and pings certain servers. i'm using Net::Ping to do the pinging but I'm coming up with wierd results. use Net::Ping; my $isp = ''; my $outside='www.yahoo.com'; my $p = Net::Ping->new(); # by default uses icmp protocol if($p->ping($isp)) { print "isp reached\n"; } else { print "isp not reached\n"; } if( $p->ping($outside)) { print "outside reached\n"; } else { print "outside not reached\n"; } $p->close(); When I run the script I get the following output: isp reached outside not reached In other words, I can ping our ISP's router but I can't ping yahoo.com. So I tried on the command line (HPUX v10.20 seems to have the same ping as my Red Hat 7.1 box with different option flags - they are functionally the same though): ping and got a response just fine - good. I expected that. So I tried: ping www.yahoo.com and got a response just fine - hmmmm. Why won't the script do what the command line does when they are both using the same protocol to do the same thing? Traceroute shows the first hop being to the ISP's router and then about 18 more hops and #20 is yahoo. Any ideas? A. -- Alyssa Harding ---------------------------------------------------------------- "Why's it called Ming?" said the Archchancellor, on cue. The Bursar tapped the pot. It went *ming*. -- Discworld archeology revealed (Terry Pratchett, Moving Pictures) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From myocom at microsoft.com Mon Oct 8 19:53:03 2001 From: myocom at microsoft.com (Mark Yocom) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: I must be missing something with Net::Ping Message-ID: Maybe it's just me, but when I do 'perldoc Net::Ping', it says that the default protocol is UDP, not ICMP. Do you get the same results if you explicitly set the protocol used? my $p = Net::Ping->new('icmp'); > -----Original Message----- > From: Alyssa Harding [mailto:alyssa@atuin.net] > Sent: Monday, October 08, 2001 5:07 PM > To: SPUG > Subject: SPUG: I must be missing something with Net::Ping > > > Hi List, > > Maybe someone else can look at this and tell me I'm missing something > simple. > > I've got a script which runs on a server outside the firewall > and pings > certain servers. i'm using Net::Ping to do the pinging but > I'm coming > up with wierd results. > > use Net::Ping; > > my $isp = ''; > my $outside='www.yahoo.com'; > > my $p = Net::Ping->new(); # by default uses icmp protocol > > if($p->ping($isp)) { > print "isp reached\n"; > } else { > print "isp not reached\n"; > } > > if( $p->ping($outside)) { > print "outside reached\n"; > } else { > print "outside not reached\n"; > } > > $p->close(); > > When I run the script I get the following output: > isp reached > outside not reached > > In other words, I can ping our ISP's router but I can't ping > yahoo.com. > So I tried on the command line (HPUX v10.20 seems to have the > same ping > as my Red Hat 7.1 box with different option flags - they are > functionally the same though): > ping > and got a response just fine - good. I expected that. So I tried: > ping www.yahoo.com > and got a response just fine - hmmmm. > > Why won't the script do what the command line does when they are both > using the same protocol to do the same thing? Traceroute shows the > first hop being to the ISP's router and then about 18 more > hops and #20 > is yahoo. > > Any ideas? > > A. > -- > Alyssa Harding > ---------------------------------------------------------------- > "Why's it called Ming?" said the Archchancellor, on cue. > The Bursar tapped the pot. It went *ming*. > -- Discworld archeology revealed > (Terry Pratchett, Moving Pictures) > > > > > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your > Email-address > For daily traffic, use spug-list for LIST ; for weekly, > spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From cwilkes at ladro.com Mon Oct 8 19:58:05 2001 From: cwilkes at ladro.com (Chris Wilkes) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: I must be missing something with Net::Ping In-Reply-To: <3BC23FA7.5070108@atuin.net> Message-ID: On Mon, 8 Oct 2001, Alyssa Harding wrote: > my $p = Net::Ping->new(); # by default uses icmp protocol My docs for Net::Ping says that it uses the UDP protocol by default. The main reason for this is that you have to be root to open an ICMP socket, and since you probably aren't root when running a script it should default to what can normally be used. Ping is normally setuid root so that an average user can use it. If you say my $p = Net::Ping->new('icmp'); you'll be able to run your program, but you have to be root. It would be nice if there were a way around this but I can't think of any off the top of my head. You could do something easy like `ping $ip` and grep through the results. Chris - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From master at wowexpo.com Mon Oct 8 20:44:53 2001 From: master at wowexpo.com (=?ks_c_5601-1987?B?v82/7L+ivbrG9w==?=) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: =?ks_c_5601-1987?B?W8b4xbqxpLDtXSC6o726xq68v7evILD4wqUhISEgaHR0cDovL3N1bnNpdGUuc3V0LmFjLmpwL3B1Yi9hcmNoaXZlcy9jcGFuL21vZHVsZXMvYnktYXV0aG9ycy8wMHdob2lzLmh0bWy/obytIGUtbWFpbCDB1rzSuKYgw6O+0r3AtM+02S4=?= Message-ID: <200110090143.f991hdJ23104@gocho.pm.org> ?? ??? (Korea Fishing & ???? 14?) 1. ??? ??!!??? ??!!??? ???!! ??? ???!! 2. ?????? ???? ?? ?? ?? ?? korea Fishing! 3. ??? ??? ?? ? ??, ? ??? ???? ?? ?? ? ????. 4. ??? ???? ? ?? ????? ???? ??(031-385-3848) ? ??? ??????.??? ?????? ????? (???? 203-266117-13-001 ?????, ??? ?? ??) ??? ???? ??? ? ????. ??? ?? (?? : ????? ?) ???? ??? ?/??? ? | ????? | 2000? 10? ??7,800? ??? ?? ?? ???? ??? ??? ??? ???? ???? ???? ... ?? ?? ??? ?? ??? ????, ?? ??? ??/??? ? | ???? | 2000? 02? ??9,000? ???? ????? ?? ??? ?? ?? ??? ?? ?????? ?? ?? ?? ???. ?? ??? ???? ??? ? | ?? | 2001? 04? ??8,000? ????? ??? ??? ??? ???? ??? ??? ??? ???? ????? ??? ???? ?? ?? ????.... ???????? ?? ???? ???? ?/??? ? | ?? 1999? 10? ?? : \9,000 ? ???? ???????? ?? ?? ??? ????? ???? ??? ??? ???? ???? ??. ???? ????? 2000? 3? 15?, ???? ??? ? ???? ??. ?? ?? ??? ????? ?? ?? ???? ???? ?? ?? ??? ??? ???? ???? ?? ???? ?? ??? ???. ?? ? ??? ????? ??? ?? | ????? | 2000? 03? ??? 7,000? ??? ?? ?? ??? ?? ????? ???? ? ?? ??? ????, ??? ?? ??? ??? ???? ???? ????. ??? ? ???? ??? ??? ????.??? | ??? | 2001? 08? ??? 7,500? ?? ?? ?? ??? ????? ???? ? ??? ??? ??, ??? ??, ??? ???? ??? | ???? | 2001? 08? ??? 8,000? ??? ??? ???? ??? ? ????? ??? ?? ???? ? ??? ???? ??? ?? ??? ?? ???? ???? ?? ???? ??? ?? ?? ??? ??? | ???? | 1999? 11? ??7,500? .????? 100?? ?? ?? ??? ?? ?????? ?????.??? ????, ??? ??? ?? ??? ??? ?? ?? ?? | ????? | 2001? 07?? ??? ??? 30? ?? ?? ???? 1? ??? ??? ?? ?????? ???? ??? | ?????? 1999? 03? ??: 8,500? 1. ??? ??? ??? 2. ????? ??? 3. ???? ?? ?? ??? ???? ?? ?? ?? | IVP(??????????) | 1999? 08? ??? 8,500? ??? ?? ??? ???? ??? ?? ??? ??? ???? ??? ???? ?????? ??? ??? ????? ???? . ??? ??? ??? ???. ??? | ?????(J-pub) | 2000? 08? ??? 7,500? ??? ??? ??? ??? ???? ??? ??? ????? ? ??? ??? ?? ?? ???? ?? ??? .. ?????? ???? ?? ??, ?? ?? ??/ ??? ? | ????? | 2001? 08? ??8,000? ??? ????, ? ???, ?? ??, ???? ?, ??? ?? ?? ??? ?? ????? ????. ???? ??? ?? ?? ????? ??? 32?? ???? ?? ??? ?? ?/??? ? | 21???? | 2001? 07? ??8,500? ??? ??? ??? ?? ???? ??? ?? ?? ??? ??? ?? ?? ??? ... ??? ??? ??? | ??M&B | 2001? 06? ??? 8,000? ??? ???? ????? ???? ?? ?? ??? ???? ??? ?? ??? ?? ??? ?? ???? ??? ??? ?? .. 431-050 ??? ??? ??? ??? 1108 ????? 515? TEL(031-385-3848) FAX(031-385-3869) E-mail : master@wowexpo.com ????? ???? ??? ?????! -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20011009/827a7572/attachment.htm From alyssa at atuin.net Mon Oct 8 21:32:37 2001 From: alyssa at atuin.net (Alyssa Harding) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: I must be missing something with Net::Ping References: Message-ID: <3BC261C5.2080009@atuin.net> Mark Yocom wrote: > Maybe it's just me, but when I do 'perldoc Net::Ping', it says that the > default protocol is UDP, not ICMP. > > Do you get the same results if you explicitly set the protocol used? > > my $p = Net::Ping->new('icmp'); > Okay, sorry default Net::Ping protocol is UDP but I get the same result using: my $p = Net::Ping->new('icmp'); A. -- Alyssa Harding http://www.atuin.net/~alyssa ------------------------------------------------------------------- Nanny Ogg quite liked cooking, provided there were other people around to do things like chop up the vegetables and wash the dishes afterwards. -- Home Pragmatics (Terry Pratchett, Witches Abroad) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From alyssa at atuin.net Mon Oct 8 21:33:34 2001 From: alyssa at atuin.net (Alyssa Harding) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: I must be missing something with Net::Ping References: Message-ID: <3BC261FE.7070303@atuin.net> Actually, this script is running as root so using ICMP is not a problem. A. -- Alyssa Harding http://www.atuin.net/~alyssa ------------------------------------------------------------------- Nanny Ogg quite liked cooking, provided there were other people around to do things like chop up the vegetables and wash the dishes afterwards. -- Home Pragmatics (Terry Pratchett, Witches Abroad) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From starfire at zipcon.net Mon Oct 8 23:45:20 2001 From: starfire at zipcon.net (Richard Anderson) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: I must be missing something with Net::Ping References: <3BC261FE.7070303@atuin.net> Message-ID: <016b01c1507d$35a03370$1a88ddd1@aciwin> Have you tried playing with the timeout parameter? Have you tried the tcp protocol? Richard Anderson Software Professional Email: starfire@zipcon.net Webmaster and Board Member Seattle Unix Users Group, http://www.seaslug.org ----- Original Message ----- From: "Alyssa Harding" To: "Chris Wilkes" Cc: "SPUG" Sent: Monday, October 08, 2001 7:33 PM Subject: Re: SPUG: I must be missing something with Net::Ping > > > Actually, this script is running as root so using ICMP is not a problem. > > A. > > -- > Alyssa Harding > http://www.atuin.net/~alyssa > ------------------------------------------------------------------- > Nanny Ogg quite liked cooking, provided there were other people around to > do things like chop up the vegetables and wash the dishes afterwards. > -- Home Pragmatics > (Terry Pratchett, Witches Abroad) > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From asimjalis at yahoo.com Tue Oct 9 13:08:36 2001 From: asimjalis at yahoo.com (Asim Jalis) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Extreme Programming Meeting: PLANNING AND ESTIMATION (OCT 11 THU) Message-ID: <20011009180836.97648.qmail@web14204.mail.yahoo.com> EXTREME PROGRAMMING MEETING TOPICS THE XP PLANNING AND ESTIMATION PROCESS We will discuss how to run a planning meeting, how story and task cards are created and what processes are used to manage XP projects. This will be an interactive meeting where people from different software teams will discuss topics such as: - How they have adapted planning meetings to work with their software processes. - Pros and cons of different approaches. - Problems that arise and how to solve them. The emphasis will be on pragmatic ideas that you can apply immediately to improve your XP planning and estimation process. People who have some experience working in XP teams: Please bring your war-stories and come ready to share ideas and to brainstorm with the rest of the group on how a company just starting with XP can use the planning game to bootstrap their planning and estimation. SOFTWARE TOOLS FOR PLANNING MEETINGS Steve Howell will make a short presentation on how to use Graphviz and Webdot to store design documents and story cards. DATE AND SCHEDULE Thursday, October 11, 2001 (second Thursday of the month). 6.30 pm - 7.00 pm : Pizza + Networking. 7.00 pm - 9.00 pm : Presentations and Q&A. LOCATION Suite 100, Lante's Main Conference Room 3180 139th Avenue SE Bellevue, WA 98005 425.564.8800 (main desk) DIRECTIONS I have refactored the directions into two parts. First, how to get to 139th Ave SE (which depends on which interstate you use) and then how to get to 3180 which should be same for all cases: STEP 1: How to get to 139th Ave SE From I-405 South (going towards I-90) from Bellevue, Redmond. - Take exit 10 for Coal Creek Parkway and turn LEFT at the light as you get off the ramp onto Coal Creek Parkway. - Turn LEFT at Factoria Blvd (128th Av SE). - You will cross I-90 by going under it. - Turn RIGHT onto Eastgate Way SE, immediately after crossing I-90. - Take a LEFT at the light onto 139th Ave SE. From I-405 North (going towards I-90) from Renton. - Take exit 10 for Coal Creek Parkway and turn RIGHT at the light as you get off the ramp onto Coal Creek Parkway. - Turn LEFT at Factoria Blvd (128th Av SE). - You will cross I-90 by going under it. - Turn RIGHT onto Eastgate Way SE, immediately after crossing I-90. - Take a LEFT at the light onto 139th Ave SE From I-90 West (going towards I-405) from Bellevue, Issaquah, Redmond. - Take the 161st Ave SE/156th Ave SE/150th Ave SE exit (exit 11). - Keep LEFT at the fork in the ramp. - Keep RIGHT at the fork in the ramp. - Turn LEFT onto SE Eastgate Way. - Turn RIGHT onto 139th Ave SE. From I-90 East (going towards I-405) from Seattle, Mercer Island. - Take the Richards Road exit (exit 10). - Take a LEFT at the light off the exit ramp onto Richards Rd. - You will drive under I-90 crossing it. - Take the first RIGHT onto SE Eastgate Way. - Take a LEFT at the light onto 139th Ave SE STEP 2: How to find 3180 on 139th Ave SE - Drive past the turn for SE 32nd St. - 3180 will be the first building on your RIGHT. - You will notice a parking entrance into the building on your RIGHT. - Drive into it and then drive up the parking garage to the top (the 4th floor) which has uncovered parking. - Park anywhere (parking is free). - The building entrance should be straight ahead and there will be signs pointing to the XP meeting. __________________________________________________ Do You Yahoo!? NEW from Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month. http://geocities.yahoo.com/ps/info1 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From pbellam at cobaltgroup.com Wed Oct 10 14:24:30 2001 From: pbellam at cobaltgroup.com (Prakasa Bellam) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Net::Server question Message-ID: Hi All, I wrote a general perl server engine using "Net::Server::PreFork" module. When I run this script on some server, any client can connect to it through telnet and interact with it. Now I have a problem with Windows telnet client. Problem is Windows telnet client by default wont do local echo. So the user wont know what he types until he hits return key, at that point I print the value back to the user. My question is how can I set Windows client's local echo property from my script ? This module uses Sockets, so how do I set the local echo through this. Please let me know if any one knows answer for this, I am stuck with this. thanks Prakasa - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From blumoda at tiscalinet.it Thu Oct 11 20:23:48 2001 From: blumoda at tiscalinet.it (blumoda@tiscalinet.it) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Iper1 per l'e-commerce Message-ID: <20011011182905.EA09D8EBE@mail2.panix.com> An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20011011/e0a87eb4/attachment.htm From tim at consultix-inc.com Sun Oct 14 13:08:42 2001 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: October Meeting Message-ID: <20011014110842.B16150@timji.consultix.wa.com> SPUGsters, Sorry to report that I haven't managed to organize any special agenda for next week's (10/16) monthly meeting (for which the usual meeting place is still available). If anybody wants to volunteer to talk about something, or organize a "social" or other kind of alternative meeting, please make your suggestions known to the group (through this list). Otherwise, we'll just skip the October meeting, and resume in November -- possibly in a new location; more on this as it develops. -Tim /etc/cotd: find /earth -follow -name bin_laden -print | xargs rm -rf *=========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | | TIM MAHER: Unix/Perl DAMIAN CONWAY: OO Perl BRIAN INGERSON: Inline.pm | |CLASSES:Shell/Utilities 10/8; Int Perl 10/22; Inline.pm 11/6; UNIX 11/26 | *=========================================================================* ======================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: zipcon.net/spug | ======================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tim at consultix-inc.com Tue Oct 16 11:34:28 2001 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: New Web Page ; No Meeting Tonight Message-ID: <20011016093428.A15839@timji.consultix.wa.com> SPUGsters, Just a reminder that there's no meeting tonight (10/16), and those interested in making a presentation on something for our November or December meetings are welcome to voice their ideas. In other news, I'm now hosting the SPUG web page from my company web-server, which will eventually be accessible as seattleperl.com, but the underlying address is really http://www.consultix-inc.com/SPUG and that address is working now. So please update your bookmarks accordingly! Thanks, -Tim *=========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | EMAIL: tim@consultix-inc.com WEB: http://www.consultix-inc.com | | TIM MAHER: UNIX/Perl DAMIAN CONWAY: OO Perl COLIN MEYER: Perl CGI/DBI | |CLASSES:Int Perl 10/22; UNIX 11/26; Minimal Perl 11/30; Perl+Modules 12/3| | /etc/cotd: find /earth -follow -name bin-laden -print | xargs rm -rf | *=========================================================================* ============================================================= | Tim Maher, Ph.D. Tel: (206) 781-UNIX/8649 | | SPUG Founder & Leader Email: spug@consultix-inc.com | | Seattle Perl Users Group HTTP: consultix-inc.com/SPUG | ============================================================= - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From duskglow2000 at yahoo.com Wed Oct 17 20:14:40 2001 From: duskglow2000 at yahoo.com (Russell Miller) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Fw: greetings Message-ID: <002501c15772$4405bec0$5800a8c0@rmiller> First thing and I screw up. The message is below. Thanks for your help. ----- Original Message ----- From: "Russell Miller" To: Sent: Wednesday, October 17, 2001 8:13 PM Subject: greetings > Greetings all... just joined the list, because I'm a professional perl > programmer, and I have a problem I just can't seem to find the answer to, > and I hope that you can help me out. I'll try to help you guys (gals?) out > where I can, too. > > ok, we've got a six million line file to read. I had written a program that > scaled just fine for smaller files, but it choked on this file, and took an > extreme amount of time. > > the original code goes like this: > > open (FILE, "<$INPUT"); > @array = ; > close FILE; > > foreach $k (@array) { > ... > } > > it worked just fine, but very slow and memory intensive for a six million > line file. So, we changed it to read sequentially: > > open (FILE, "<$input"); > foreach $k () { > ... > } > > which got rid of the memory problem but the speed issue was still there. So > I changed the foreach line to: > > while ($k = ) { > > and the increase of speed had to be a thousand fold. > > What causes that speed impact? > > Thanks. > > --Russell > _________________________________________________________ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tim at consultix-inc.com Wed Oct 17 21:07:30 2001 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Fw: greetings In-Reply-To: <002501c15772$4405bec0$5800a8c0@rmiller>; from Russell Miller on Wed, Oct 17, 2001 at 08:14:40PM -0500 References: <002501c15772$4405bec0$5800a8c0@rmiller> Message-ID: <20011017190730.A27952@timji.consultix.wa.com> On Wed, Oct 17, 2001 at 08:14:40PM -0500, Russell Miller wrote: > First thing and I screw up. The message is below. Thanks for your help. Unless you're going to sort the lines of the file, there's probably no good reason to load the whole thing into memory! See further comments below . .. > From: "Russell Miller" > To: > Sent: Wednesday, October 17, 2001 8:13 PM > Subject: greetings > > > > Greetings all... just joined the list, because I'm a professional perl > > programmer, and I have a problem I just can't seem to find the answer to, > > and I hope that you can help me out. I'll try to help you guys (gals?) > out > > where I can, too. > > > > ok, we've got a six million line file to read. I had written a program > that > > scaled just fine for smaller files, but it choked on this file, and took > an > > extreme amount of time. > > > > the original code goes like this: > > > > open (FILE, "<$INPUT"); > > @array = ; That's an EXPENSIVE operation for a big file; Perl's got to allocate a scalar variable for each line, and stuff it into memory. Not to mention that Perl will have to keep allocating more memory for the array, as the lines keep coming in. > > close FILE; > > > > foreach $k (@array) { > > ... > > } > > > > it worked just fine, but very slow and memory intensive for a six million > > line file. So, we changed it to read sequentially: > > > > open (FILE, "<$input"); > > foreach $k () { That still causes Perl to read the entire file into memory, but at least you're not storing the entire file in an array this time, before looking at each line individually. > > ... > > } > > > > which got rid of the memory problem but the speed issue was still there. > So > > I changed the foreach line to: > > > > while ($k = ) { > > > > and the increase of speed had to be a thousand fold. > > > > What causes that speed impact? > > Thanks. > > > > --Russell While provides a SCALAR context to the input operator ( <> ), so only one line is read and stored in memory at a time. Foreach provides a LIST context, so the entire file is first read into memory, and then doled out to you one line at a time in the loop variable (doh!) Incidentally, I'm teaching a basic Perl programming class the week of 12/3 in Kirkland, if you want to learn more! 8-} *=========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | EMAIL: tim@consultix-inc.com WEB: http://www.consultix-inc.com | | TIM MAHER: UNIX/Perl DAMIAN CONWAY: OO Perl COLIN MEYER: Perl CGI/DBI | |CLASSES:Int Perl 10/22; UNIX 11/26; Minimal Perl 11/30; Perl+Modules 12/3| | /etc/cotd: find /earth -follow -name bin-laden -print | xargs rm -rf | *=========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From mcglk at artlogix.com Wed Oct 17 21:29:22 2001 From: mcglk at artlogix.com (Ken McGlothlen) Date: Wed Aug 4 00:08:21 2004 Subject: SPUG: Fw: greetings In-Reply-To: <002501c15772$4405bec0$5800a8c0@rmiller> References: <002501c15772$4405bec0$5800a8c0@rmiller> Message-ID: <87g08h1y0t.fsf@ralf.artlogix.com> "Russell Miller" writes: | ok, we've got a six million line file to read. I had written a program that | scaled just fine for smaller files, but it choked on this file, and took an | extreme amount of time. [...] | open (FILE, "<$INPUT"); | @array = ; | close FILE; | foreach $k (@array) { ... } Well, Russell, the problem here is that you're reading the entire file into an array. It's no wonder your system got rather bogged down---the process sucked in enough RAM to store the entire file. | So, we changed it to read sequentially: | | open (FILE, "<$input"); | foreach $k () { ... } The problem here, though, is that you're not actually reading it sequentially. Believe it or not, this is pretty much exactly the same as the previous example. Why? Because is being read in an list context. Granted, it's not a named array, but it's exactly the same as if you'd written foreach $k ( "line 1", "line 2", "line 3", ... "line 6,000,000" ) {...} | So I changed the foreach line to: | | while ($k = ) { ... } Which is exactly right; because is being read in a scalar context this time, it only returns one line at a time. That's gonna save you a lot of RAM, and therefore swapping time. This is a fairly common gotcha that hits everyone from time to time. Implied contexts can be confusing. If you try to remember what *should* be in a particular location, you'll know how the <...> operator works. For example: while( ) { ... } will read one line at a time, but for( ) { ... } will read the entire file up front, and then process it. Hope that helps. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From asimjalis at yahoo.com Thu Oct 18 02:06:58 2001 From: asimjalis at yahoo.com (Asim Jalis) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Perl On Linux/Unix Versus Windows Message-ID: <20011018070658.47089.qmail@web14203.mail.yahoo.com> I am curious how many people here use Perl on Linux (or some variant of Unix) compared to people who use it on some flavor of Windows. You can send me your responses and I will post the results of this spot survey to the list. __________________________________________________ Do You Yahoo!? Make a great connection at Yahoo! Personals. http://personals.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tleffler at u.washington.edu Thu Oct 18 11:30:15 2001 From: tleffler at u.washington.edu (Trevor Leffler) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Perl On Linux/Unix Versus Windows References: <20011018070658.47089.qmail@web14203.mail.yahoo.com> Message-ID: <3BCF0397.A2B5111C@u.washington.edu> We use Perl on linux and AIX. -- Trevor Leffler, Software Developer PETTT / Ed-Tech Development Group University of Washington OUGL 230, Box 353080 Asim Jalis wrote: > > I am curious how many people here use Perl on > Linux (or some variant of Unix) compared to people > who use it on some flavor of Windows. You can send > me your responses and I will post the results of > this spot survey to the list. > > __________________________________________________ > Do You Yahoo!? > Make a great connection at Yahoo! Personals. > http://personals.yahoo.com > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From Bryan.Dees at airborne.com Thu Oct 18 11:55:37 2001 From: Bryan.Dees at airborne.com (Bryan Dees) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Perl On Linux/Unix Versus Windows Message-ID: <5D7F6EA633D0344EAD76552F7E49446C57F0C8@GOAEVS01.abf.ad.airborne.com> We use Perl on HPUX and Linux. -----Original Message----- From: Trevor Leffler [mailto:tleffler@u.washington.edu] Sent: Thursday, October 18, 2001 9:30 AM To: Asim Jalis Cc: spug-list@pm.org Subject: Re: SPUG: Perl On Linux/Unix Versus Windows We use Perl on linux and AIX. -- Trevor Leffler, Software Developer PETTT / Ed-Tech Development Group University of Washington OUGL 230, Box 353080 Asim Jalis wrote: > > I am curious how many people here use Perl on > Linux (or some variant of Unix) compared to people > who use it on some flavor of Windows. You can send > me your responses and I will post the results of > this spot survey to the list. > > __________________________________________________ > Do You Yahoo!? > Make a great connection at Yahoo! Personals. > http://personals.yahoo.com > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From karl.b.hartman at Boeing.COM Thu Oct 18 12:21:20 2001 From: karl.b.hartman at Boeing.COM (Hartman, Karl B) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Perl On Linux/Unix Versus Windows Message-ID: <2F322129AF0F2C45B1E3D4BCC568B4ED185919@XCH-BLV-13.nw.nos.boeing.com> We do too. If you have any questions or comments, don't hesitate to call. Thanks, Karl Hartman SSG/CNO Client/Server Operations - Computing Admin Process Mgmt 425-294-8172 (office) Business Sense "Failure to embrace an idea just because it doesn't make sense or just plain doesn't work does not constitute resistance to change" Common Sense - from "Really important stuff my kids taught me" "Why buy roses when daisies are free." -----Original Message----- From: Bryan Dees [mailto:Bryan.Dees@airborne.com] Sent: Thursday, October 18, 2001 9:56 AM To: spug-list@pm.org Subject: RE: SPUG: Perl On Linux/Unix Versus Windows We use Perl on HPUX and Linux. -----Original Message----- From: Trevor Leffler [mailto:tleffler@u.washington.edu] Sent: Thursday, October 18, 2001 9:30 AM To: Asim Jalis Cc: spug-list@pm.org Subject: Re: SPUG: Perl On Linux/Unix Versus Windows We use Perl on linux and AIX. -- Trevor Leffler, Software Developer PETTT / Ed-Tech Development Group University of Washington OUGL 230, Box 353080 Asim Jalis wrote: > > I am curious how many people here use Perl on > Linux (or some variant of Unix) compared to people > who use it on some flavor of Windows. You can send > me your responses and I will post the results of > this spot survey to the list. > > __________________________________________________ > Do You Yahoo!? > Make a great connection at Yahoo! Personals. > http://personals.yahoo.com > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tuck at whistlingfish.net Thu Oct 18 14:57:02 2001 From: tuck at whistlingfish.net (Matt Tucker) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Perl On Linux/Unix Versus Windows In-Reply-To: <3BCF0397.A2B5111C@u.washington.edu> <5D7F6EA633D0344EAD76552F7E49446C57F0C8@GOAEVS01.abf.ad.airborne.com> <2F322129AF0F2C45B1E3D4BCC568B4ED185919@XCH-BLV-13.nw.nos.boeing.com> References: <20011018070658.47089.qmail@web14203.mail.yahoo.com> <3BCF0397.A2B5111C@u.washington.edu> Message-ID: <302410000.1003435022@benzene> -- Trevor Leffler spake thusly: > We use Perl on linux and AIX. -- Bryan Dees spake thusly: > We use Perl on HPUX and Linux. -- "Hartman, Karl B" spake thusly: > We do too. For those of you who haven't responded yet, please send responses to Asim personally. I see no point in burdening the list with a flood of messages indicating individual Perl environments, and I'm sure that Asim will submit his findings once he compiles them (which will be a good deal more useful anyway). Unless, of course, you wish to start a discussion regarding your particular environment. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/archives/spug-list/attachments/20011018/23808d1e/attachment.bin From bill at celestial.com Thu Oct 18 15:27:20 2001 From: bill at celestial.com (Bill Campbell) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Perl On Linux/Unix Versus Windows In-Reply-To: <20011018070658.47089.qmail@web14203.mail.yahoo.com>; from asimjalis@yahoo.com on Thu, Oct 18, 2001 at 12:06:58AM -0700 References: <20011018070658.47089.qmail@web14203.mail.yahoo.com> Message-ID: <20011018132720.A21402@barryg.mi.celestial.com> On Thu, Oct 18, 2001 at 12:06:58AM -0700, Asim Jalis wrote: >I am curious how many people here use Perl on >Linux (or some variant of Unix) compared to people >who use it on some flavor of Windows. You can send >me your responses and I will post the results of >this spot survey to the list. We use perl primarily on *ix systems. On the very rare occasions when I have had to do anything on a Microsoft virus, I've used perl. Back in the DOS days, I would often have the perl script write batch files so that I could get perl out of memory. The batch files would often run another perl process when they were done. Bill -- INTERNET: bill@Celestial.COM Bill Campbell; Celestial Software LLC UUCP: camco!bill PO Box 820; 6641 E. Mercer Way FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) 236-1676 URL: http://www.celestial.com/ ``It is our duty still to endeavor to avoid war; but if it shall actually take place, no matter by whom brought on, we must defend ourselves. If our house be on fire, without inquiring whether it was fired from within or without, we must try to extinguish it.'' -- Thomas Jefferson to James Lewis, Jr., 1798. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From asimjalis at yahoo.com Thu Oct 18 15:58:27 2001 From: asimjalis at yahoo.com (Asim Jalis) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Perl On Linux/Unix Versus Windows In-Reply-To: <302410000.1003435022@benzene> Message-ID: <20011018205827.7601.qmail@web14205.mail.yahoo.com> Matt Tucker wrote: > For those of you who haven't responded yet, > please send responses to Asim personally. I see > no point in burdening the list with a flood of > messages indicating individual Perl > environments, and I'm sure that Asim will submit > his findings once he compiles them (which will > be a good deal more useful anyway). > > Unless, of course, you wish to start a > discussion regarding your particular > environment. Yeah. What he said. Concerning the poll: I have received 28 responses so far, so we almost have a nice statistically significant sample. Even though I am tempted to announce the running tally right now I really should wait till all the votes are in, so that I don't bias uncast votes. I'll announce the results Friday night. Asim __________________________________________________ Do You Yahoo!? Make a great connection at Yahoo! Personals. http://personals.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From karl.b.hartman at Boeing.COM Thu Oct 18 18:34:34 2001 From: karl.b.hartman at Boeing.COM (Hartman, Karl B) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Perl On Linux/Unix Versus Windows Message-ID: <2F322129AF0F2C45B1E3D4BCC568B4ED18591D@XCH-BLV-13.nw.nos.boeing.com> HPUX & Solaris too (The servers I take care of are HPUX, Solais and various levels of RH Linux) -- Trevor Leffler spake thusly: > We use Perl on linux and AIX. -- Bryan Dees spake thusly: > We use Perl on HPUX and Linux. -- "Hartman, Karl B" spake thusly: > We do too. For those of you who haven't responded yet, please send responses to Asim personally. I see no point in burdening the list with a flood of messages indicating individual Perl environments, and I'm sure that Asim will submit his findings once he compiles them (which will be a good deal more useful anyway). Unless, of course, you wish to start a discussion regarding your particular environment. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From wildwood_players at yahoo.com Fri Oct 19 09:59:08 2001 From: wildwood_players at yahoo.com (Richard Wood) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Perl On Linux/Unix Versus Windows In-Reply-To: <2F322129AF0F2C45B1E3D4BCC568B4ED18591D@XCH-BLV-13.nw.nos.boeing.com> Message-ID: <20011019145908.24013.qmail@web11503.mail.yahoo.com> Asim, I am working at ATTWS in Redmond and there is quite a bit of perl on Solaris here and also some on HP although I don't have direct contact with that. Not much Linux that I am aware of. Rich Wood --- "Hartman, Karl B" wrote: > HPUX & Solaris too (The servers I take care of are > HPUX, Solais and various > levels of RH Linux) > > -- Trevor Leffler spake > thusly: > > > We use Perl on linux and AIX. > > > -- Bryan Dees spake > thusly: > > > We use Perl on HPUX and Linux. > > > -- "Hartman, Karl B" > spake thusly: > > > We do too. > > > For those of you who haven't responded yet, please > send responses to > Asim personally. I see no point in burdening the > list with a flood of > messages indicating individual Perl environments, > and I'm sure that > Asim will submit his findings once he compiles them > (which will be a > good deal more useful anyway). > > Unless, of course, you wish to start a discussion > regarding your > particular environment. > > - - - - - - - - - - - - - - - - - - - - - - - - - - > - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: > owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: > ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL > by your Email-address > For daily traffic, use spug-list for LIST ; for > weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: > http://zipcon.net/spug/ > > ===== Richard O. Wood Wildwood IT Consultants, Inc. wildwood_players@yahoo.com 425.941.9437 __________________________________________________ Do You Yahoo!? Make a great connection at Yahoo! Personals. http://personals.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From mkorb at versuslaw.com Fri Oct 19 11:24:17 2001 From: mkorb at versuslaw.com (Martin Korb) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: perl - sql - text datafield Message-ID: <001b01c158ba$802738e0$7201a8c0@versuslaw.com> I am writing a cgi program which queries a database table. One of the columns has data-type of text (meaning it exceeds 256 bytes). I am trying to display the content of all the columns on a page as cells of a table (this is the easy part). I am just not able to display the content of the column whose data-type is text. I know the content is actually stored as a pointer to the content in the database table, but I am not at all sure how do get out. Do I need to loop over the content and just advance the pointer to point to next 256 bytes or what....? Thanks Martin -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20011019/0165fa73/attachment.htm From cmeyer at helvella.org Fri Oct 19 12:15:08 2001 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: perl - sql - text datafield In-Reply-To: <001b01c158ba$802738e0$7201a8c0@versuslaw.com> References: <001b01c158ba$802738e0$7201a8c0@versuslaw.com> Message-ID: <20011019101508.B30111@hobart.helvella.org> Hi, Martin, On Fri, Oct 19, 2001 at 09:24:17AM -0700, Martin Korb wrote: > I am writing a cgi program which queries a database table. One of the > columns has data-type of text (meaning it exceeds 256 bytes). I am > trying to display the content of all the columns on a page as cells of > a table (this is the easy part). I am just not able to display the > content of the column whose data-type is text. I know the content is > actually stored as a pointer to the content in the database table, but > I am not at all sure how do get out. Do I need to loop over the > content and just advance the pointer to point to next 256 bytes or > what....? > > When fetching LOBs (Large Objects: BLOBS, Text, etc) from a database, there are two DBI database handle attributes to keep in mind: LongReadLen and LongTruncOk. LongReadLen is an integer that represents the maximum length of long fields to be read from the database. Note that the interpretation of this integer can vary depending on the underlying DBD. It might refer to the length in bytes, or perhaps in characters. A value of 0 means that the DBI wont fetch long values at all. LongTruncOk is a boolean that controls the action of the DBI when a value longer than LongReadLen is fetched from the database. If it is true, the value will be truncated to LongReadLen. If false, an error will occur. Typically these values default to 0 and false, respectively, but that may also vary by DBD. They should always be set explicitly by code that is dealing with long fields. For consistent behavior between different DBDs, these attributes should be adjusted in the database handle object before statement handles are prepared. Have fun, -C. > Thanks Martin - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From ben at reser.org Fri Oct 19 12:20:34 2001 From: ben at reser.org (Ben Reser) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: perl - sql - text datafield In-Reply-To: <001b01c158ba$802738e0$7201a8c0@versuslaw.com>; from mkorb@versuslaw.com on Fri, Oct 19, 2001 at 09:24:17AM -0700 References: <001b01c158ba$802738e0$7201a8c0@versuslaw.com> Message-ID: <20011019102034.I1538@titanium.brain.org> On Fri, Oct 19, 2001 at 09:24:17AM -0700, Martin Korb wrote: > > I am writing a cgi program which queries a database table. One of the > columns has data-type of text (meaning it exceeds 256 bytes). I am > trying to display the content of all the columns on a page as cells of > a table (this is the easy part). I am just not able to display the > content of the column whose data-type is text. I know the content is > actually stored as a pointer to the content in the database table, but > I am not at all sure how do get out. > > Do I need to loop over the content and just advance the pointer to > point to next 256 bytes or what....? I believe the answer is dependent on the database driver you are using and as a result the database itself that you are connecting to. It would at least help me try to answer your question is you told us that. -- Ben Reser http://ben.reser.org "To fight and conquer in all our battles is not supreme excellence. Supreme excellence consists in breaking the enemy's resistance without fighting." -Chinese philosopher Sun Tzu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From asimjalis at yahoo.com Fri Oct 19 14:26:16 2001 From: asimjalis at yahoo.com (Asim Jalis) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Results of Unix vs Windows Survey Message-ID: <20011019192617.15103.qmail@web14201.mail.yahoo.com> Here are the results: 49 TOTAL RESPONSES = 100.0% 40 UNIX = 81.6% 15 WINDOWS = 30.6% 30 UNIX ONLY = 61.2% 9 WINDOWS ONLY = 18.4% 6 UNIX AND WINDOWS = 12.2% 4 UNIX AND MAC = 8.2% About 30% of the people use Windows either 100% or around 50% of the time at work for Perl development. About 80% use Unix at least 50% of the time or more. About 18% use Perl in a pure Windows environment with no use of Unix which is interesting. Incidentally most of the Windows responses came in yesterday morning. The Unix responses came in later in the day and then also today. I didn't quantify the pattern, but it is possible that Windows users check their e-mail more regularly or at least respond more quickly than Unix users. Asim __________________________________________________ Do You Yahoo!? Make a great connection at Yahoo! Personals. http://personals.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From andrew at sweger.net Fri Oct 19 17:00:11 2001 From: andrew at sweger.net (Andrew Sweger) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Results of Unix vs Windows Survey In-Reply-To: <20011019192617.15103.qmail@web14201.mail.yahoo.com> Message-ID: On Fri, 19 Oct 2001, Asim Jalis wrote: > Incidentally most of the Windows responses > came in yesterday morning. The Unix responses > came in later in the day and then also today. > I didn't quantify the pattern, but it is > possible that Windows users check their > e-mail more regularly or at least respond > more quickly than Unix users. Or Unix users are spending more productive time writing code. ;) -- Andrew B. Sweger -- The great thing about multitasking is that several things can go wrong at once. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From dwainef at earthlink.net Fri Oct 19 17:43:43 2001 From: dwainef at earthlink.net (Dwaine Felch) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Results of Unix vs. Windows Survey In-Reply-To: <20011019192617.15103.qmail@web14201.mail.yahoo.com> Message-ID: <000001c158ef$93f43e10$d384fea9@amyrose> Perl is a very strong scripting language, the best I can find. I am primarily a Windows user and sometimes Linux and Mac. I am open to all Platforms and chose what I think is best for the job. For desktops, Workstations, home, business and the average user; Windows is the first choice. I presently don't own a Mac, but they are my second choice. Linux Is making progress, but is still very poor at setting up hardware and is More buggy than Windows or Mac. No comment on high end servers because I Have little experience with them. Once you have labeled yourself as "such and such user of this or that" you Have usually closed your mind off to what others are developing and will not See the good in it and reap the benefits; therefore blinded by the ego. My 2 cents, Dwaine -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of Asim Jalis Sent: Friday, October 19, 2001 12:26 PM To: spug-list@pm.org Subject: SPUG: Results of Unix vs Windows Survey Here are the results: 49 TOTAL RESPONSES = 100.0% 40 UNIX = 81.6% 15 WINDOWS = 30.6% 30 UNIX ONLY = 61.2% 9 WINDOWS ONLY = 18.4% 6 UNIX AND WINDOWS = 12.2% 4 UNIX AND MAC = 8.2% About 30% of the people use Windows either 100% or around 50% of the time at work for Perl development. About 80% use Unix at least 50% of the time or more. About 18% use Perl in a pure Windows environment with no use of Unix which is interesting. Incidentally most of the Windows responses came in yesterday morning. The Unix responses came in later in the day and then also today. I didn't quantify the pattern, but it is possible that Windows users check their e-mail more regularly or at least respond more quickly than Unix users. Asim __________________________________________________ Do You Yahoo!? Make a great connection at Yahoo! Personals. http://personals.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From starfire at zipcon.net Fri Oct 19 19:00:54 2001 From: starfire at zipcon.net (Richard Anderson) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Re: Results of Unix vs Windows Survey References: <20011019192617.15103.qmail@web14201.mail.yahoo.com> Message-ID: <011401c158fa$4b25eed0$1988ddd1@aciwin> After some crude data-mining, I noticed that only 25% of the programmers that use Perl on Unix use Perl on some other platform, whereas 40% of the programmers that use Perl on Windows use Perl on some other platform. How should this be interpreted? Here are some ideas: 1. Windows is a more limited platform than Unix, so programmers who would prefer to program on Windows only must use Unix for some tasks that Windows doesn't perform well on. 2. Windows programmers are more adaptable and flexible than Unix programmers, and are more open to working on an unfamiliar platform. (Or conversely, Unix programmers have an irrational hatred/fear of Windows.) 3. It is fairly easy (and free) to convert and Windows desktop into a dual-boot Windows/Linux desktop, whereas it is difficult and expensive to get a Windows environment (via Citrix Metaframe, etc.) on a commercial Unix (Solaris, AIX, hp-ux) desktop. Any thoughts? Richard Anderson Software Professional Email: starfire@zipcon.net Webmaster and Board Member Seattle Unix Users Group, http://www.seaslug.org ----- Original Message ----- From: "Asim Jalis" To: Sent: Friday, October 19, 2001 12:26 PM Subject: SPUG: Results of Unix vs Windows Survey > Here are the results: > > 49 TOTAL RESPONSES = 100.0% > 40 UNIX = 81.6% > 15 WINDOWS = 30.6% > 30 UNIX ONLY = 61.2% > 9 WINDOWS ONLY = 18.4% > 6 UNIX AND WINDOWS = 12.2% > 4 UNIX AND MAC = 8.2% > > About 30% of the people use Windows either > 100% or around 50% of the time at work for > Perl development. About 80% use Unix at > least 50% of the time or more. About 18% > use Perl in a pure Windows environment > with no use of Unix which is interesting. > > Incidentally most of the Windows responses > came in yesterday morning. The Unix responses > came in later in the day and then also today. > I didn't quantify the pattern, but it is > possible that Windows users check their > e-mail more regularly or at least respond > more quickly than Unix users. > > > Asim > > __________________________________________________ > Do You Yahoo!? > Make a great connection at Yahoo! Personals. > http://personals.yahoo.com > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From showell at zipcon.com Fri Oct 19 19:53:58 2001 From: showell at zipcon.com (Steve Howell) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Re: Results of Unix vs Windows Survey References: <20011019192617.15103.qmail@web14201.mail.yahoo.com> <011401c158fa$4b25eed0$1988ddd1@aciwin> Message-ID: <3BD0CB26.336CC34C@zipcon.com> Richard Anderson wrote: > > After some crude data-mining, I noticed that only 25% of the programmers > that use Perl on Unix use Perl on some other platform, whereas 40% of the > programmers that use Perl on Windows use Perl on some other platform. How > should this be interpreted? Perl comes installed on most Unix boxes. (Maybe not from sysadmin's perspective always, but generally from user's perspective.) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From starfire at zipcon.net Fri Oct 19 20:24:16 2001 From: starfire at zipcon.net (Richard Anderson) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Re: Results of Unix vs Windows Survey References: <20011019192617.15103.qmail@web14201.mail.yahoo.com> <011401c158fa$4b25eed0$1988ddd1@aciwin> <3BD0CB26.336CC34C@zipcon.com> Message-ID: <014101c15905$f075e010$1988ddd1@aciwin> C, awk and the shell (sh, ksh, bash) also come installed on most Unices, so preinstallation may not completely explain why programmers choose a particular language. I don't deny that ease of installation and/or preinstallation are a factor, but installing Perl on Unix or Windows is not usually a big project. Richard Anderson Software Professional Email: starfire@zipcon.net Webmaster and Board Member Seattle Unix Users Group, http://www.seaslug.org ----- Original Message ----- From: "Steve Howell" To: "Richard Anderson" Cc: "Asim Jalis" ; Sent: Friday, October 19, 2001 5:53 PM Subject: Re: SPUG: Re: Results of Unix vs Windows Survey > Richard Anderson wrote: > > > > After some crude data-mining, I noticed that only 25% of the programmers > > that use Perl on Unix use Perl on some other platform, whereas 40% of the > > programmers that use Perl on Windows use Perl on some other platform. How > > should this be interpreted? > > Perl comes installed on most Unix boxes. (Maybe not from sysadmin's > perspective always, but generally from user's perspective.) > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From showell at zipcon.com Fri Oct 19 20:35:51 2001 From: showell at zipcon.com (Steve Howell) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Re: Results of Unix vs Windows Survey References: <20011019192617.15103.qmail@web14201.mail.yahoo.com> <011401c158fa$4b25eed0$1988ddd1@aciwin> Message-ID: <3BD0D4F7.12B6B153@zipcon.com> Richard Anderson wrote: > > After some crude data-mining, I noticed that only 25% of the programmers > that use Perl on Unix use Perl on some other platform, whereas 40% of the > programmers that use Perl on Windows use Perl on some other platform. How > should this be interpreted? > Most people on this list like Perl a lot. Six folks use it on both Windows and Unix, presumably because we have to support both platforms, or we might even like both platforms. Of the other 39 non-Mac, non-dual users, 30 choose Unix as their primary OS, vs. 9 who choose Windows as their primary OS. The thirty Unix people presumably choose Unix at least in part due to its common bundling of Perl. The nine people who choose Windows probably choose it for non-Perl-related reasons that trump the barriers related to installation and deployment of Perl apps on Windows (which aren't that great to begin with). - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From dancerboy at strangelight.com Sat Oct 20 04:35:00 2001 From: dancerboy at strangelight.com (dancerboy) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Re: Results of Unix vs Windows Survey In-Reply-To: <014101c15905$f075e010$1988ddd1@aciwin> References: <20011019192617.15103.qmail@web14201.mail.yahoo.com> <011401c158fa$4b25eed0$1988ddd1@aciwin> <3BD0CB26.336CC34C@zipcon.com> <014101c15905$f075e010$1988ddd1@aciwin> Message-ID: At 6:24 PM -0700 10/19/01, Richard Anderson wrote: >C, awk and the shell (sh, ksh, bash) also come installed on most Unices, so >preinstallation may not completely explain why programmers choose a >particular language. I don't quite understand the relevance of this statement. (I bet most awk and shell programmers are Unix-only as well... so?) > I don't deny that ease of installation and/or >preinstallation are a factor, but installing Perl on Unix or Windows is not >usually a big project. It may not be a big project if you're a sysadmin, and installing things is part of your usual job. Installing *anything* is a relatively big project if you're simply a user trying to get things done, and would rather not add software installation to your already too-large list of things to do. Many people begin using Perl (or any tool) simply because it's there -- something that's much more likely to happen when working on a Unix box than in Windows. An interesting corollary question would be: on what platform did you *first* start using Perl? My guess is that most people start using Perl on Unix, and thus most Perl users are Unix users, though they may be Windows users as well. Those who use Windows exclusively are less likely to begin using Perl in the first place. (I notice that there are no Windows + users in the sample.) OTOH, have any done statistical tests been done yet to see if the 25% vs. 40% difference is actually significant? My intuitive feeling is that with such a small sample size, a 15% difference is probably due to chance... but my statistics is a little rusty, and I'm feeling too lazy to go look up the correct formulae... -jason > >Richard Anderson >Software Professional >Email: starfire@zipcon.net > >Webmaster and Board Member >Seattle Unix Users Group, http://www.seaslug.org >----- Original Message ----- >From: "Steve Howell" >To: "Richard Anderson" >Cc: "Asim Jalis" ; >Sent: Friday, October 19, 2001 5:53 PM >Subject: Re: SPUG: Re: Results of Unix vs Windows Survey > > >> Richard Anderson wrote: > > > > > > After some crude data-mining, I noticed that only 25% of the programmers > > > that use Perl on Unix use Perl on some other platform, whereas 40% of >the > > > programmers that use Perl on Windows use Perl on some other platform. >How > > > should this be interpreted? > > > > Perl comes installed on most Unix boxes. (Maybe not from sysadmin's > > perspective always, but generally from user's perspective.) > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From kenslinux at home.com Sat Oct 20 16:18:05 2001 From: kenslinux at home.com (Ken Clarke) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings References: <002501c15772$4405bec0$5800a8c0@rmiller> <87g08h1y0t.fsf@ralf.artlogix.com> Message-ID: <001701c159ac$b5fba760$94c54618@gv.shawcable.net> Hi Folks, I love picking up efficiency tips like the one at the bottom. Which context does print use? # Start returning results to client browser $| = 1; open(FH, "; close(FH); or should I be using: open(FH, ") { print "$line\n"; } close(FH); Thanks. >> Ken Clarke >> Contract Web Programmer / E-commerce Technologist >> www.perlprogrammer.net > | while ($k = ) { ... } > > Which is exactly right; because is being read in a scalar context this > time, it only returns one line at a time. That's gonna save you a lot of RAM, > and therefore swapping time. > > This is a fairly common gotcha that hits everyone from time to time. Implied > contexts can be confusing. If you try to remember what *should* be in a > particular location, you'll know how the <...> operator works. For example: > > while( ) { ... } > > will read one line at a time, but > > for( ) { ... } > > will read the entire file up front, and then process it. > > Hope that helps. > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tim at consultix-inc.com Sat Oct 20 16:30:53 2001 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: <001701c159ac$b5fba760$94c54618@gv.shawcable.net>; from Ken Clarke on Sat, Oct 20, 2001 at 02:18:05PM -0700 References: <002501c15772$4405bec0$5800a8c0@rmiller> <87g08h1y0t.fsf@ralf.artlogix.com> <001701c159ac$b5fba760$94c54618@gv.shawcable.net> Message-ID: <20011020143053.A23052@timji.consultix.wa.com> On Sat, Oct 20, 2001 at 02:18:05PM -0700, Ken Clarke wrote: > Hi Folks, > > I love picking up efficiency tips like the one at the bottom. Which > context does print use? print, like all functions (and subroutines), provides the LIST context to its arguments. > > # Start returning results to client browser > $| = 1; > open(FH, " print "Content-Type: text/html\n\n"; > print ; That approach stores the entire file in memory (to no avail; as you show below, an equivalent result can be obtained reading just one line at a time). > close(FH); > > or should I be using: > > open(FH, " print "Content-Type: text/html\n\n"; > while ($line = ) { > print "$line\n"; > } > >> Ken Clarke > >> Contract Web Programmer / E-commerce Technologist > >> www.perlprogrammer.net For efficiency, this is definitely the way to go, but the while loop is better written as: while ( defined ($line = ) ) { -Tim *=========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | EMAIL: tim@consultix-inc.com WEB: http://www.consultix-inc.com | | TIM MAHER: UNIX/Perl DAMIAN CONWAY: OO Perl COLIN MEYER: Perl CGI/DBI | |CLASSES:Int Perl 10/22; UNIX 11/26; Minimal Perl 11/30; Perl+Modules 12/3| | /etc/cotd: find /earth -follow -name bin-laden -print | xargs rm -rf | *=========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From jason at strangelight.com Sat Oct 20 17:07:09 2001 From: jason at strangelight.com (Jason Lamport) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: <20011020143053.A23052@timji.consultix.wa.com> References: <002501c15772$4405bec0$5800a8c0@rmiller> <87g08h1y0t.fsf@ralf.artlogix.com> <001701c159ac$b5fba760$94c54618@gv.shawcable.net> <20011020143053.A23052@timji.consultix.wa.com> Message-ID: At 2:30 PM -0700 10/20/01, Tim Maher/CONSULTIX wrote: >On Sat, Oct 20, 2001 at 02:18:05PM -0700, Ken Clarke wrote: >> Hi Folks, >> >> I love picking up efficiency tips like the one at the bottom. Which >> context does print use? > >print, like all functions (and subroutines), provides the LIST >context to its arguments. I thought some functions provided scalar context (for example those declared with a prototype of ($)): sub wants_scalar($) { ... } Or am I misunderstanding what the function prototype mechanism does in Perl? -jason - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tim at consultix-inc.com Sat Oct 20 19:26:39 2001 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: ; from Jason Lamport on Sat, Oct 20, 2001 at 03:07:09PM -0700 References: <002501c15772$4405bec0$5800a8c0@rmiller> <87g08h1y0t.fsf@ralf.artlogix.com> <001701c159ac$b5fba760$94c54618@gv.shawcable.net> <20011020143053.A23052@timji.consultix.wa.com> Message-ID: <20011020172639.A3376@timji.consultix.wa.com> On Sat, Oct 20, 2001 at 03:07:09PM -0700, Jason Lamport wrote: > At 2:30 PM -0700 10/20/01, Tim Maher/CONSULTIX wrote: > >On Sat, Oct 20, 2001 at 02:18:05PM -0700, Ken Clarke wrote: > >> Hi Folks, > >> > >> I love picking up efficiency tips like the one at the bottom. Which > >> context does print use? > > > >print, like all functions (and subroutines), provides the LIST > >context to its arguments. > > I thought some functions provided scalar context (for example those > declared with a prototype of ($)): > > sub wants_scalar($) { > ... > } > > Or am I misunderstanding what the function prototype mechanism does in Perl? I was talking about the *rule*, rather than the *exceptions*, which include the scalar() funtion, and any of your own user-defined subs that are prototyped to accept specific argument types. So I'd say you understand what can be accomplished with prototyping. 8-} -Tim > > -jason *=========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | EMAIL: tim@consultix-inc.com WEB: http://www.consultix-inc.com | | TIM MAHER: UNIX/Perl DAMIAN CONWAY: OO Perl COLIN MEYER: Perl CGI/DBI | |CLASSES:Int Perl 10/22; UNIX 11/26; Minimal Perl 11/30; Perl+Modules 12/3| | /etc/cotd: find /earth -follow -name bin-laden -print | xargs rm -rf | *=========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tuck at whistlingfish.net Sun Oct 21 06:53:25 2001 From: tuck at whistlingfish.net (Matt Tucker) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Re: Results of Unix vs Windows Survey In-Reply-To: References: <20011019192617.15103.qmail@web14201.mail.yahoo.com> <011401c158fa$4b25eed0$1988ddd1@aciwin> <3BD0CB26.336CC34C@zipcon.com><014101c15905$f075e010$1988ddd1@aciwin> Message-ID: <1760000.1003665205@flashingchance> -- dancerboy spake thusly: > An interesting corollary question would be: on what platform did you > *first* start using Perl? My guess is that most people start using > Perl on Unix, and thus most Perl users are Unix users, though they > may be Windows users as well. Those who use Windows exclusively are > less likely to begin using Perl in the first place. (I notice that > there are no Windows + users in the sample.) I learned to program Perl on Windows NT, and used primarily that platform for several years before switching completely to Linux and never looking back. While I was learning and using it on NT, though, I did some development on the Mac as well. I just never found it all that useful, and despite going through all the work of getting it running, only did a couple projects on that platform. So while you don't currently have a "Windows + " example, you have someone who used to be. :-) -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/archives/spug-list/attachments/20011021/33cb81dc/attachment.bin From tuck at whistlingfish.net Sun Oct 21 07:08:48 2001 From: tuck at whistlingfish.net (Matt Tucker) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: <20011020143053.A23052@timji.consultix.wa.com> References: <002501c15772$4405bec0$5800a8c0@rmiller> <87g08h1y0t.fsf@ralf.artlogix.com> <001701c159ac$b5fba760$94c54618@gv.shawcable.net> <20011020143053.A23052@timji.consultix.wa.com> Message-ID: <3280000.1003666128@flashingchance> -- "Tim Maher/CONSULTIX" spake thusly: >> or should I be using: >> >> open(FH, "> print "Content-Type: text/html\n\n"; >> while ($line = ) { >> print "$line\n"; This should be: print $line; to avoid getting doubled newlines. But then, no-one's actually going to write this code anyway, when a simple: system qw(cat templates/RealTop.htm); will do. >> } >> >> Ken Clarke >> >> Contract Web Programmer / E-commerce Technologist >> >> www.perlprogrammer.net > > For efficiency, this is definitely the way to go, but > the while loop is better written as: > > while ( defined ($line = ) ) { I almost said this the last time the subject came up, but then I couldn't think of a case in which "scalar " might return a false value before EOF, since the delimiter is always included, and even a blank line will be "\n". I just did a bit more reading, and came up with a few: - The last line of the file has no trailing newline - $/ is undef, and the file is empty (always returns '' the first time) - The delimiter is '0', and two such occur together in the file While these aren't really very common cases in which the true/defined distinction is relevant, it's probably better to be safe since it's one less rule to have to think about. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/archives/spug-list/attachments/20011021/d0c6cde5/attachment.bin From jeremy at weezel.com Sun Oct 21 13:27:08 2001 From: jeremy at weezel.com (Jeremy Devenport) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: <20011020143053.A23052@timji.consultix.wa.com> Message-ID: <000001c15a5d$febafc10$1401a8c0@jeremydhome> It's a rainy Sunday morning so I did some benchmarking. The while method is definitely the memory efficient way to go, but what about speed... The attached files are the Benchmark output from my box (print_comparison.txt) and the actual benchmark program (comparison.txt, I've seen .pl attachments get nerfed by outlook / exchange so I renamed it). All the tests read a 3M text file (common last names and their distributions from the census) and print the file line by line to /dev/null to avoid including disk write times. Here's what I learned: 1) You don't need to check for defined inside a while loop condition if it is of the form or $var = . Perl does this for you. You can use the B::Deparse module to take the opcodes back to perl and look if you don't believe me. Try running perl -MO=Deparse comparision.txt and compare four_a and four_b before and after. Or if you are source code oriented look at Perl_newWHILEOP in perl's op.c. Some people will say this is more readable or clear, they're lying. To whatever extent perl keeps you from having to worry about "0" and "", take advantage of it. 2) Assigning to the default variable or assigining to a plain package variable doesn't measurably make a difference for the examples I tried (although using the default variable will pass use strict). You can do 'while ()', 'while ($line = )', 'my $line; while ($line = )', or 'while (my $line = )'. I generally stick with the first or fourth method and occasionally the third. I generally go for readability / maintainability, for efficiency you should avoid the fourth method. 3) "Reveresed" notation is measurably faster. So 'while () { new-scope }' is slower than 'no-new-scope while '. The reversed notation does not create a new lexical scope for each time through the loop. This shouldn't even enter in to your mind unless you are writing a very tight loop in an otherwise blazzingly fast program. Beware of writing all your loops backwards for efficiency, that way lies madness (or something like that). In conclusion, this was the most efficient (memory & speed) way I found in perl to output a file is: print while ; Of course I usually go for maintainable over efficient but if all you are doing is outputting a file I think this is the best of both worlds. Jeremy (did someone use --verbose or what ;-) ) PS: like all builtin perl functions perldoc -f print will tell you what context print uses -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of Tim Maher/CONSULTIX Sent: Saturday, October 20, 2001 2:31 PM To: Ken Clarke Cc: spug-list@pm.org Subject: Re: Conserving memory - was SPUG: Fw: greetings On Sat, Oct 20, 2001 at 02:18:05PM -0700, Ken Clarke wrote: > Hi Folks, > > I love picking up efficiency tips like the one at the bottom. > Which context does print use? print, like all functions (and subroutines), provides the LIST context to its arguments. > > # Start returning results to client browser > $| = 1; > open(FH, " print "Content-Type: text/html\n\n"; > print ; That approach stores the entire file in memory (to no avail; as you show below, an equivalent result can be obtained reading just one line at a time). > close(FH); > > or should I be using: > > open(FH, " print "Content-Type: text/html\n\n"; > while ($line = ) { > print "$line\n"; > } > >> Ken Clarke > >> Contract Web Programmer / E-commerce Technologist > >> www.perlprogrammer.net For efficiency, this is definitely the way to go, but the while loop is better written as: while ( defined ($line = ) ) { -Tim *======================================================================= ==* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | EMAIL: tim@consultix-inc.com WEB: http://www.consultix-inc.com | | TIM MAHER: UNIX/Perl DAMIAN CONWAY: OO Perl COLIN MEYER: Perl |CGI/DBI | CLASSES:Int Perl 10/22; UNIX 11/26; Minimal Perl 11/30; Perl+Modules 12/3| | /etc/cotd: find /earth -follow -name bin-laden -print | xargs rm -rf | *======================================================================= ==* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ -------------- next part -------------- Benchmark: running five, four_a, four_b, one, six, three_a, three_b, two_a, two_b, each for at least 30 CPU seconds... five: 32 wallclock secs (29.59 usr + 1.15 sys = 30.74 CPU) @ 0.94/s (n=29) four_a: 30 wallclock secs (29.28 usr + 1.14 sys = 30.42 CPU) @ 1.45/s (n=44) four_b: 28 wallclock secs (28.83 usr + 1.30 sys = 30.13 CPU) @ 1.46/s (n=44) one: 31 wallclock secs (29.42 usr + 1.34 sys = 30.76 CPU) @ 1.20/s (n=37) six: 31 wallclock secs (29.91 usr + 1.05 sys = 30.96 CPU) @ 0.90/s (n=28) three_a: 31 wallclock secs (29.09 usr + 1.24 sys = 30.33 CPU) @ 1.45/s (n=44) three_b: 31 wallclock secs (29.43 usr + 1.24 sys = 30.67 CPU) @ 1.43/s (n=44) two_a: 31 wallclock secs (29.08 usr + 1.21 sys = 30.29 CPU) @ 1.58/s (n=48) two_b: 30 wallclock secs (28.57 usr + 1.49 sys = 30.06 CPU) @ 1.56/s (n=47) Rate six five one three_b four_a three_a four_b two_b two_a six 0.904/s -- -4% -25% -37% -37% -38% -38% -42% -43% five 0.943/s 4% -- -22% -34% -35% -35% -35% -40% -40% one 1.20/s 33% 28% -- -16% -17% -17% -18% -23% -24% three_b 1.43/s 59% 52% 19% -- -1% -1% -2% -8% -9% four_a 1.45/s 60% 53% 20% 1% -- -0% -1% -7% -9% three_a 1.45/s 60% 54% 21% 1% 0% -- -1% -7% -8% four_b 1.46/s 61% 55% 21% 2% 1% 1% -- -7% -8% two_b 1.56/s 73% 66% 30% 9% 8% 8% 7% -- -1% two_a 1.58/s 75% 68% 32% 10% 10% 9% 9% 1% -- -------------- next part -------------- #!/usr/bin/perl use Benchmark qw(cmpthese); open OUT, ">/dev/null"; sub one { open FILE, "bigfile.txt"; print OUT ; close FILE; } sub two_a { open FILE, "bigfile.txt"; print OUT while ; close FILE; } sub two_b { open FILE, "bigfile.txt"; print OUT while defined ($_ = ); close FILE; } sub three_a { open FILE, "bigfile.txt"; while () { print OUT; } close FILE; } sub three_b { open FILE, "bigfile.txt"; while (defined ($_ = )) { print OUT; } close FILE; } sub four_a { open FILE, "bigfile.txt"; while ($line = ) { print OUT $line; } close FILE; } sub four_b { open FILE, "bigfile.txt"; while (defined ($line = )) { print OUT $line; } close FILE; } sub five { open FILE, "bigfile.txt"; print OUT foreach ; close FILE; } sub six { open FILE, "bigfile.txt"; foreach () { print OUT; } close FILE; } cmpthese(-30, {'one' => \&one, 'two_a' => \&two_a, 'two_b' => \&two_b, 'three_a' => \&three_a, 'three_b' => \&three_b, 'four_a' => \&four_a, 'four_b' => \&four_b, 'five' => \&five, 'six' => \&six}); close OUT; From master at wowexpo.com Sun Oct 21 14:12:06 2001 From: master at wowexpo.com (=?ks_c_5601-1987?B?v82/7L+ivbrG9w==?=) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: =?ks_c_5601-1987?B?wcu828fVtM+02S4gsaSw7bjewM/A1LTPtNkgW8b4xbqxpLDtXSC6o726xq68v7evILD4wqUhISE=?= Message-ID: <200110211919.f9LJJjJ16536@gocho.pm.org> ?? ??? (Korea Fishing & ???? 14?) 1. ??? ??!!??? ??!!??? ???!! ??? ???!! 2. ?????? ???? ?? ?? ?? ?? korea Fishing! 3. ??? ??? ?? ? ??, ? ??? ???? ?? ?? ? ????. 4. ??? ???? ? ?? ????? ???? ??(031-385-3848) ? ??? ??????.??? ?????? ????? (???? 203-266117-13-001 ?????, ??? ?? ??) ??? ???? ??? ? ????. ??? ?? (?? : ????? ?) ???? ??? ?/??? ? | ????? | 2000? 10? ??7,800? ??? ?? ?? ???? ??? ??? ??? ???? ???? ???? ... ?? ?? ??? ?? ??? ????, ?? ??? ??/??? ? | ???? | 2000? 02? ??9,000? ???? ????? ?? ??? ?? ?? ??? ?? ?????? ?? ?? ?? ???. ?? ??? ???? ??? ? | ?? | 2001? 04? ??8,000? ????? ??? ??? ??? ???? ??? ??? ??? ???? ????? ??? ???? ?? ?? ????.... ???????? ?? ???? ???? ?/??? ? | ?? 1999? 10? ?? : \9,000 ? ???? ???????? ?? ?? ??? ????? ???? ??? ??? ???? ???? ??. ???? ????? 2000? 3? 15?, ???? ??? ? ???? ??. ?? ?? ??? ????? ?? ?? ???? ???? ?? ?? ??? ??? ???? ???? ?? ???? ?? ??? ???. ?? ? ??? ????? ??? ?? | ????? | 2000? 03? ??? 7,000? ??? ?? ?? ??? ?? ????? ???? ? ?? ??? ????, ??? ?? ??? ??? ???? ???? ????. ??? ? ???? ??? ??? ????.??? | ??? | 2001? 08? ??? 7,500? ?? ?? ?? ??? ????? ???? ? ??? ??? ??, ??? ??, ??? ???? ??? | ???? | 2001? 08? ??? 8,000? ??? ??? ???? ??? ? ????? ??? ?? ???? ? ??? ???? ??? ?? ??? ?? ???? ???? ?? ???? ??? ?? ?? ??? ??? | ???? | 1999? 11? ??7,500? .????? 100?? ?? ?? ??? ?? ?????? ?????.??? ????, ??? ??? ?? ??? ??? ?? ?? ?? | ????? | 2001? 07?? ??? ??? 30? ?? ?? ???? 1? ??? ??? ?? ?????? ???? ??? | ?????? 1999? 03? ??: 8,500? 1. ??? ??? ??? 2. ????? ??? 3. ???? ?? ?? ??? ???? ?? ?? ?? | IVP(??????????) | 1999? 08? ??? 8,500? ??? ?? ??? ???? ??? ?? ??? ??? ???? ??? ???? ?????? ??? ??? ????? ???? . ??? ??? ??? ???. ??? | ?????(J-pub) | 2000? 08? ??? 7,500? ??? ??? ??? ??? ???? ??? ??? ????? ? ??? ??? ?? ?? ???? ?? ??? .. ?????? ???? ?? ??, ?? ?? ??/ ??? ? | ????? | 2001? 08? ??8,000? ??? ????, ? ???, ?? ??, ???? ?, ??? ?? ?? ??? ?? ????? ????. ???? ??? ?? ?? ????? ??? 32?? ???? ?? ??? ?? ?/??? ? | 21???? | 2001? 07? ??8,500? ??? ??? ??? ?? ???? ??? ?? ?? ??? ??? ?? ?? ??? ... ??? ??? ??? | ??M&B | 2001? 06? ??? 8,000? ??? ???? ????? ???? ?? ?? ??? ???? ??? ?? ??? ?? ??? ?? ???? ??? ??? ?? .. 431-050 ??? ??? ??? ??? 1108 ????? 515? TEL(031-385-3848) FAX(031-385-3869) E-mail : master@wowexpo.com ????? ???? ??? ?????! -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20011022/65fc6dcc/attachment.htm From cmeyer at helvella.org Sun Oct 21 14:38:01 2001 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: <3280000.1003666128@flashingchance> References: <002501c15772$4405bec0$5800a8c0@rmiller> <87g08h1y0t.fsf@ralf.artlogix.com> <001701c159ac$b5fba760$94c54618@gv.shawcable.net> <20011020143053.A23052@timji.consultix.wa.com> <3280000.1003666128@flashingchance> Message-ID: <20011021123801.A30664@hobart.helvella.org> On Sun, Oct 21, 2001 at 05:08:48AM -0700, Matt Tucker wrote: > -- "Tim Maher/CONSULTIX" spake thusly: > > >> or should I be using: > >> > >> open(FH, " >> print "Content-Type: text/html\n\n"; > >> while ($line = ) { > >> print "$line\n"; > > This should be: > > print $line; > > to avoid getting doubled newlines. But then, no-one's actually going to > write this code anyway, when a simple: > > system qw(cat templates/RealTop.htm); > > will do. Out of curiosity, does this work on Windows? (I don't have a windows box within convenience to test on.) The 'perldoc -f system' page says that Perl forks before executing the requested command. Does the Windows Perl's system execute the commands without forking? Also, is there a 'cat' on windows? Have fun, -C. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tuck at whistlingfish.net Sun Oct 21 15:08:55 2001 From: tuck at whistlingfish.net (Matt Tucker) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: <20011021123801.A30664@hobart.helvella.org> References: <002501c15772$4405bec0$5800a8c0@rmiller> <87g08h1y0t.fsf@ralf.artlogix.com> <001701c159ac$b5fba760$94c54618@gv.shawcable.net> <20011020143053.A23052@timji.consultix.wa.com> <3280000.1003666128@flashingchance> <20011021123801.A30664@hobart.helvella.org> Message-ID: <4610000.1003694935@flashingchance> -- Colin Meyer spake thusly: > On Sun, Oct 21, 2001 at 05:08:48AM -0700, Matt Tucker wrote: >> >> system qw(cat templates/RealTop.htm); > > Out of curiosity, does this work on Windows? (I don't have a windows > box within convenience to test on.) > > The 'perldoc -f system' page says that Perl forks before executing > the requested command. Does the Windows Perl's system execute the > commands without forking? That should work fine as long as cat is installed and in the path. > Also, is there a 'cat' on windows? Not with the default installation. I always installed cygwin on my systems, though, but honestly the Windows angle never even crossed my mind; I no longer think about Windows compatibility when I write code. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/archives/spug-list/attachments/20011021/095edf98/attachment.bin From jope-spug at jope.net Sun Oct 21 17:25:21 2001 From: jope-spug at jope.net (El JoPe Magnifico) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: RE: Conserving memory In-Reply-To: <000001c15a5d$febafc10$1401a8c0@jeremydhome> Message-ID: On Sun, 21 Oct 2001, Jeremy Devenport wrote: > 1) You don't need to check for defined inside a while loop condition if > it is of the form or $var = . Perl does this for you. > > You can use the B::Deparse module to take the opcodes back to perl and > look if you don't believe me. Try running perl -MO=Deparse > comparision.txt and compare four_a and four_b before and after. Or if > you are source code oriented look at Perl_newWHILEOP in perl's op.c. When did that behavior change? while() has always checked for defined, but while($var=) _used_ to check for truth instead. > In conclusion, this was the most efficient (memory & speed) way I found > in perl to output a file is: > print while ; I suspect that it'd be even faster to read in fixed-size chunks: syswrite(STDOUT, $_) while sysread(FILE, $_, 1024); Which lets you skip parsing of the input for line endings, while still saving you from slurping the whole file into memory. Note that sysread() and syswrite() have some gotchas associated with mixing with other IO, e.g. print(), that I don't totally understand. If you need to do any other IO inside your while() loop, then the alternative is: print while read(FILE, $_, 1024); I'd be interested to see benchmark comparisons. (sorry, in a rush now) -jp - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From jason at strangelight.com Sun Oct 21 22:16:02 2001 From: jason at strangelight.com (Jason Lamport) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: <000001c15a5d$febafc10$1401a8c0@jeremydhome> References: <000001c15a5d$febafc10$1401a8c0@jeremydhome> Message-ID: At 11:27 AM -0700 10/21/01, Jeremy Devenport wrote: > >Here's what I learned: > >1) You don't need to check for defined inside a while loop condition if >it is of the form or $var = . Perl does this for you. Is this true for all versions of Perl? I seem vaguely to recall that this was a fairly recent (post 5.004) enhancement. But I could be mis-remembering. -jason - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From jeremy at weezel.com Mon Oct 22 01:42:33 2001 From: jeremy at weezel.com (Jeremy Devenport) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: Message-ID: <000001c15ac4$bbb0f1b0$1401a8c0@jeremydhome> Replying to two messages at once... For reference I was doing all my comparisions on perl 5.6.1 on OpenBSD. You're right, doing the defined check for named variables came in for 5.005. It's been a while since I was on anything older than that. See the change description below (apparently perl 5 uses Perforce or something similar for source management instead of CVS). I'm going to try out some benchmarks with the sysread and lexical variations tomorrow, if my attention span hasn't run out. I suspect that you're right and that sysread/syswrite will be faster but I think I've reached my personal limit of efficiency vs. readability. >From Changes5.005: ________________________________________________________________________ ____ [ 949] By: TimBunce on 1998/05/14 15:11:30 Log: Title: "while($x=<>) no longer warns (implicit defined added)" From: Nick Ing-Simmons Msg-ID: <199805051035.LAA27365@pluto.tiuk.ti.com> Files: MANIFEST op.c t/op/defins.t Branch: maint-5.004/perl + t/op/defins.t ! MANIFEST op.c Jeremy -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of Jason Lamport Sent: Sunday, October 21, 2001 8:16 PM To: spug-list@pm.org Subject: RE: Conserving memory - was SPUG: Fw: greetings At 11:27 AM -0700 10/21/01, Jeremy Devenport wrote: > >Here's what I learned: > >1) You don't need to check for defined inside a while loop condition if >it is of the form or $var = . Perl does this for you. Is this true for all versions of Perl? I seem vaguely to recall that this was a fairly recent (post 5.004) enhancement. But I could be mis-remembering. -jason -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of El JoPe Magnifico Sent: Sunday, October 21, 2001 3:25 PM To: Seattle Perl Users Group Subject: SPUG: RE: Conserving memory On Sun, 21 Oct 2001, Jeremy Devenport wrote: > 1) You don't need to check for defined inside a while loop condition > if it is of the form or $var = . Perl does this for you. > > You can use the B::Deparse module to take the opcodes back to perl and > look if you don't believe me. Try running perl -MO=Deparse > comparision.txt and compare four_a and four_b before and after. Or if > you are source code oriented look at Perl_newWHILEOP in perl's op.c. When did that behavior change? while() has always checked for defined, but while($var=) _used_ to check for truth instead. > In conclusion, this was the most efficient (memory & speed) way I > found in perl to output a file is: print while ; I suspect that it'd be even faster to read in fixed-size chunks: syswrite(STDOUT, $_) while sysread(FILE, $_, 1024); Which lets you skip parsing of the input for line endings, while still saving you from slurping the whole file into memory. Note that sysread() and syswrite() have some gotchas associated with mixing with other IO, e.g. print(), that I don't totally understand. If you need to do any other IO inside your while() loop, then the alternative is: print while read(FILE, $_, 1024); I'd be interested to see benchmark comparisons. (sorry, in a rush now) -jp - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From karl.b.hartman at Boeing.COM Mon Oct 22 10:36:44 2001 From: karl.b.hartman at Boeing.COM (Hartman, Karl B) Date: Wed Aug 4 00:08:22 2004 Subject: SPUG: Re: Results of Unix vs Windows Survey Message-ID: <2F322129AF0F2C45B1E3D4BCC568B4ED185947@XCH-BLV-13.nw.nos.boeing.com> Actually, I think you will find that most UNIX programmers, and admins, have a very rational reasons for not wanting to work on Windows. I will not get into here as some do tend to put an emotional flavor to it. For those who have worked in both area, you'll understand. Results of your data may be the fact that many UNIX/Linus programmers and admins don't have any requirement to port or write for another OS. If you have any questions or comments, don't hesitate to call. Thanks, Karl Hartman SSG/CNO Client/Server Operations - Computing Admin Process Mgmt 425-294-8172 (office) Business Sense "Failure to embrace an idea just because it doesn't make sense or just plain doesn't work does not constitute resistance to change" Common Sense - from "Really important stuff my kids taught me" "If you start out afraid of the dark, pretty soon you'll be afraid of dusk too." -----Original Message----- From: Richard Anderson [mailto:starfire@zipcon.net] Sent: Friday, October 19, 2001 5:01 PM To: Asim Jalis; spug-list@pm.org Subject: SPUG: Re: Results of Unix vs Windows Survey After some crude data-mining, I noticed that only 25% of the programmers that use Perl on Unix use Perl on some other platform, whereas 40% of the programmers that use Perl on Windows use Perl on some other platform. How should this be interpreted? Here are some ideas: 1. Windows is a more limited platform than Unix, so programmers who would prefer to program on Windows only must use Unix for some tasks that Windows doesn't perform well on. 2. Windows programmers are more adaptable and flexible than Unix programmers, and are more open to working on an unfamiliar platform. (Or conversely, Unix programmers have an irrational hatred/fear of Windows.) 3. It is fairly easy (and free) to convert and Windows desktop into a dual-boot Windows/Linux desktop, whereas it is difficult and expensive to get a Windows environment (via Citrix Metaframe, etc.) on a commercial Unix (Solaris, AIX, hp-ux) desktop. Any thoughts? Richard Anderson Software Professional Email: starfire@zipcon.net Webmaster and Board Member Seattle Unix Users Group, http://www.seaslug.org ----- Original Message ----- From: "Asim Jalis" To: Sent: Friday, October 19, 2001 12:26 PM Subject: SPUG: Results of Unix vs Windows Survey > Here are the results: > > 49 TOTAL RESPONSES = 100.0% > 40 UNIX = 81.6% > 15 WINDOWS = 30.6% > 30 UNIX ONLY = 61.2% > 9 WINDOWS ONLY = 18.4% > 6 UNIX AND WINDOWS = 12.2% > 4 UNIX AND MAC = 8.2% > > About 30% of the people use Windows either > 100% or around 50% of the time at work for > Perl development. About 80% use Unix at > least 50% of the time or more. About 18% > use Perl in a pure Windows environment > with no use of Unix which is interesting. > > Incidentally most of the Windows responses > came in yesterday morning. The Unix responses > came in later in the day and then also today. > I didn't quantify the pattern, but it is > possible that Windows users check their > e-mail more regularly or at least respond > more quickly than Unix users. > > > Asim > > __________________________________________________ > Do You Yahoo!? > Make a great connection at Yahoo! Personals. > http://personals.yahoo.com > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From dcd at tc.fluke.com Mon Oct 22 11:01:52 2001 From: dcd at tc.fluke.com (David Dyck) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: Message-ID: On Sun, 21 Oct 2001, Jason Lamport wrote: > At 11:27 AM -0700 10/21/01, Jeremy Devenport wrote: > > > >1) You don't need to check for defined inside a while loop condition if > >it is of the form or $var = . Perl does this for you. > > Is this true for all versions of Perl? I seem vaguely to recall that > this was a fairly recent (post 5.004) enhancement. But I could be > mis-remembering. the file Changes5.001 in the perl source distribution indicates reports the following patch NETaa13486: while (<>) now means while (defined($_ = <>)) From: Jim Balter Files patched: op.c pod/perlop.pod while () now means while (defined($_ = )). perldoc perlhist contains the release date for 5.001 as Larry 5.001 1995-Mar-13 (Do you call 1995-Mar-13 recent? :-) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From ced at carios2.ca.boeing.com Mon Oct 22 13:25:38 2001 From: ced at carios2.ca.boeing.com (ced@carios2.ca.boeing.com) Date: Wed Aug 4 00:08:22 2004 Subject: Conserving memory - was SPUG: Fw: greetings Message-ID: <200110221825.LAA00457@carios2.ca.boeing.com> >... > to avoid getting doubled newlines. But then, no-one's actually going to > write this code anyway, when a simple: > > system qw(cat templates/RealTop.htm); > ... > >The 'perldoc -f system' page says that Perl forks before executing the >requested command. Does the Windows Perl's system execute the commands >without forking? I read recently (Dave Roth's Win32 Perl Programming confirms) that Win32 simulates fork with threads and that an additional process isn't launched. Your program just stops until the thread completes. Apparently, though, you can force a separate asynchronous process by launching with the start command: my $pid = system( "start notepad.exe" ); >> Also, is there a 'cat' on windows? Only possible via Unix add-on's I believe. Rgds, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From SEYMOUR at npl.npl.washington.edu Mon Oct 22 14:46:18 2001 From: SEYMOUR at npl.npl.washington.edu (Richard Seymour UW-NPL) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Re: cat on Windows? Message-ID: <011022124619.236213a0@npl.npl.washington.edu> A variety of people have responded to: >>>> Also, is there a 'cat' on windows? with something siomilar to: > Only possible via Unix add-on's I believe. Let's try the logical inversion: (i.e. asking it from a Windows perspective) > Is there a "TYPE" on **ix? Yes, but it doesn't do what you'd expect (you may take my previous parenthetical statement in any context you'd prefer)(i'm somewhat OS neutral) We could generalize to: Is there a convenient way of displaying a text file on the user's screen in all operating systems, if we restrict ourselves to trying to use a "user/shell-level command"? At which point the answer fuzzes to "Yes, but some use common English colloquialisms, whereas others use the names of semi-domesticated animals (and may have strange likings for books with woodcuts of animals thereon)." ..and both can reach into historical perspective to defend their nomenclature (one involving Victorian-era manipulation of metallic objects, the other based upon the contraction of a long word since the metallic-manipulator available at the time of formation of the lexicon was difficult to use, plus concatenate was boring to type (whoops) repetitively) have fun ---dick (there's no native "cat" under OpenVMS, either, nor pre-OSX Macs) (save under ancient Apple AUX in the late '80s) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From jason at strangelight.com Mon Oct 22 14:34:30 2001 From: jason at strangelight.com (Jason Lamport) Date: Wed Aug 4 00:08:23 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: References: Message-ID: At 9:01 AM -0700 10/22/01, David Dyck wrote: >On Sun, 21 Oct 2001, Jason Lamport wrote: > >> At 11:27 AM -0700 10/21/01, Jeremy Devenport wrote: >> > >> >1) You don't need to check for defined inside a while loop condition if >> >it is of the form or $var = . Perl does this for you. >> >> Is this true for all versions of Perl? I seem vaguely to recall that >> this was a fairly recent (post 5.004) enhancement. But I could be >> mis-remembering. > >the file Changes5.001 in the perl source distribution indicates reports >the following patch > >NETaa13486: while (<>) now means while (defined($_ = <>)) >From: Jim Balter >Files patched: op.c pod/perlop.pod > while () now means while (defined($_ = )). > >perldoc perlhist contains the release date for 5.001 as > Larry 5.001 1995-Mar-13 > > (Do you call 1995-Mar-13 recent? :-) No, but I was referring particularly to the while( $var = ) variant. I believe that in 5.004 (and earlier) this is NOT semantically equivalent to while( defined($var = ) ) ------ Hmmm... so just out of perverse curiosity, what would be the most efficient way of generating the old behaviour in a newer version of Perl? while( ($var = ) ? 1 : undef ) # ????? Actually, this isn't just perverse curiosity: I'd like to know under *exactly* what set of conditions while(*) actually means while( defined(*) ) . Is it only in the very specific cases of while() while( $var = ) ? Is it anytime the <> operator appears in the expression? E.g. what would be the semantics of: while( ($var = ) , $var ) ? -jason P.S. and yes, I know I used unnecessary parentheses in some of the above expressions. I have better things to do with my brain cells than memorize operator-precedence tables... :-P - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From ced at carios2.ca.boeing.com Mon Oct 22 18:43:30 2001 From: ced at carios2.ca.boeing.com (ced@carios2.ca.boeing.com) Date: Wed Aug 4 00:08:23 2004 Subject: Conserving memory - was SPUG: Fw: greetings Message-ID: <200110222343.QAA01060@carios2.ca.boeing.com> >... > Hmmm... so just out of perverse curiosity, what would be the most >efficient way of generating the old behaviour in a newer version of >Perl? > while( ($var = ) ? 1 : undef ) # ????? > Actually, this isn't just perverse curiosity: I'd like to know under >*exactly* what set of conditions while(*) actually means while( > defined(*) ) . Is it only in the very specific cases of >while() >while( $var = ) I suspect yes but even after carefully reading perlop, I'm not sure. >? Is it anytime the <> operator appears in the expression? E.g. > what would be the semantics of: > while( ($var = ) , $var ) With an added chomp, your line above does appear to recapture the older semantics. The following prints: abc def 0 abc def #!/usr/bin/perl -w use strict; my $start = tell DATA; print while ; seek(DATA, $start, 0) or die; my $var; while( chomp($var = ), $var ) { print $var, "\n"; } __END__ abc def 0 rgds, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From warner at oz.net Mon Oct 22 18:57:20 2001 From: warner at oz.net (Marion Scott Warner) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: In poor taste? Message-ID: <3BD4B260.EAFE18B2@oz.net> So would any of you be offended by this picture? I shared it with a recruiter at RHI and she was very offended. Is she uptight and lacking a sense of humor, or is it just me? http://sense-warner-200.oz.net/images/turban.jpg - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From daryn at marinated.org Mon Oct 22 19:56:04 2001 From: daryn at marinated.org (Daryn Nakhuda) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: In poor taste? In-Reply-To: <3BD4B260.EAFE18B2@oz.net> Message-ID: as a rule, I'd refrain from penis pictures in the workplace :) On Mon, 22 Oct 2001, Marion Scott Warner wrote: > So would any of you be offended by this picture? I shared it with a > recruiter at RHI and she was very offended. Is she uptight and lacking a > sense of humor, or is it just me? > http://sense-warner-200.oz.net/images/turban.jpg > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From mcglk at artlogix.com Mon Oct 22 20:03:47 2001 From: mcglk at artlogix.com (Ken McGlothlen) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: In poor taste? In-Reply-To: <3BD4B260.EAFE18B2@oz.net> References: <3BD4B260.EAFE18B2@oz.net> Message-ID: <87r8rvrwuk.fsf@ralf.artlogix.com> Marion Scott Warner writes: | So would any of you be offended by this picture? I shared it with a | recruiter at RHI and she was very offended. Is she uptight and lacking a | sense of humor, or is it just me? | http://sense-warner-200.oz.net/images/turban.jpg In general, anything involving naughty bits is best left out of the workplace, or church, or in encounters with random strangers, or. . . . Not that it's not funny. It's just inappropriate humor for the place. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From kenslinux at home.com Mon Oct 22 20:17:24 2001 From: kenslinux at home.com (Ken Clarke) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Off Topic: was Re: In poor taste? References: <3BD4B260.EAFE18B2@oz.net> Message-ID: <00ed01c15b60$79477a00$94c54618@gv.shawcable.net> This reminded me of a suggestion someone forwarded me: "What to do with Osama bin Laden? Killing him will only create a martyr. Holding him prisoner will inspire his comrades to take hostages to demand his release. Therefore, I suggest we do neither. Let the Special Forces, Seals or whatever covertly capture him, fly him to an undisclosed hospital and have surgeons quickly perform a complete sex change operation. Then we return HER to Afghanistan to live as a woman under the Taliban." Best idea I've heard yet! >> Ken ----- Original Message ----- From: "Marion Scott Warner" To: Sent: October 22, 2001 4:57 PM Subject: SPUG: In poor taste? > So would any of you be offended by this picture? I shared it with a > recruiter at RHI and she was very offended. Is she uptight and lacking a > sense of humor, or is it just me? > http://sense-warner-200.oz.net/images/turban.jpg > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From bill at celestial.com Mon Oct 22 20:54:24 2001 From: bill at celestial.com (Bill Campbell) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Re: Results of Unix vs Windows Survey In-Reply-To: <2F322129AF0F2C45B1E3D4BCC568B4ED185947@XCH-BLV-13.nw.nos.boeing.com>; from karl.b.hartman@Boeing.COM on Mon, Oct 22, 2001 at 08:36:44AM -0700 References: <2F322129AF0F2C45B1E3D4BCC568B4ED185947@XCH-BLV-13.nw.nos.boeing.com> Message-ID: <20011022185424.C29133@barryg.mi.celestial.com> On Mon, Oct 22, 2001 at 08:36:44AM -0700, Hartman, Karl B wrote: >Actually, I think you will find that most UNIX programmers, and admins, have >a very rational reasons for not wanting to work on Windows. I will not get >into here as some do tend to put an emotional flavor to it. For those who >have worked in both area, you'll understand. I have a low tolerance for frustration, and am not a masochist so stay away from the Microsoft virus, Windows, whenever possible (which is almost all the time). Bill -- INTERNET: bill@Celestial.COM Bill Campbell; Celestial Software LLC UUCP: camco!bill PO Box 820; 6641 E. Mercer Way FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) 236-1676 URL: http://www.celestial.com/ ``Freedom from prices is freedom from responsibility. You can simply pass laws, using the magic wand of government to satisfy your own desires at unspecified costs to be paid by others.'' -- Thomas Sowell Aug 2000 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From ben at reser.org Mon Oct 22 20:55:35 2001 From: ben at reser.org (Ben Reser) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Off Topic: was Re: In poor taste? In-Reply-To: <00ed01c15b60$79477a00$94c54618@gv.shawcable.net>; from kenslinux@home.com on Mon, Oct 22, 2001 at 06:17:24PM -0700 References: <3BD4B260.EAFE18B2@oz.net> <00ed01c15b60$79477a00$94c54618@gv.shawcable.net> Message-ID: <20011022185535.X1706@titanium.brain.org> On Mon, Oct 22, 2001 at 06:17:24PM -0700, Ken Clarke wrote: > This reminded me of a suggestion someone forwarded me: > > "What to do with Osama bin Laden? > > Killing him will only create a martyr. Holding him prisoner > will inspire his comrades to take hostages to demand his release. > Therefore, I suggest we do neither. Let the Special Forces, > Seals or whatever covertly capture him, fly him to an undisclosed > hospital and have surgeons quickly perform a complete sex > change operation. > > Then we return HER to Afghanistan to live as a woman > under the Taliban." > > Best idea I've heard yet! Does SPUG somehow mean stupid jokes we've already heard a million times this week? -- Ben Reser http://ben.reser.org "To fight and conquer in all our battles is not supreme excellence. Supreme excellence consists in breaking the enemy's resistance without fighting." -Chinese philosopher Sun Tzu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From mars at www.alaskashops.net Mon Oct 22 20:52:51 2001 From: mars at www.alaskashops.net (Jennifer) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: In poor taste? In-Reply-To: <87r8rvrwuk.fsf@ralf.artlogix.com> Message-ID: I have to speak up here and say that I find the picture fairly revolting and I really don't know why it was forwarded to a perl list. That looks like a religous picture to me (before the vandalism). To put it into perspective, no matter what your beliefs, is it funny to see someone like Jesus or Buddha with a penis on his head? Jennifer On 22 Oct 2001, Ken McGlothlen wrote: > Marion Scott Warner writes: > > | So would any of you be offended by this picture? I shared it with a > | recruiter at RHI and she was very offended. Is she uptight and lacking a > | sense of humor, or is it just me? > | http://sense-warner-200.oz.net/images/turban.jpg > > In general, anything involving naughty bits is best left out of the workplace, > or church, or in encounters with random strangers, or. . . . > > Not that it's not funny. It's just inappropriate humor for the place. > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From mcglk at artlogix.com Tue Oct 23 01:28:31 2001 From: mcglk at artlogix.com (Ken McGlothlen) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: In poor taste? In-Reply-To: References: Message-ID: <877ktmswds.fsf@ralf.artlogix.com> Jennifer writes: | That looks like a religous picture to me (before the vandalism). To put it | into perspective, no matter what your beliefs, is it funny to see someone | like Jesus or Buddha with a penis on his head? (* roll eyes *) It wasn't a religious picture. It was a picture of Osama bin Laden. He's not considered a holy man, even by Muslims. And it wouldn't bother me to see Jesus or Buddha or any other religious figure portrayed the same way. But then, it's hard to say where the humor would come from in that case; in bin Laden's case, calling him a d***head in pictures at least makes a certain amount of sense given the current context of events. (Which just goes to show you, Marion, that some people are willing to be offended no matter how you phrase it.) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From smorton at pobox.com Tue Oct 23 01:58:00 2001 From: smorton at pobox.com (Sanford Morton) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: In poor taste? In-Reply-To: <3BD4B260.EAFE18B2@oz.net> References: <3BD4B260.EAFE18B2@oz.net> Message-ID: <15317.5368.531500.961470@evrtwa1-ar4-129-081.evrtwa1.dsl.gtei.net> Marion Scott Warner writes: > So would any of you be offended by this picture? I shared it with a Yes, it's inappropriate for any workplace I've known and, in my view, the SPUG list. --Sandy Morton - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From Ryan.Parr at wwireless.com Tue Oct 23 03:13:52 2001 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Off Topic: was Re: In poor taste? Message-ID: <6D6F0541E2B1D411A75B0002A513016D04536229@wacorpml03.wwireless.com> Ben is out of control... :~) Not that I don't agree to a point. The subject of this thread is definately appropriate. Ryan Parr 208.409.5950 -----Original Message----- From: Ben Reser [mailto:ben@reser.org] Sent: Monday, October 22, 2001 7:56 PM To: spug-list@pm.org Subject: Re: SPUG: Off Topic: was Re: In poor taste? On Mon, Oct 22, 2001 at 06:17:24PM -0700, Ken Clarke wrote: > This reminded me of a suggestion someone forwarded me: > > "What to do with Osama bin Laden? > > Killing him will only create a martyr. Holding him prisoner > will inspire his comrades to take hostages to demand his release. > Therefore, I suggest we do neither. Let the Special Forces, > Seals or whatever covertly capture him, fly him to an undisclosed > hospital and have surgeons quickly perform a complete sex > change operation. > > Then we return HER to Afghanistan to live as a woman > under the Taliban." > > Best idea I've heard yet! Does SPUG somehow mean stupid jokes we've already heard a million times this week? -- Ben Reser http://ben.reser.org "To fight and conquer in all our battles is not supreme excellence. Supreme excellence consists in breaking the enemy's resistance without fighting." -Chinese philosopher Sun Tzu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From james at banshee.com Tue Oct 23 11:40:20 2001 From: james at banshee.com (James Moore) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: In poor taste? In-Reply-To: <3BD4B260.EAFE18B2@oz.net> Message-ID: <000001c15be1$68349410$0100a8c0@EACHTRA> You're kidding, right? (Or you left yourself logged in in a public place, and the mail isn't from you.). Of course it's offensive, and showing this to someone in a professional environment shows a serious lack of judgment. So much so that I have to assume that the public login theory is correct. - James -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of Marion Scott Warner Sent: Monday, October 22, 2001 4:57 PM To: spug-list@pm.org Subject: SPUG: In poor taste? So would any of you be offended by this picture? I shared it with a recruiter at RHI and she was very offended. Is she uptight and lacking a sense of humor, or is it just me? http://sense-warner-200.oz.net/images/turban.jpg - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From dancerboy at strangelight.com Tue Oct 23 07:04:48 2001 From: dancerboy at strangelight.com (dancerboy) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Off Topic: was Re: In poor taste? In-Reply-To: <20011022185535.X1706@titanium.brain.org> References: <3BD4B260.EAFE18B2@oz.net> <00ed01c15b60$79477a00$94c54618@gv.shawcable.net> <20011022185535.X1706@titanium.brain.org> Message-ID: At 6:55 PM -0700 10/22/01, Ben Reser wrote: > >Does SPUG somehow mean stupid jokes we've already heard a million times >this week? > If you're going to post stupid bin Laden jokes, at least make them *marginally* Perl related. ( I thought the various sig-file permutations of for('chmod a+x','rm -fr'){`$_ /bin/laden`;} were funny, the first dozen times I saw them... ) -jason - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From tuck at whistlingfish.net Tue Oct 23 15:20:24 2001 From: tuck at whistlingfish.net (Matt Tucker) Date: Wed Aug 4 00:08:23 2004 Subject: Conserving memory - was SPUG: Fw: greetings In-Reply-To: <200110222343.QAA01060@carios2.ca.boeing.com> References: <200110222343.QAA01060@carios2.ca.boeing.com> Message-ID: <6450000.1003868424@benzene> -- ced@carios2.ca.boeing.com spake thusly: >> ? Is it anytime the <> operator appears in the expression? E.g. >> what would be the semantics of: > >> while( ($var = ) , $var ) > > With an added chomp, your line above does appear to recapture the > older semantics. The following prints: > > abc > def > 0 > abc > def Printing the '0' is appropiate even with older semantics. The problem, I believe, only arose when the separator character was itself evaluatable (is that a word?) as false. Doing the chomp completely changes the loop, since it requires that all the code within know that the separator has been stripped. ># !/usr/bin/perl -w > use strict; > my $start = tell DATA; > print while ; > seek(DATA, $start, 0) or die; > my $var; > while( chomp($var = ), $var ) { > print $var, "\n"; > } > __END__ > abc > def > 0 -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/archives/spug-list/attachments/20011023/255e51b5/attachment.bin From andrew at sweger.net Tue Oct 23 15:58:50 2001 From: andrew at sweger.net (Andrew Sweger) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: In poor taste? In-Reply-To: <3BD4B260.EAFE18B2@oz.net> Message-ID: To even ask this question, regardless of forum, suggests a possible lack of sensitivity to your fellow human. But then this is just another opinion. On Mon, 22 Oct 2001, Marion Scott Warner wrote: > So would any of you be offended by this picture? I shared it with a > recruiter at RHI and she was very offended. Is she uptight and lacking a > sense of humor, or is it just me? -- Andrew B. Sweger -- The great thing about multitasking is that several things can go wrong at once. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From ryan at e-valuations.com Tue Oct 23 18:05:21 2001 From: ryan at e-valuations.com (Ryan Ames) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: creating file with cgi Message-ID: I have a cgi script that is creating a text file and saving it on my server. The problem is the owner is "nobody" and I want other people to be able to access this file. Is there a way that I can chmod it via my script? Ryan - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From ryan at e-valuations.com Tue Oct 23 18:53:16 2001 From: ryan at e-valuations.com (Ryan Ames) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: creating file with cgi Message-ID: duh..Nevermind.... figured it out... -----Original Message----- From: Ryan Ames Sent: Tuesday, October 23, 2001 4:05 PM To: spug-list@pm.org Subject: SPUG: creating file with cgi I have a cgi script that is creating a text file and saving it on my server. The problem is the owner is "nobody" and I want other people to be able to access this file. Is there a way that I can chmod it via my script? Ryan - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From ben at reser.org Tue Oct 23 19:00:20 2001 From: ben at reser.org (Ben Reser) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: creating file with cgi In-Reply-To: ; from ryan@e-valuations.com on Tue, Oct 23, 2001 at 04:05:21PM -0700 References: Message-ID: <20011023170020.H11367@titanium.brain.org> On Tue, Oct 23, 2001 at 04:05:21PM -0700, Ryan Ames wrote: > I have a cgi script that is creating a text file and saving it on my > server. The problem is the owner is "nobody" and I want other people to > be able to access this file. Is there a way that I can chmod it via my > script? perldoc -f chmod perldoc -f umask -- Ben Reser http://ben.reser.org "To fight and conquer in all our battles is not supreme excellence. Supreme excellence consists in breaking the enemy's resistance without fighting." -Chinese philosopher Sun Tzu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From Ryan.Parr at wwireless.com Tue Oct 23 22:14:18 2001 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Interesting sort issue Message-ID: <6D6F0541E2B1D411A75B0002A513016D0453637C@wacorpml03.wwireless.com> For the current implementation of my department's website, I've made a module (FileAPI) that allows me to utilise pages as data sources easily. I've also got an SSI CGI script that dynamically builds the drop-down menu and directory listings according to the directory structure which is determined using File::Find. The problem I'm running into is that sorting is very quirky. The following code: ... sub preprocess { # File::Find passes the directory listing to &preprocess if defined # before doing anything with it, specifically for sorting or excluding # directory entries return sort sorter @_; } sub sorter { my $a_title = lc(FileAPI->new($a)->getTitle()); my $b_title = lc(FileAPI->new($b)->getTitle()); $a_title cmp $b_title; } ... does alternating alphabetizing. For instance: C Directory A Sub-Directory B Sub-Directory C Sub-Directory B Directory A Sub-Directory B Sub-Directory C Sub-Directory A Directory A Sub-Directory B Sub-Directory C Sub-Directory and so on... I consider this behavior to be bizarre. Any thoughts? -- Ryan Parr - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From Ryan.Parr at wwireless.com Tue Oct 23 22:28:38 2001 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Interesting sort issue Message-ID: <6D6F0541E2B1D411A75B0002A513016D0453637E@wacorpml03.wwireless.com> I have spoken too soon. It seems that the sort routine was reverse alphabetizing the directories, but properly alphabetizing files. This in itself is weird, but was easily fixed: if(-d $a && -d $b) { return $b_title cmp $a_title; } else { return $a_title cmp $b_title; } This code works, even when there's mixed directories and files. I do still consider this strange. -- Ryan -----Original Message----- From: Parr, Ryan Sent: Tuesday, October 23, 2001 9:09 PM To: spug-list@pm.org Subject: Interesting sort issue For the current implementation of my department's website, I've made a module (FileAPI) that allows me to utilise pages as data sources easily. I've also got an SSI CGI script that dynamically builds the drop-down menu and directory listings according to the directory structure which is determined using File::Find. The problem I'm running into is that sorting is very quirky. The following code: ... sub preprocess { # File::Find passes the directory listing to &preprocess if defined # before doing anything with it, specifically for sorting or excluding # directory entries return sort sorter @_; } sub sorter { my $a_title = lc(FileAPI->new($a)->getTitle()); my $b_title = lc(FileAPI->new($b)->getTitle()); $a_title cmp $b_title; } ... does alternating alphabetizing. For instance: C Directory A Sub-Directory B Sub-Directory C Sub-Directory B Directory A Sub-Directory B Sub-Directory C Sub-Directory A Directory A Sub-Directory B Sub-Directory C Sub-Directory and so on... I consider this behavior to be bizarre. Any thoughts? -- Ryan Parr - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From jimfl at colltech.com Wed Oct 24 09:31:25 2001 From: jimfl at colltech.com (Jim Flanagan) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Interesting sort issue In-Reply-To: <6D6F0541E2B1D411A75B0002A513016D0453637C@wacorpml03.wwireless.com> Message-ID: <282264.3212904685@[192.168.0.105]> --Also Sprache "Parr, Ryan" On Tuesday, October 23, 2001 8:14 PM -0700: > sub sorter { > my $a_title = lc(FileAPI->new($a)->getTitle()); > my $b_title = lc(FileAPI->new($b)->getTitle()); > > $a_title cmp $b_title; > } As a side note, this sort is making two FileAPI objects, and calling two methods for every comparison in your sort, which, for sorting large numbers of items could get expensive, since you end up having to compute the lc(new->getTitle) multiple times for each element. Ideally, you'd like to do the new()->getTitle() combo just once for each item in the sort list. An analogy of this process is you have 50 dogs you want to sort by weight. The dogs don't like to be weighed, and so weighing them is a hassle (though it's easier than cats). Each time you want to compare the weight of two dogs to sort them, you have to weigh both of them. Order hassle squared! So you get 50 cardboard boxes. You weigh each dog once, put the dog in a box, and write the weight on the box. Then you sort the boxes by the number written on the box. When those are all in order, take the dogs out of the boxes one by one. There's a trick called the Schwarzian Transform (named after Randall), which you can use to do this. It looks like this: @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [ $_, lc(FileAPI->new($_)->getTitle()) ] } @unsorted; You sort of need to read this from the bottom up, (or the inside out). The last line makes an array of 2-element arrayref "boxes". These contain as the zeroth element an item from the list to be sorted, and as the oneth element, the result of lc(FileAPI->new()->getTitle()) on that element. The next line up sorts these "boxes" based on the oneth element. The next line up from that extracts the zeroth element from these boxes, and you end up with a list of the zeroth box elements sorted based on the oneth box elements. For a detailed, illustrated explanation of what is going on with the Schwartzian transform, see: http://www.5sigma.com/perl/schwtr.html -- Jim Flanagan Collective Technologies jimfl@colltech.com http://www.colltech.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From Ryan.Parr at wwireless.com Wed Oct 24 11:12:07 2001 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Interesting sort issue Message-ID: <6D6F0541E2B1D411A75B0002A513016D045363C2@wacorpml03.wwireless.com> Jim, That makes perfect sense. Thank you for the tip. -- Ryan Parr -----Original Message----- From: Jim Flanagan [mailto:jimfl@colltech.com] Sent: Wednesday, October 24, 2001 8:31 AM To: Parr, Ryan; spug-list@pm.org Subject: Re: SPUG: Interesting sort issue --Also Sprache "Parr, Ryan" On Tuesday, October 23, 2001 8:14 PM -0700: > sub sorter { > my $a_title = lc(FileAPI->new($a)->getTitle()); > my $b_title = lc(FileAPI->new($b)->getTitle()); > > $a_title cmp $b_title; > } As a side note, this sort is making two FileAPI objects, and calling two methods for every comparison in your sort, which, for sorting large numbers of items could get expensive, since you end up having to compute the lc(new->getTitle) multiple times for each element. Ideally, you'd like to do the new()->getTitle() combo just once for each item in the sort list. An analogy of this process is you have 50 dogs you want to sort by weight. The dogs don't like to be weighed, and so weighing them is a hassle (though it's easier than cats). Each time you want to compare the weight of two dogs to sort them, you have to weigh both of them. Order hassle squared! So you get 50 cardboard boxes. You weigh each dog once, put the dog in a box, and write the weight on the box. Then you sort the boxes by the number written on the box. When those are all in order, take the dogs out of the boxes one by one. There's a trick called the Schwarzian Transform (named after Randall), which you can use to do this. It looks like this: @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [ $_, lc(FileAPI->new($_)->getTitle()) ] } @unsorted; You sort of need to read this from the bottom up, (or the inside out). The last line makes an array of 2-element arrayref "boxes". These contain as the zeroth element an item from the list to be sorted, and as the oneth element, the result of lc(FileAPI->new()->getTitle()) on that element. The next line up sorts these "boxes" based on the oneth element. The next line up from that extracts the zeroth element from these boxes, and you end up with a list of the zeroth box elements sorted based on the oneth box elements. For a detailed, illustrated explanation of what is going on with the Schwartzian transform, see: http://www.5sigma.com/perl/schwtr.html -- Jim Flanagan Collective Technologies jimfl@colltech.com http://www.colltech.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From pdarley at kinesis-cem.com Thu Oct 25 10:30:24 2001 From: pdarley at kinesis-cem.com (Peter Darley) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Version control white paper Message-ID: Friends, I'm putting together a system with perl/postgresql that will need to have a good mechanism for maintaining multiple versions of database objects, which is something that is quite new to me. I have been searching the net to find a white paper explaining the inner workings of CVS, without describing the actual code implementation, and have drawn a blank. I was hoping that someone on this list could point me to such a thing, or to any white paper/algorithm discussion of other version control systems. I'm not sure if this is appropriate for this forum, and if not, I apologize. Thanks, Peter Darley - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From james at banshee.com Thu Oct 25 11:01:00 2001 From: james at banshee.com (James Moore) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Version control white paper In-Reply-To: Message-ID: <000801c15d6e$3ed3acd0$068d2640@EACHTRA> CVS doesn't actually do versioning, which is why you may be having a problem. It's just a wrapper around another versioning system, almost always RCS, but I think it can be configured to use SCCS or just about anything else. CVS exists to put directory structures around files under version control. CVS runs RCS ommands to track file versions. RCS itself doesn't know anything about things at the level of abstraction of a CVS project or even a directory; it only knows about single files. - James -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of Peter Darley Sent: Thursday, October 25, 2001 8:30 AM To: SPUG Subject: SPUG: Version control white paper Friends, I'm putting together a system with perl/postgresql that will need to have a good mechanism for maintaining multiple versions of database objects, which is something that is quite new to me. I have been searching the net to find a white paper explaining the inner workings of CVS, without describing the actual code implementation, and have drawn a blank. I was hoping that someone on this list could point me to such a thing, or to any white paper/algorithm discussion of other version control systems. I'm not sure if this is appropriate for this forum, and if not, I apologize. Thanks, Peter Darley - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From mbustad at Myrio.com Thu Oct 25 11:20:34 2001 From: mbustad at Myrio.com (Matthew.Bustad) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Version control white paper In-Reply-To: <000801c15d6e$3ed3acd0$068d2640@EACHTRA> Message-ID: CVS no longer uses RCS but has the code built in. If there is only one file to track, I would recomment RCS. For multiple file projects take a look at subversion: http://subversion.tigris.org/ There should be a perl modual that works with RCS. -Matthew.Bustad On Thu, 25 Oct 2001, James Moore wrote: > CVS doesn't actually do versioning, which is why you may be having a > problem. It's just a wrapper around another versioning system, almost > always RCS, but I think it can be configured to use SCCS or just about > anything else. > > CVS exists to put directory structures around files under version > control. CVS runs RCS ommands to track file versions. RCS itself > doesn't know anything about things at the level of abstraction of a CVS > project or even a directory; it only knows about single files. > > - James > > -----Original Message----- > From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf > Of Peter Darley > Sent: Thursday, October 25, 2001 8:30 AM > To: SPUG > Subject: SPUG: Version control white paper > > Friends, > I'm putting together a system with perl/postgresql that will > need to have a > good mechanism for maintaining multiple versions of database objects, > which > is something that is quite new to me. I have been searching the net to > find > a white paper explaining the inner workings of CVS, without describing > the > actual code implementation, and have drawn a blank. I was hoping that > someone on this list could point me to such a thing, or to any white > paper/algorithm discussion of other version control systems. > I'm not sure if this is appropriate for this forum, and if not, > I > apologize. > Thanks, > Peter Darley > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your > Email-address > For daily traffic, use spug-list for LIST ; for weekly, > spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From andrew at sweger.net Thu Oct 25 11:27:52 2001 From: andrew at sweger.net (Andrew Sweger) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Version control white paper In-Reply-To: Message-ID: I'm not sure if the inner workings of CVS would apply as well to versioned database objects. The traditional inner workings of CVS are based on rcs (co, ci), diff, and ed. Those man pages give some information on the revision file format (all those *,v files in the repository). There is a project working on building a replacement of CVS called subversion that may change some of these internal semantics (maybe). http://subversion.tigris.org/ It goes way beyond CVS and trys to answer those, "Why can't CVS do this?," questions. The method of database object versioning that I have seen involved using a pair of columns (fields) to bracket the period for which a row (record) is valid. Usually these are date/time fields. There are several strategies depending on an applications needs. I can try to explain more separately if your interested. At one time PostgreSQL had built in support for record versioning that permitted rolling back the state of the database with respect to time. I think this may have been dropped in recent versions in lieu of performance. On Thu, 25 Oct 2001, Peter Darley wrote: > I'm putting together a system with perl/postgresql that will need to have a > good mechanism for maintaining multiple versions of database objects, which > is something that is quite new to me. I have been searching the net to find > a white paper explaining the inner workings of CVS, without describing the > actual code implementation, and have drawn a blank. I was hoping that > someone on this list could point me to such a thing, or to any white > paper/algorithm discussion of other version control systems. -- Andrew B. Sweger -- The great thing about multitasking is that several things can go wrong at once. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From jtraug at seanet.com Thu Oct 25 11:54:22 2001 From: jtraug at seanet.com (Jim Traugott) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Version control white paper In-Reply-To: References: Message-ID: <200110251654.JAA14942@mailhost.physio-control.com> Have you looked at cvshome? There's some pretty good documentation there. http://www.cvshome.org jim >>>>> "Peter" == Peter Darley writes: > Friends, > I'm putting together a system with perl/postgresql that will need to have a > good mechanism for maintaining multiple versions of database objects, which > is something that is quite new to me. I have been searching the net to find > a white paper explaining the inner workings of CVS, without describing the > actual code implementation, and have drawn a blank. I was hoping that > someone on this list could point me to such a thing, or to any white > paper/algorithm discussion of other version control systems. > I'm not sure if this is appropriate for this forum, and if not, I > apologize. > Thanks, > Peter Darley > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From pdarley at kinesis-cem.com Thu Oct 25 12:23:48 2001 From: pdarley at kinesis-cem.com (Peter Darley) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Version control white paper In-Reply-To: Message-ID: Friends, The info on RCS seems to be paying off, as I can find explanations on how it works on the web. I'm really interested in the theory behind how things are stored, rather than the specific file formats. The application I'm working on is for storing and reporting consumer research. It needs to know that there are different versions of the questionnaire used, and be able to produce correct reports based on the version of the questionnaire that the respondent actually answered, so it needs to be able to reproduce any version of the questionnaire at any time (so just being able to roll the database back to a previous version isn't going to work). I am currently considering having a fairly simple change tracking system that records deletes and additions to a questions list for the questionnaire, then build any version of the questionnaire from that. So, if you want version 3 of a questionnaire the system would build version 1 from 'add' statements, then apply any 'add' and 'remove' questions for version 2, and the same for version 3, which will end up with a full version 3 questionnaire. Thanks to everyone for their help and input! Peter Darley -----Original Message----- From: Andrew Sweger [mailto:andrew@sweger.net] Sent: Thursday, October 25, 2001 9:28 AM To: Peter Darley Cc: SPUG Subject: Re: SPUG: Version control white paper I'm not sure if the inner workings of CVS would apply as well to versioned database objects. The traditional inner workings of CVS are based on rcs (co, ci), diff, and ed. Those man pages give some information on the revision file format (all those *,v files in the repository). There is a project working on building a replacement of CVS called subversion that may change some of these internal semantics (maybe). http://subversion.tigris.org/ It goes way beyond CVS and trys to answer those, "Why can't CVS do this?," questions. The method of database object versioning that I have seen involved using a pair of columns (fields) to bracket the period for which a row (record) is valid. Usually these are date/time fields. There are several strategies depending on an applications needs. I can try to explain more separately if your interested. At one time PostgreSQL had built in support for record versioning that permitted rolling back the state of the database with respect to time. I think this may have been dropped in recent versions in lieu of performance. On Thu, 25 Oct 2001, Peter Darley wrote: > I'm putting together a system with perl/postgresql that will need to have a > good mechanism for maintaining multiple versions of database objects, which > is something that is quite new to me. I have been searching the net to find > a white paper explaining the inner workings of CVS, without describing the > actual code implementation, and have drawn a blank. I was hoping that > someone on this list could point me to such a thing, or to any white > paper/algorithm discussion of other version control systems. -- Andrew B. Sweger -- The great thing about multitasking is that several things can go wrong at once. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From dleonard at dleonard.net Thu Oct 25 19:34:14 2001 From: dleonard at dleonard.net (Douglas Leonard) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Version control white paper In-Reply-To: Message-ID: Yup, there's a CPAN module, Rcs.pm, that I've used and loathe. It is just a direct wrapper around rcs that calls the various rcs binaries via system(). I really wish I had the time to write a proper replacement for it that didn't have the overhead and didn't explode so easily. My abuses of eval{} and redefining of methods with this module could and should be considered criminal. -- On Thu, 25 Oct 2001, Matthew.Bustad wrote: > CVS no longer uses RCS but has the code built in. > If there is only one file to track, I would recomment RCS. > For multiple file projects take a look at subversion: > > http://subversion.tigris.org/ > > There should be a perl modual that works with RCS. > > -Matthew.Bustad > > On Thu, 25 Oct 2001, James Moore wrote: > > > CVS doesn't actually do versioning, which is why you may be having a > > problem. It's just a wrapper around another versioning system, almost > > always RCS, but I think it can be configured to use SCCS or just about > > anything else. > > > > CVS exists to put directory structures around files under version > > control. CVS runs RCS ommands to track file versions. RCS itself > > doesn't know anything about things at the level of abstraction of a CVS > > project or even a directory; it only knows about single files. > > > > - James > > > > -----Original Message----- > > From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf > > Of Peter Darley > > Sent: Thursday, October 25, 2001 8:30 AM > > To: SPUG > > Subject: SPUG: Version control white paper > > > > Friends, > > I'm putting together a system with perl/postgresql that will > > need to have a > > good mechanism for maintaining multiple versions of database objects, > > which > > is something that is quite new to me. I have been searching the net to > > find > > a white paper explaining the inner workings of CVS, without describing > > the > > actual code implementation, and have drawn a blank. I was hoping that > > someone on this list could point me to such a thing, or to any white > > paper/algorithm discussion of other version control systems. > > I'm not sure if this is appropriate for this forum, and if not, > > I > > apologize. > > Thanks, > > Peter Darley > > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > > - > > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > > Replace ACTION by subscribe or unsubscribe, EMAIL by your > > Email-address > > For daily traffic, use spug-list for LIST ; for weekly, > > spug-list-digest > > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > > > > > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From wwalker at www.bybent.com Thu Oct 25 21:05:31 2001 From: wwalker at www.bybent.com (Wayne Walker) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: Version control white paper In-Reply-To: ; from andrew@sweger.net on Thu, Oct 25, 2001 at 09:27:52AM -0700 References: Message-ID: <20011025210531.B16962@nomad.bybent.com> Another tool to think about is PRCS. If your database objects are binary, and they probably are, then PRCS (which is built on Xdelta differencing engine which is patterned after the differencing engine in rsync...) may do a much better job of conserving space and handling binaries than CVS. I know nothing about subversion, so I'll be checking it out in a minute. You'll find PRCS included in the Xdelta release. At the site you may also find beta versions of PRCS 2.x. http://www.xcf.berkeley.edu/~jmacd/xdelta.html -- Wayne Walker Instructor, Perl Developer, Unix SysAdmin, and SysAdmin for pm.org References: <001801c16179$6d013fa0$7201a8c0@versuslaw.com> Message-ID: <59540000.1004486208@benzene> -- Martin Korb spake thusly: > I using srvany.exe to install a perl service on win NT. > When I restart the "mainservice" from the control panel nothing > happens, meaning no files are moved. The movefiles.pl is only a > testscript to see if I can get the service to work. > > What am I doing wrong? Any suggestions? I had that very same problem when I was working for VersusLaw, which was why I ended up embedding a Perl interpreter in an NT service. :-) -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/archives/spug-list/attachments/20011030/d15d868e/attachment.bin From byoung at speakeasy.org Tue Oct 30 19:20:14 2001 From: byoung at speakeasy.org (Bradley E. Young) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: srvany and Perl service In-Reply-To: <001801c16179$6d013fa0$7201a8c0@versuslaw.com> Message-ID: Does the service have permission to modify the files? Try changing the service to run under your account: Open the properties of the service in the services control panel, and you should see the option to change the account it runs as. In W2K, it is a separate tab. Brad Bradley E. Young UNIX bigot bradleyy@wrq.com +1.206.301.6778 Never make anything simple and efficient when a way can be found to make it complex and wonderful. -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of Martin Korb Sent: Tuesday, October 30, 2001 11:31 To: spug-list@pm.org Subject: SPUG: srvany and Perl service I using srvany.exe to install a perl service on win NT. srvany is installed as the "mainservice" using instsrv mainservice d:\services\srvany.exe To install movefiles. pl (is does what the name implies, looks at a dir and moves the content to a new dir) as a service, I did the following (which is not working) - used regedt32.exe to edit the registry info. - created a new folder "Parameters" under HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\mainservice\ - created a new value in Parameters: AppParameters:REG_SZ:pathname of the movefiles.pl (c:\perl\scripts\movefiles.pl) -created a new value in Parameters: Application:REG_SZ:pathname of perl.exe (c:\perl\bin\perl.exe) When I restart the "mainservice" from the control panel nothing happens, meaning no files are moved. The movefiles.pl is only a testscript to see if I can get the service to work. What am I doing wrong? Any suggestions? Thanks Martin - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://zipcon.net/spug/ From learnp at learnp.co.kr Tue Oct 30 20:57:01 2001 From: learnp at learnp.co.kr (=?ks_c_5601-1987?B?uei/7LTCu+e297Xp?=) Date: Wed Aug 4 00:08:23 2004 Subject: SPUG: =?ks_c_5601-1987?B?v7W+7iC8+LCjILndwMAhIDe03LDoIMfQvcC5/cC4t84gx9iw4cfPvLy/5CE=?= Message-ID: <3bdf69433be66121@relay3.kornet.net> (added by relay3.kornet.net) ??????????????????????????????.A:link { COLOR: black; TEXT-DECORATION: none}A:visited { COLOR: black; TEXT-DECORATION: none}A:active { COLOR: #ff0033}A:hover { COLOR: #ff0033}BODY { COLOR: black; FONT-SIZE: 9pt}TD { COLOR: black; FONT-SIZE: 9pt}..eun { TEXT-DECORATION: underline}..text { COLOR: #333333} ??? ??? ??? ??? ?? ?? ??? ???? ??? ????. ???????? ?????? ?????????. ??????? ?? (?) ??????? ???? ???? ????? ??? 100??? ?? ????? ?? ?? ??? ?? ??? "21C ???? ???"? ?? ?? W.L.A(Whole Language Approach)?? ? ??? ??? Shower English? ???? ?????. ?? ??? ????? ????? ??? ?? ?? ??? ?? ??? ?? ??? Shower English? ??? ??? ????. ??(?)??? ???? ??? ?? ????? ??? ??? ??? ????? ???? ??? ????, ??? ?? ?? ?? ??(?100???), ???, ??? ?? ?? ?? ??? ???? ????. ???? ?? Shower English ? ????? ???? ???? ???? ???? ???. ?????. ?? ?? CD ??. ??????? ?? SampleCD? ????? ??? ??? ????. ???????? ? ??? ???~ . ?? : ?? ?? 1?, Tape 2?, ????? CD-Rom ( *12?? ) EBS??? ???? ? EBS?? ??? ???? ??? ???? ?? ??? ???? ?? ?? ??? ???? ?? ?? ?? ?? ?? ?(?)???? ??? ??? ?? ??? ??? ??? ????? ??? ??? ??? ??? ?? ??? ?? ???. ??? ?? . ?? ??.. ???? (book 4-unit 1- Dialogue 1) Dialogue 1 Mike : Hello, Jane. Which class are you in? Jane : I'm in Mr. Smith's class. What kind of classes do you have? Mike : In the morning, I have Math and English classes. Jane : And what do you do after class? Mike : I eat lunch at noon, and read in the library. What about you? Jane : I surfthe internet in the computer room. ??? : ??, ??. ?? ?? ???? ?? : ?? ??? ??????. ?? ?? ??? ??? ??? : ??? ??? ?? ??? ??. ?? : ?? ?? ??? ???? ??? : 12?? ??? ?? ?? ????? ?? ??. ?? ???? ?? : ?? ?????? ???? ?. ?? ?? ??. ??? ?? ?? ? ??? ??? ??? ??? ??? ?? ???? ?? ????. ????? ?? ??? ??? ?? ?? ??? ????. ???? ? ?? ???? : 02 - 3473 - 0515 : FAX : 02 - 3473 - 4540 ???? : http://www.learnp.co.kr (?)??? ??? ????? ??? ??? 1625-1 learnp@learnp.co.kr -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20011031/f67e1dc7/attachment.htm