From sachin_chat at coolgoose.com Sun Apr 2 19:17:49 2006 From: sachin_chat at coolgoose.com (Sachin Chaturvedi) Date: Mon, 3 Apr 2006 08:07:49 +0550 Subject: SPUG: getting error message while substitution Message-ID: <1144028269.1901386791@as03.cooltoad.com> i am having a file in which i have statement $ret_val = system("perl $ENV{SOURCE_ROOT}/scripts/Test_script.pl"); and i want to make a substitution in which i want to remove occurence of perl from this line. i tried this by using file handle for that file and doing following substitution $line =~ s|\perl \$ENV{SOURCE_ROOT}/scripts/Test_script.pl|\$ENV{SOURC _ROOT}/scripts/Test_script|si; but i am getting following error message Can't find unicode character property definition via main->e or e.pl a unicode/Is/e.pl line 41 i dont know why this is coming . how can this be removed so that my substituton is done correctly From sthoenna at efn.org Sun Apr 2 18:53:13 2006 From: sthoenna at efn.org (Yitzchak Scott-Thoennes) Date: Sun, 2 Apr 2006 18:53:13 -0700 Subject: SPUG: getting error message while substitution In-Reply-To: <1144028269.1901386791@as03.cooltoad.com> References: <1144028269.1901386791@as03.cooltoad.com> Message-ID: <20060403015313.GA3568@efn.org> On Mon, Apr 03, 2006 at 08:07:49AM +0550, Sachin Chaturvedi wrote: > i am having a file in which i have statement > > $ret_val = system("perl $ENV{SOURCE_ROOT}/scripts/Test_script.pl"); Gah. I hope you are in a situation where no one can do: SYSTEM_ROOT="-e0; rm -rf /; echo " If not, save $ENV{SOURCE_ROOT} into a variable and check it for reasonableness. > and i want to make a substitution in which i want to remove occurence of perl from this line. i tried this by using > file handle for that file and doing following substitution > > $line =~ s|\perl \$ENV{SOURCE_ROOT}/scripts/Test_script.pl|\$ENV{SOURC > _ROOT}/scripts/Test_script|si; > > but i am getting following error message > > Can't find unicode character property definition via main->e or e.pl a unicode/Is/e.pl line 41 > > i dont know why this is coming . how can this be removed so that my substituton is done correctly That comes from the "\pe". See http://perldoc.perl.org/perlre.html#Regular-Expressions: \pP Match P, named property. Use \p{Prop} for longer names. The general rule is that \ followed by an alphanumeric character may mean something weird, but \ followed by any other character matches that character. So get rid of the \ before "perl" and add one before the . in .pl. From jarich at perltraining.com.au Sun Apr 2 20:06:19 2006 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Mon, 03 Apr 2006 13:06:19 +1000 Subject: SPUG: getting error message while substitution In-Reply-To: <1144028269.1901386791@as03.cooltoad.com> References: <1144028269.1901386791@as03.cooltoad.com> Message-ID: <4430912B.3080807@perltraining.com.au> Sachin Chaturvedi wrote: > i am having a file in which i have statement > > $ret_val = system("perl $ENV{SOURCE_ROOT}/scripts/Test_script.pl"); Depending on the permissions of this program you may need to double check that $ENV{SOURCE_ROOT} contains a safe value. In fact, I'd recommend that you turn taint mode on for your program regardless: #!/usr/bin/perl -T A safer way to do the above is to use the multiple argument version of system: $ret_val = system("perl", "$ENV{SOURCE_ROOT}/scripts/Test_script.pl"); This version passes the second (and subsequent) arguments as arguments to the first (assumed to be the command). These arguments do not go past the shell, and thus cannot be used to cause shell attackes. Thus even if $ENV{SOURCE_ROOT} is set to: 1; rm -rf /; no damage will occur because what will happen is the command will be constructed as: perl "1; rm -rf /;/scripts/Test_script.pl" and the file called "1; rm -rf /;/scripts/Test_script.pl" probably doesn't exist. > and i want to make a substitution in which i want to remove occurence of perl > from this line. i tried this by using file handle for that file and doing > following substitution > > $line =~ s|\perl \$ENV{SOURCE_ROOT}/scripts/Test_script.pl|\$ENV{SOURC > _ROOT}/scripts/Test_script|si; I suspect your error is caused by your \p. You'll probably also want to escape your . in Test_script.pl. Either way, your substitute might be better written with {}s at your delimiters as they allow line breaking more nicely: $line =~ s{perl \$ENV{SOURCE_ROOT}/scripts/Test_script\.pl} {\$ENV{SOURCE_ROOT}/scripts/Test_script}si; You could also use [] or () if you thought they looked better. Depending on your actual plans for the result of this substitute, there might be a better way of doing this altogether. All the best, Jacinta -- ("`-''-/").___..--''"`-._ | Jacinta Richardson | `6_ 6 ) `-. ( ).`-.__.`) | Perl Training Australia | (_Y_.)' ._ ) `._ `. ``-..-' | +61 3 9354 6001 | _..`--'_..-_/ /--'_.' ,' | contact at perltraining.com.au | (il),-'' (li),' ((!.-' | www.perltraining.com.au | From lmzaldivar at gmail.com Mon Apr 3 09:21:27 2006 From: lmzaldivar at gmail.com (luis medrano) Date: Mon, 3 Apr 2006 09:21:27 -0700 Subject: SPUG: Removing special characters Message-ID: <50aeae6f0604030921v47657e9eo1963d7d47ff787dc@mail.gmail.com> List, I have this character in a file "^M" but I don't know how to define this on perl to remove it. This file is in a unix/linux enviroment. I will really appreciate if any of you can help me to define this character to be remove from the text file. Thanks, Luis From mike206 at gmail.com Mon Apr 3 09:41:27 2006 From: mike206 at gmail.com (mike) Date: Mon, 3 Apr 2006 08:41:27 -0800 Subject: SPUG: Removing special characters In-Reply-To: <50aeae6f0604030921v47657e9eo1963d7d47ff787dc@mail.gmail.com> References: <50aeae6f0604030921v47657e9eo1963d7d47ff787dc@mail.gmail.com> Message-ID: try \r its a carraige return usually found in windows land to remove try s/\r// On 4/3/06, luis medrano wrote: > > List, > > I have this character in a file "^M" but I don't know how to define > this on perl to remove it. This file is in a unix/linux enviroment. I > will really appreciate if any of you can help me to define this > character to be remove from the text file. > > Thanks, > Luis > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/spug-list/attachments/20060403/d2c79d2e/attachment.html From m3047 at inwa.net Mon Apr 3 10:06:26 2006 From: m3047 at inwa.net (Fred Morris) Date: Mon, 3 Apr 2006 10:06:26 -0700 Subject: SPUG: Removing special characters Message-ID: A.k.a. "CR". Typically it is paired with a newline (a.k.a. "LF"): CRLF, ^M^J or \r\n. Usually found in all application layer networking protocols: HTTP, SMTP, etc. A lot of applications may accept either the CR or LF alone (more often the LF than the CR), but it's bad form to send data that way. (QMail comes to mind as one MTA which is particularly annoying in its regard of bare LFs.) Historically this goes back to hardware control, where the LF kicked the paper and the CR moved the printing head (ahhh, nostalgia!). Common problem is that people break traffic coming over the wire on the LF, and find the CR still stuck to the end of the lines. Best practice alternative to chomp might be something like (untested): s/\r?\n//o I note that most software native to whatever platform handles this automagically, converting what comes over the wire into "native" format, whether that's LF, CR, or CRLF (but don't get me started about EBCDIC!). At 8:41 AM 4/3/06, mike wrote: > >try > >\r > >its a carraige return > >usually found in windows land -- Fred Morris http://www.inwa.net/~m3047/contact.html From sthoenna at efn.org Mon Apr 3 10:09:22 2006 From: sthoenna at efn.org (Yitzchak Scott-Thoennes) Date: Mon, 3 Apr 2006 10:09:22 -0700 Subject: SPUG: Removing special characters In-Reply-To: References: <50aeae6f0604030921v47657e9eo1963d7d47ff787dc@mail.gmail.com> Message-ID: <20060403170922.GA2164@efn.org> ^M (M may be any of @, A-Z, [, \\, ], ^, _) is some software's way of showing a control character, a non-printable or whitespace character. The general way to do the same thing in perl is to use \cM (in a double-quotish context such as a substitution or "string"). But as mike points out, \cM is one that's given an escape sequence all of it's own, \r. On Mon, Apr 03, 2006 at 08:41:27AM -0800, mike wrote: > try > > \r > > its a carraige return > > usually found in windows land > > to remove try s/\r// > > On 4/3/06, luis medrano wrote: > > > > List, > > > > I have this character in a file "^M" but I don't know how to define > > this on perl to remove it. This file is in a unix/linux enviroment. I > > will really appreciate if any of you can help me to define this > > character to be remove from the text file. From m3047 at inwa.net Mon Apr 3 10:13:10 2006 From: m3047 at inwa.net (Fred Morris) Date: Mon, 3 Apr 2006 10:13:10 -0700 Subject: SPUG: Perl in public Message-ID: By the way, looking my logs the other day I noticed that the sidebar link at www.kcdems.org to 2005 Canvass Data points to my Elections Folly... FWIW... -- Fred Morris http://www.inwa.net/~m3047/data-services.html From Eric.D.Peterson at alltel.com Tue Apr 11 14:23:51 2006 From: Eric.D.Peterson at alltel.com (Eric.D.Peterson at alltel.com) Date: Tue, 11 Apr 2006 14:23:51 -0700 Subject: SPUG: Merging two array of hashes Message-ID: <7D0AAB71F5A3104AA2A7631DA3C7489D16F9B8@nwwaseant641.alltel.com> Using DBI (fetchall_arrayref) which returns an array reference, I call twice to two different machines with the same query to get similar data. I want to merge the data before outputting. Unfortunately I can't create a database link otherwise I'd do the query once. So I'll have to do it here in my calling routine. I can use Data::Dumper to output the Array of Hash. But instead I'd like to merge the two AoH into one, then sort the data, and then print the properly. So for now I need a hint on how to merge the two AoH. ... # ---------- ---------- ---------- my $onyx_data_ref = get_data ( "userid", "dbname", "unixname", 0, "Onyx" ); my @onyx_AoH; foreach my $row ( @$onyx_data_ref ) { my ( $machine, $workflow_nm, $cnt, $last_run, $diff, $status ) = @$row; push @onyx_AoH, { machine => $machine, workflow => $workflow_nm, count => ( $cnt =~ s/^\s+// ), last_run => $last_run, diff => $diff, status => $status }; } # ---------- ---------- ---------- my $onyx_data_ref = get_data ( "userid", "dbname", "unixname", 0, "Opal" ); my @opal_AoH; foreach my $row ( @$opal_data_ref ) { my ( $machine, $workflow_nm, $cnt, $last_run, $diff, $status ) = @$row; push @opal_AoH, { machine => $machine, workflow => $workflow_nm, count => ( $cnt =~ s/^\s+// ), last_run => $last_run, diff => $diff, status => $status }; } use Data::Dumper; $Data::Dumper::Varname = "ONYX ---"; print Dumper \@onyx_AoH; $Data::Dumper::Varname = "OPAL ---"; print Dumper \@opal_AoH; ... ***************************************************************************** The information contained in this message, including attachments, may contain privileged or confidential information that is intended to be delivered only to the person identified above. If you are not the intended recipient, or the person responsible for delivering this message to the intended recipient, ALLTEL requests that you immediately notify the sender and asks that you do not read the message or its attachments, and that you delete them without copying or sending them to anyone else. From Eric.D.Peterson at alltel.com Tue Apr 11 14:43:03 2006 From: Eric.D.Peterson at alltel.com (Eric.D.Peterson at alltel.com) Date: Tue, 11 Apr 2006 14:43:03 -0700 Subject: SPUG: Merging two array of hashes Message-ID: <7D0AAB71F5A3104AA2A7631DA3C7489DAAF157@nwwaseant641.alltel.com> Never mind, Just fill the same AoH after calling the get_data function. I have got to stop looking at this and think of something else for a few minutes. -----Original Message----- From: Peterson, Eric D Sent: Tuesday, 11 April 2006 14:24 To: 'spug-list at pm.org' Subject: Merging two array of hashes Using DBI (fetchall_arrayref) which returns an array reference, I call twice to two different machines with the same query to get similar data. I want to merge the data before outputting. Unfortunately I can't create a database link otherwise I'd do the query once. So I'll have to do it here in my calling routine. I can use Data::Dumper to output the Array of Hash. But instead I'd like to merge the two AoH into one, then sort the data, and then print the properly. So for now I need a hint on how to merge the two AoH. ... # ---------- ---------- ---------- my $onyx_data_ref = get_data ( "userid", "dbname", "unixname", 0, "Onyx" ); my @onyx_AoH; foreach my $row ( @$onyx_data_ref ) { my ( $machine, $workflow_nm, $cnt, $last_run, $diff, $status ) = @$row; push @onyx_AoH, { machine => $machine, workflow => $workflow_nm, count => ( $cnt =~ s/^\s+// ), last_run => $last_run, diff => $diff, status => $status }; } # ---------- ---------- ---------- my $onyx_data_ref = get_data ( "userid", "dbname", "unixname", 0, "Opal" ); my @opal_AoH; foreach my $row ( @$opal_data_ref ) { my ( $machine, $workflow_nm, $cnt, $last_run, $diff, $status ) = @$row; push @opal_AoH, { machine => $machine, workflow => $workflow_nm, count => ( $cnt =~ s/^\s+// ), last_run => $last_run, diff => $diff, status => $status }; } use Data::Dumper; $Data::Dumper::Varname = "ONYX ---"; print Dumper \@onyx_AoH; $Data::Dumper::Varname = "OPAL ---"; print Dumper \@opal_AoH; ... ***************************************************************************** The information contained in this message, including attachments, may contain privileged or confidential information that is intended to be delivered only to the person identified above. If you are not the intended recipient, or the person responsible for delivering this message to the intended recipient, ALLTEL requests that you immediately notify the sender and asks that you do not read the message or its attachments, and that you delete them without copying or sending them to anyone else. From andrew at seattleperl.org Wed Apr 12 10:36:26 2006 From: andrew at seattleperl.org (Andrew Sweger) Date: Wed, 12 Apr 2006 10:36:26 -0700 (PDT) Subject: SPUG: Meeting Announcement -- Making Perl Faster -- 18 April 2006 Message-ID: April 2006 Seattle Perl Users Group (SPUG) Meeting ================================================== Title: Introduction to Making Perl Faster Speaker: Steve Baylis Meeting Date: Tuesday, 18 April 2006 Meeting Time: 6:30 - 8:30 p.m. Location: Whitepages.com offices Cost: Admission is free and open to the general public Info: http://seattleperl.org/ =========================================== Please join us Tuesday evening on 18 April 2006 at the regular monthly meeting of the Seattle Perl Users Group. Do you have a need for speed? Is your correct and tested Perl code just taking too long to get the job done? Come see how Steve makes Perl go more faster. See below for more information on... - Speaker Background - Presentation Description - Meeting Location Speaker Background ================== Steve Baylis ------------ I have been programming in Perl for the last ten years and I'm currently the Lead Architect at WhitePages.com. In my position, I am responsible for ensuring our applications respond quickly and scale efficiently. Given that we are a top 100 web property and all of our code is in Perl, I have learned a *lot* about squeezing performance from Perl. Presentation Description ======================== Introduction to Making Perl Faster ---------------------------------- Everyone knows "There's more than one way to do it", but that generally means there's a fast way and a slow way and probably more than a few in between. Sometimes to get the best performance, you have to sacrifice RAM or readability or both. Sometimes, it's not worth it. Sometimes it is. In my presentation, I'll show how we've tuned some large applications to get better performance as well as demonstrate some simple things everyone can do to make their code more efficient. Meeting Location ================ Whitepages.com is located on the 16th floor of the Rainier Square Tower (1301 5th Avenue, Seattle) which is across from the 5th Avenue Theater. See the directions[1] for a quick primer on how to reach us from various locations across Puget Sound. There are plenty of locations to park in the area, including on the street. If you're looking for off-street parking, you can park in the Rainier Square garage which has an entrance on Union St. After 6PM, the building management restricts access to most floors. Our host is trying to take care of this, but if unsuccessful, they will station someone on the 1st floor near the elevator bank and 5th Avenue entrance to let people in. Worst case scenario, give our host a call on his cell phone[2] and he'll run down to let you in. Our hosts are providing a generous assortment of free sodas, fruit drinks, teas, and coffee, and also have some snacks. You definitely won't dehydrate here. We look forward to seeing you! [1] - http://www.whitepagesinc.com/locations [2] - (206) 579-7113 From lmzaldivar at gmail.com Thu Apr 13 10:53:02 2006 From: lmzaldivar at gmail.com (luis medrano) Date: Thu, 13 Apr 2006 10:53:02 -0700 Subject: SPUG: epoch date Message-ID: <50aeae6f0604131053j559f140fm62e06b5f2f48d5d2@mail.gmail.com> Hey list, I'm trying to convert dates to epoch dates but my script is giving me this error: "Day '29' out of range 1..28 at date.pl line 13". Any of you may know what it can be wrong?, Thanks, Luis P.S. This is the script: #!/usr/bin/perl use strict; use Time::Local; my @months=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); my $sec=00; my $min=00; my $hours=14; my $mon=1; my $year=2005; foreach my $month (@months){ for (my $day=1; $day<=29;$day++){ #next if (($month == $months[1]) && ($day>28)); my $epoch=timelocal($sec, $min, $hours, $day, $mon, $year); print" $epoch, $day, $mon, $year \n"; } $mon++; } but I From tcaine at cac.washington.edu Thu Apr 13 11:09:09 2006 From: tcaine at cac.washington.edu (tcaine at cac.washington.edu) Date: Thu, 13 Apr 2006 11:09:09 -0700 (PDT) Subject: SPUG: epoch date In-Reply-To: <50aeae6f0604131053j559f140fm62e06b5f2f48d5d2@mail.gmail.com> References: <50aeae6f0604131053j559f140fm62e06b5f2f48d5d2@mail.gmail.com> Message-ID: The $mon variable you are passing to timelocal should be in the range 0 .. 11 instead of 1 .. 12. Since you initialize the variable to 1 it assumes your are talking about February. February of 2005 only had 28 days. On Thu, 13 Apr 2006, luis medrano wrote: > Hey list, > > I'm trying to convert dates to epoch dates but my script is giving me > this error: "Day '29' out of range 1..28 at date.pl line 13". Any of > you may know what it can be wrong?, > > Thanks, > Luis > > P.S. This is the script: > > > #!/usr/bin/perl > use strict; > use Time::Local; > my @months=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); > my $sec=00; > my $min=00; > my $hours=14; > my $mon=1; > my $year=2005; > foreach my $month (@months){ > for (my $day=1; $day<=29;$day++){ > #next if (($month == $months[1]) && ($day>28)); > my $epoch=timelocal($sec, $min, $hours, $day, $mon, $year); > print" $epoch, $day, $mon, $year \n"; > } > $mon++; > } > > > but I > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ > From atom.powers at gmail.com Fri Apr 14 12:10:29 2006 From: atom.powers at gmail.com (Atom Powers) Date: Fri, 14 Apr 2006 12:10:29 -0700 Subject: SPUG: Diff keys(%hast0) with keys(%hash1) both ways ? Message-ID: I some values/checks that could be "clean", "dirty", or both and I want to find out how often it is clean and/or dirty. $cleantests{$check} holds the number if times a check was clean, similarly $dirtytests{$check} is how many times a check was dirty. Again, a check could be "clean" 5 times a "dirty" 16 times, or whatever. I'm having problems finding the checks which are "clean" but not "dirty". I have: -- foreach my $check ( keys %dirtytests ) { if ($cleantests{$check}) { print DATA $check . ":" . $dirtytests{$check} . "_" . $cleantests{$check} . "\n"; } else { print DATA $check . ":" . $dirtytests{$check} . "_0\n"; } } -- But I also want to be able to do this for the $cleantests{$checks} which are not dirty. -- print DATA $check . ":0_" . $cleantests{$check} . "\n"; -- I could -- my @clean = keys(%cleantests); -- and somehow undef a check from the array when I am doing keys(%dirtytests), but I don't know if you can remove a value from an array without knowing it's index. I can't undef($cleantests{$check}) because I need to use those value later. -- -- Perfection is just a word I use occasionally with mustard. --Atom Powers-- From pdarley at kinesis-cem.com Fri Apr 14 12:43:45 2006 From: pdarley at kinesis-cem.com (Peter Darley) Date: Fri, 14 Apr 2006 12:43:45 -0700 Subject: SPUG: Diff keys(%hast0) with keys(%hash1) both ways ? In-Reply-To: Message-ID: Atom, I think this is really a data structure issue. You could re-arrange so you have a single hash instead of two hashes: for $Check (keys %Tests) { if ($Tests{$Check}{Dirty}) { if ($Tests{$Check}{Clean}) { print "$Check : $Tests{$Check}{Dirty} dirty checks : $Tests{$Check}{Clean} clean checks" } else { print "$Check : $Tests{$Check}{Dirty} dirty checks" } } elsif ($Tests{$Check}{Clean}) { print "$Check : $Tests{$Check}{Clean} clean checks" } else { print "$Check : $Tests{$Check}{Dirty} dirty checks : $Tests{$Check}{Clean} clean checks" } } Thanks, Peter Darley -----Original Message----- From: spug-list-bounces+pdarley=kinesis-cem.com at pm.org [mailto:spug-list-bounces+pdarley=kinesis-cem.com at pm.org]On Behalf Of Atom Powers Sent: Friday, April 14, 2006 12:10 PM To: SPUG Members Subject: SPUG: Diff keys(%hast0) with keys(%hash1) both ways ? I some values/checks that could be "clean", "dirty", or both and I want to find out how often it is clean and/or dirty. $cleantests{$check} holds the number if times a check was clean, similarly $dirtytests{$check} is how many times a check was dirty. Again, a check could be "clean" 5 times a "dirty" 16 times, or whatever. I'm having problems finding the checks which are "clean" but not "dirty". I have: -- foreach my $check ( keys %dirtytests ) { if ($cleantests{$check}) { print DATA $check . ":" . $dirtytests{$check} . "_" . $cleantests{$check} . "\n"; } else { print DATA $check . ":" . $dirtytests{$check} . "_0\n"; } } -- But I also want to be able to do this for the $cleantests{$checks} which are not dirty. -- print DATA $check . ":0_" . $cleantests{$check} . "\n"; -- I could -- my @clean = keys(%cleantests); -- and somehow undef a check from the array when I am doing keys(%dirtytests), but I don't know if you can remove a value from an array without knowing it's index. I can't undef($cleantests{$check}) because I need to use those value later. -- -- Perfection is just a word I use occasionally with mustard. --Atom Powers-- _____________________________________________________________ Seattle Perl Users Group Mailing List POST TO: spug-list at pm.org SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list MEETINGS: 3rd Tuesdays WEB PAGE: http://seattleperl.org/ From iheffner at gmail.com Fri Apr 14 13:46:33 2006 From: iheffner at gmail.com (Ivan Heffner) Date: Fri, 14 Apr 2006 13:46:33 -0700 Subject: SPUG: Diff keys(%hast0) with keys(%hash1) both ways ? In-Reply-To: References: Message-ID: Why not just do this: for my $check ( keys %{ { %cleantests, %dirtytests } } ) { printf "%s:%d_%d\n", $check, $dirtytests{$check}||0, $cleantests{$check}||0; } or more compactly: printf "%s:%d_%d\n", $_, $dirtytests{$_}||0, $cleantests{$_}||0 for keys %{{%cleantests, %dirtytests}}; -- Ivan Heffner Sr. Software Engineer DAS Lead WhitePages.com From atom.powers at gmail.com Fri Apr 14 13:57:16 2006 From: atom.powers at gmail.com (Atom Powers) Date: Fri, 14 Apr 2006 13:57:16 -0700 Subject: SPUG: Diff keys(%hast0) with keys(%hash1) both ways ? In-Reply-To: References: Message-ID: This is why I love perl, there is an easy solution to everything. On 4/14/06, Ivan Heffner wrote: > Why not just do this: > > for my $check ( keys %{ { %cleantests, %dirtytests } } ) { > printf "%s:%d_%d\n", $check, $dirtytests{$check}||0, $cleantests{$check}||0; > } > Is there a longer way to write this out? I am pretty sure I understand what it means, but if it could be expanded more it would be easier to maintain later. -- -- Perfection is just a word I use occasionally with mustard. --Atom Powers-- From charles.e.derykus at boeing.com Fri Apr 14 15:23:10 2006 From: charles.e.derykus at boeing.com (DeRykus, Charles E) Date: Fri, 14 Apr 2006 15:23:10 -0700 Subject: SPUG: Diff keys(%hast0) with keys(%hash1) both ways ? In-Reply-To: Message-ID: Not as elegant but there's symmetry :) ... and warning-free execution. use List::MoreUtils qw/uniq/; foreach my $check ( uniq sort(keys %cleantests, keys %dirtytests) ) { my $clean = exists $cleantests{$check} ? $cleantests{$check} : 0; my $dirty = exists $dirtytests{$check} ? $dirtytests{$check} : 0; print "$check: clean=$clean dirty=$dirty\n"; } -- Charles DeRykus -----Original Message----- From: Atom Powers [mailto:atom.powers at gmail.com] Sent: Friday, April 14, 2006 12:10 PM To: SPUG Members Subject: SPUG: Diff keys(%hast0) with keys(%hash1) both ways ? I some values/checks that could be "clean", "dirty", or both and I want to find out how often it is clean and/or dirty. $cleantests{$check} holds the number if times a check was clean, similarly $dirtytests{$check} is how many times a check was dirty. Again, a check could be "clean" 5 times a "dirty" 16 times, or whatever. I'm having problems finding the checks which are "clean" but not "dirty". I have: -- foreach my $check ( keys %dirtytests ) { if ($cleantests{$check}) { print DATA $check . ":" . $dirtytests{$check} . "_" . $cleantests{$check} . "\n"; } else { print DATA $check . ":" . $dirtytests{$check} . "_0\n"; } } -- But I also want to be able to do this for the $cleantests{$checks} which are not dirty. -- print DATA $check . ":0_" . $cleantests{$check} . "\n"; -- I could -- my @clean = keys(%cleantests); -- and somehow undef a check from the array when I am doing keys(%dirtytests), but I don't know if you can remove a value from an array without knowing it's index. I can't undef($cleantests{$check}) because I need to use those value later. -- -- Perfection is just a word I use occasionally with mustard. --Atom Powers-- _____________________________________________________________ Seattle Perl Users Group Mailing List POST TO: spug-list at pm.org SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list MEETINGS: 3rd Tuesdays WEB PAGE: http://seattleperl.org/ From iheffner at gmail.com Fri Apr 14 16:55:43 2006 From: iheffner at gmail.com (Ivan Heffner) Date: Fri, 14 Apr 2006 16:55:43 -0700 Subject: SPUG: Diff keys(%hast0) with keys(%hash1) both ways ? In-Reply-To: References: Message-ID: # For Verbosity's Sake # Get a list of all tests were run my @tests = ( keys( %dirtytests ), keys( %cleantests ) ); # iterate over the tests, giving dirty / clean counts for each for my $test ( @tests) { my $dirty = $dirtytests{ $test } || 0; # avoid the warning my $clean = $cleantests{ $test } || 0; # avoid the warning # gives a line that looks like 'foo:0_0' printf "%s:%d_%d\n", $test, $dirty, $clean; } -- Ivan Heffner Sr. Software Engineer DAS Lead WhitePages.com From sbaylis at gmail.com Mon Apr 17 14:07:35 2006 From: sbaylis at gmail.com (Steve Baylis) Date: Mon, 17 Apr 2006 14:07:35 -0700 Subject: SPUG: Meeting Announcement -- Making Perl Faster -- 18 April 2006 In-Reply-To: References: Message-ID: Not that I want to discourage anyone from coming tomorrow, but you should be aware that the Chinese president will be staying across the street. Because of this, University St will be closed between 4th and 5th all day tomorrow. You will still be able to enter the building from 4th or 5th Avenue, just don't try to walk down University or you may find yourself talking to a guy holding a big gun. -Steve From kanderson at nwadmin.com Tue Apr 18 13:13:36 2006 From: kanderson at nwadmin.com (Kristi Anderson) Date: Tue, 18 Apr 2006 13:13:36 -0700 Subject: SPUG: spug-list Digest, Vol 34, Issue 5 Message-ID: Hu's on First? -----Original Message----- From: spug-list-bounces+kanderson=nwadmin.com at pm.org [mailto:spug-list-bounces+kanderson=nwadmin.com at pm.org] On Behalf Of spug-list-request at pm.org Sent: Tuesday, April 18, 2006 12:00 PM To: spug-list at pm.org Subject: spug-list Digest, Vol 34, Issue 5 Send spug-list mailing list submissions to spug-list at pm.org To subscribe or unsubscribe via the World Wide Web, visit http://mail.pm.org/mailman/listinfo/spug-list or, via email, send a message with subject or body 'help' to spug-list-request at pm.org You can reach the person managing the list at spug-list-owner at pm.org When replying, please edit your Subject line so it is more specific than "Re: Contents of spug-list digest..." Today's Topics: 1. Re: Meeting Announcement -- Making Perl Faster -- 18 April 2006 (Steve Baylis) ---------------------------------------------------------------------- Message: 1 Date: Mon, 17 Apr 2006 14:07:35 -0700 From: "Steve Baylis" Subject: Re: SPUG: Meeting Announcement -- Making Perl Faster -- 18 April 2006 To: "SPUG Members" Message-ID: Content-Type: text/plain; charset=ISO-8859-1 Not that I want to discourage anyone from coming tomorrow, but you should be aware that the Chinese president will be staying across the street. Because of this, University St will be closed between 4th and 5th all day tomorrow. You will still be able to enter the building from 4th or 5th Avenue, just don't try to walk down University or you may find yourself talking to a guy holding a big gun. -Steve ------------------------------ _______________________________________________ spug-list mailing list spug-list at pm.org http://mail.pm.org/mailman/listinfo/spug-list End of spug-list Digest, Vol 34, Issue 5 **************************************** ----------------------------------------------- < Disclaimer > ----------------------------------------------- Confidentiality Statement-This e-mail and any files transmitted with it are confidential and are intended solely for the use of the individual or entity to which they are addressed. This communication may contain material protected by HIPAA, ERISA, other federal or state law or the attorney-client privilege. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. You are instructed to destroy the message and notify Northwest Administrators by immediate reply that you have received this e-mail and any accompanying files in error. Please bring any questions you may have on this instruction to the attention of Northwest Administrators immediately. Northwest Administrators does not accept responsibility for changes to e-mails that occur after they have been sent. From mike206 at gmail.com Tue Apr 18 14:22:23 2006 From: mike206 at gmail.com (mike) Date: Tue, 18 Apr 2006 14:22:23 -0700 Subject: SPUG: Passing arguments to a code reference Message-ID: Hi there I've tried a few things, including using the PROTO in the sub declaration, but I cant seem to figure out how to pass some args to a code ref after the creation of the code ref This code ref is being passed to an object which would like to add a hashref to the argument list. This is in the perlsub documentation $subref = sub (PROTO) : ATTRS BLOCK; # with proto and attributes -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/spug-list/attachments/20060418/fc5c8425/attachment.html From cmeyer at helvella.org Tue Apr 18 14:44:22 2006 From: cmeyer at helvella.org (Colin Meyer) Date: Tue, 18 Apr 2006 14:44:22 -0700 Subject: SPUG: Passing arguments to a code reference In-Reply-To: References: Message-ID: <20060418214422.GA31881@funpox.helvella.org> On Tue, Apr 18, 2006 at 02:22:23PM -0700, mike wrote: > Hi there > > I've tried a few things, including using the PROTO in the sub declaration, > but I cant seem to figure out how to pass some args to a code ref after the > creation of the code ref > > This code ref is being passed to an object which would like to add a hashref > to the argument list. > > This is in the perlsub documentation > > $subref = sub (PROTO) : ATTRS BLOCK; # with proto and attributes Do you mean like this? my $printer = sub { my $arg = shift; print "$arg\n" }; $printer->( 'it works' ); -Colin. From rick.croote at philips.com Tue Apr 18 15:13:49 2006 From: rick.croote at philips.com (Rick Croote) Date: Tue, 18 Apr 2006 15:13:49 -0700 Subject: SPUG: Passing arguments to a code reference In-Reply-To: Message-ID: Try $subref->(parm1, parm2, ....) --- Rick Croote Software Engineer Environment and Tools Team Philips Medical Systems Bothell, WA Rick.Croote at Philips.com Phone: 425-487-7834 mike Sent by: spug-list-bounces+rick.croote=philips.com at pm.org 2006-04-18 02:22 PM To spug-list at pm.org cc Subject SPUG: Passing arguments to a code reference Classification Hi there I've tried a few things, including using the PROTO in the sub declaration, but I cant seem to figure out how to pass some args to a code ref after the creation of the code ref This code ref is being passed to an object which would like to add a hashref to the argument list. This is in the perlsub documentation $subref = sub (PROTO) : ATTRS BLOCK; # with proto and attributes _____________________________________________________________ Seattle Perl Users Group Mailing List POST TO: spug-list at pm.org SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list MEETINGS: 3rd Tuesdays WEB PAGE: http://seattleperl.org/ -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/spug-list/attachments/20060418/fa03bd38/attachment.html From jerry.gay at gmail.com Wed Apr 19 16:13:13 2006 From: jerry.gay at gmail.com (jerry gay) Date: Wed, 19 Apr 2006 16:13:13 -0700 Subject: SPUG: april 18 meeting followup Message-ID: <1d9a3f400604191613q2962cd8k99aacde825a189c9@mail.gmail.com> since andy wasn't at the meeting last night, i've written up some notes below. steve's "making perl faster" presentation was well presented, and very well received. he gave some real-world examples of how profiling, and benchmarking can, well, do what the title suggests. also presented were some tips and tricks, which you can use every day. sorry for all you folks who couldn't attend; i didn't take detailed notes. steve said he'll try to get approval for posting the slides, and i'm sure he'll let us know if they're made available. we don't have a speaker lined up for next month, and are looking for a victim. if nobody steps forward to give a long talk, perhaps we can do some lightning talks (5 minutes each, on a very focused topic.) i enjoy these, as they're easy to prepare, and fun to give. i'll happily present one or even two, if there are other spuggers interested in doing likewise. i mentioned that i've been trying to line up speakers for the summer months, inspired by stas's visit to seattle post-oscon last year. if everything comes through, it looks like we'll have a good couple months... here's the tentative plan: ~ audrey tang, creator of "pugs" topic: unknown, but related to perl 6 time: late june. she may not be available on the third tuesday, hopefully we can set a time and secure a location. ~ mark jason dominus, author of the upcoming book, "Perl Program Repair Shop and Red Flags" topic: results of refactoring the code spug gave him in advance, and lessons learned time: late august and these are still really tentative, but i'll know more in the coming weeks. ~ brian d foy, author of the upcoming book, "mastering perl" topic: unknown time: unknown, possibly pre- or post-oscon ~ chromatic, technical editor at o'reilly topic: unknown time: unknown that's all for now. ~jerry From muzzle at imdb.com Wed Apr 19 16:45:08 2006 From: muzzle at imdb.com (Murray Chapman) Date: Thu, 20 Apr 2006 00:45:08 +0100 (BST) Subject: SPUG: april 18 meeting followup In-Reply-To: <200604192338.k3JNcn615688@uk1.imdb.com> Message-ID: On Wed, 19 Apr 2006, H.B. Siegel wrote: > we don't have a speaker lined up for next month, and are looking for a > victim. if nobody steps forward to give a long talk, perhaps we can do some > lightning talks (5 minutes each, on a very focused topic.) i enjoy these, as Hi, I'm the manager of the technology team at IMDb, where we make extensive use of Perl. I'd be happy to give a presentation about our experiences. Cheers, Murray -- Murray Chapman Zheenl Punczna -- -- muzzle at imdb.com zhmmyr at vzqo.pbz -- -- Internet Movie Database Vagrearg Zbivr Qngnonfr -- -- http://www.imdb.com uggc://jjj.vzqo.pbz -- From sbaylis at gmail.com Thu Apr 20 08:37:20 2006 From: sbaylis at gmail.com (Steve Baylis) Date: Thu, 20 Apr 2006 08:37:20 -0700 Subject: SPUG: april 18 meeting followup In-Reply-To: <1d9a3f400604191613q2962cd8k99aacde825a189c9@mail.gmail.com> References: <1d9a3f400604191613q2962cd8k99aacde825a189c9@mail.gmail.com> Message-ID: Thanks for everyone who attended the talk the other night. I had a lot of fun preparing and presenting, hopefully you all had fun listening to me. The slides are available online at: http://images.whitepages.com/perl/Making%20Perl%20Faster.pdf -Steve From chris.raplee at gmail.com Thu Apr 20 12:21:34 2006 From: chris.raplee at gmail.com (Chris Raplee) Date: Thu, 20 Apr 2006 12:21:34 -0700 Subject: SPUG: Next meeting? Message-ID: First, I'd like to introduce myself. My name is Chris and I'm a developer for a Seattle medical company, and have been developing in Perl for the last seven years. One day I'll be a wizard, but... "I am only an egg" and I still find that the more I learn the less I know. I'd like to come to the next meeting -- but to do that I need to know when it is. The seattleperl.org website says it's going to have been in March of 2006. Sadly my time machine is on the blink again so I don't think I will have been there (and to avoid temporal discontinuity if you saw me there please don't tell me). Thanks, Chris PS: ...the wiki appears to get hammered nonstop by some spambots... -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/spug-list/attachments/20060420/6ce6c741/attachment.html From cos at indeterminate.net Thu Apr 20 12:56:03 2006 From: cos at indeterminate.net (John Costello) Date: Thu, 20 Apr 2006 12:56:03 -0700 (PDT) Subject: SPUG: Next meeting? In-Reply-To: Message-ID: On Thu, 20 Apr 2006, Chris Raplee wrote: > I'd like to come to the next meeting -- but to do that I need to know when It is the third Tuesday of the month, which means that the next meeting will be May 16. > Thanks, > Chris You're welcome. ----- From tim at consultix-inc.com Thu Apr 20 13:40:37 2006 From: tim at consultix-inc.com (Tim Maher) Date: Thu, 20 Apr 2006 13:40:37 -0700 Subject: SPUG: OT: Discounts on Seattle F/OSS Classes Message-ID: <20060420204037.GB23949@jumpy.consultix-inc.com> From: Tim Maher, Consultix Re: UNIX, Linux & Perl Classes in Seattle We're offering several classes on UNIX, Linux, and Perl topics in Seattle in the upcoming months. As a friendly gesture to the F/OSS community, we'll give readers of this list twice the normal discount (i.e., 12% off list price) when they register and pay by 4/28. To qualify, just forward your copy of this message to sales at consultix-inc.com. Brief descriptions of the scheduled classes are provided at: http://consultix-inc.com/sched.html -------------------------------------------------- Consultix Class Schedule, Seattle May-July 2006* -------------------------------------------------- NORMAL NAME OF DATES DAYS DISCOUNT CLASS ENDS Perl Programming 5/15-5/17 3 4/14 Perl Modules, plus CGI 5/18-5/19 1.5 4/14 Shell Programming** 6/12-6/14 3 5/12 UNIX/Linux Utilities 6/15-6/16 2 5/12 Perl Hashes & Arrays 7/17 1 6/16 Intermediate Perl 7/18-7/20 3 6/16 -------------------------------------------------- * We can also provide on-site classes for corporate clients, as well as individual tutoring. ** Covers Bourne, Korn, Bash, and POSIX shells. PRICES AND REGISTRATION Information on the registration process and class prices can be found at http://www.consultix-inc.com/register.html On-line registration is open. QUESTIONS? Let me know if you have any questions, -Tim Maher P.S. For groups of 3 or more students from the same company, ask about "on-site" classes! ************************************************************ CONSULTIX ON-LINE RESOURCES General Information: http://www.consultix-inc.com Minimal Perl book's web site, for info and ordering: http://manning.com/Maher On-Site Training: http://www.consultix-inc.com/on-site.html Course Listings: Perl, http://TeachMePerl.com/perllist.html UNIX/Shell, http://TeachMeUnix.com/unixlist.html Class Prices and Registration: http://www.consultix-inc.com/reg.txt http://www.consultix-inc.com/cgibin/register.cgi Instructor Evaluations: http://www.consultix-inc.com/evals.html Course Evaluations: http://www.consultix-inc.com/course_evals.html *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX (866) DOC-PERL (866) DOC-UNIX | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-* | Watch for my upcoming book: "Minimal Perl for UNIX/Linux People" | | See MinimalPerl.com for details, ordering, and email-list signup | *-------------------------------------------------------------------* From howard007 at gmail.com Thu Apr 20 20:19:24 2006 From: howard007 at gmail.com (Howard W) Date: Thu, 20 Apr 2006 20:19:24 -0700 Subject: SPUG: contract-to-hire QA engineer in Seattle In-Reply-To: References: Message-ID: > Hello, > > We are looking for a QA Engineer with experience with LDAP and Active > Directory to take on a special project. If you know Perl, that will be a > huge plus. There is potential for the position to transition to an > employee. > > *Responsibilities: * > > - Test planning and case development for product features. > - Test case execution and maintenance for assigned product areas. > - Creating and executing automated tests > - Documentation of test case steps and actual results. > - Documentation of bugs with steps to reproduction, expected and > actual results. > > *Requirements: * > > - Experience with LDAP and Active Directory services > - Minimum three years of test case design and execution > - Understanding of QA methodologies and procedures > - Proficiency in Perl and Python a plus > - Experience with Unix and Windows environments > - Quick starter > > If interested, please send me the resume. > > Thanks, > > -- > Howard W > > Blestone LLC > howardw at blestone.com > URL: http://www.blestone.com > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/spug-list/attachments/20060420/bcbd1015/attachment.html From ghawk at eskimo.com Thu Apr 20 23:10:30 2006 From: ghawk at eskimo.com (Gary Hawkins) Date: Thu, 20 Apr 2006 23:10:30 -0700 Subject: SPUG: april 18 meeting followup In-Reply-To: Message-ID: <01b801c6650a$4bb5ecd0$0101a8c0@GARYHA> Clear, interesting, informative presentation, and I learned several things (including a clearer picture of what I did or didn't already know, very helpful). Appreciate your time in putting that together. Gary > -----Original Message----- > From: spug-list-bounces+ghawk=eskimo.com at pm.org [mailto:spug-list- > bounces+ghawk=eskimo.com at pm.org] On Behalf Of Steve Baylis > Sent: Thursday, April 20, 2006 8:37 AM > To: Seattle Perl Users Group > Subject: Re: SPUG: april 18 meeting followup > > Thanks for everyone who attended the talk the other night. I had a > lot of fun preparing and presenting, hopefully you all had fun > listening to me. > > The slides are available online at: > http://images.whitepages.com/perl/Making%20Perl%20Faster.pdf > > -Steve > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ From tim at consultix-inc.com Wed Apr 26 22:00:45 2006 From: tim at consultix-inc.com (Tim Maher) Date: Wed, 26 Apr 2006 22:00:45 -0700 Subject: SPUG: Tim teaching Perl and Shell @ LinuxFest NW Message-ID: <20060427050045.GA7300@jumpy.consultix-inc.com> From: Tim Maher, Consultix Re: LinuxFest Northwest Presentation and Raffle FYI, I'll be presenting excerpts from my upcoming "Perl Programming" and "UNIX/Linux Utilities" classes at LinuxFest Northwest this Saturday in Bellingham (see http://lfnw.org). What's more, coupons good for a 30% discount on our May and June courses will be raffled off, so that four people will be able to save as much as $420 on Perl or UNIX/Linux training for the price of a $1 raffle ticket! Here's the blurb for my 90-minute talk, which is currently scheduled for 2:30pm: Essential Utilities for UNIX/Linux Users Tim Maher, Consultix tim at consultix-inc.com http://www.TeachMeLinux.com UNIX and Linux systems come with hundreds of useful utility programs, and using them effectively can increase a user's efficiency and productivity. This talk shows practical uses of the most essential utility programs, such as: cat, ls, grep, egrep, sed, awk, sort, head, tail, od, dd, find, xargs, touch, strings, diff, comm, and perl. UNIX/Linux users interested in learning what can be done from the shell's command line can benefit from attending this presentation, which features excerpts from the workbooks of our corporate training classes. And here's our current class schedule: -------------------------------------------------- Consultix Class Schedule, Seattle March-July 2006* -------------------------------------------------- NAME OF DATES DAYS CLASS Perl Programming 5/15-5/17 3 Perl Modules, plus CGI 5/18-5/19 1.5 Shell Programming 6/12-6/14 3 UNIX/Linux Utilities 6/15-6/16 2 Perl Hashes & Arrays 7/17 1 Intermediate Perl 7/18-7/20 3 -------------------------------------------------- * We can also provide on-site classes for corporate clients, as well as individual tutoring. Brief descriptions of the scheduled classes are provided at: http://consultix-inc.com/sched.html PRICES AND REGISTRATION Information on the registration process and class prices can be found at http://www.consultix-inc.com/register.html On-line registration is open. QUESTIONS? Let me know if you have any questions, -Tim Maher P.S. For groups of 3 or more students from the same company, ask about "on-site" classes! ************************************************************ CONSULTIX ON-LINE RESOURCES General Information: http://www.consultix-inc.com Minimal Perl book's web site, for info and ordering: http://manning.com/Maher On-Site Training: http://www.consultix-inc.com/on-site.html Course Listings: Perl, http://TeachMePerl.com/perllist.html UNIX/Shell, http://TeachMeUnix.com/unixlist.html Class Prices and Registration: http://www.consultix-inc.com/reg.txt http://www.consultix-inc.com/cgibin/register.cgi Instructor Evaluations: http://www.consultix-inc.com/evals.html Course Evaluations: http://www.consultix-inc.com/course_evals.html *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX (866) DOC-PERL (866) DOC-UNIX | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-* | Watch for my upcoming book: "Minimal Perl for UNIX/Linux People" | | See MinimalPerl.com for details, ordering, and email-list signup | *-------------------------------------------------------------------* From lmzaldivar at gmail.com Thu Apr 27 10:33:37 2006 From: lmzaldivar at gmail.com (luis medrano) Date: Thu, 27 Apr 2006 10:33:37 -0700 Subject: SPUG: problems installing DateTime module Message-ID: <50aeae6f0604271033wd214f7fua19f190a7065c28@mail.gmail.com> List, I have tryed to install the Date::Time module but I have this error: Running make install Already tried without success Running make for D/DR/DROLSKY/DateTime-0.30.tar.gz Is already unwrapped into directory /home/admin/.cpan/build/DateTime-0.30 Has already been processed within this session Running make test Can't test without successful make Running make install make had returned bad status, install seems impossible Any ideas how can I install the module? Thanks, Luis From paul at goracke.org Thu Apr 27 12:35:48 2006 From: paul at goracke.org (Paul Goracke) Date: Thu, 27 Apr 2006 12:35:48 -0700 Subject: SPUG: problems installing DateTime module In-Reply-To: <50aeae6f0604271033wd214f7fua19f190a7065c28@mail.gmail.com> References: <50aeae6f0604271033wd214f7fua19f190a7065c28@mail.gmail.com> Message-ID: <200604271235.48783.paul@goracke.org> luis medrano wrote: > I have tryed to install the Date::Time module but I have this error: These are CPAN's "I failed once, I'm not going to try again" messages, which don't help much for troubleshooting. To get it to try building again, have CPAN "clean Date::Time" then try "install Date::Time" again and send us those errors if install still fails. pg From charles.e.derykus at boeing.com Thu Apr 27 16:30:39 2006 From: charles.e.derykus at boeing.com (DeRykus, Charles E) Date: Thu, 27 Apr 2006 16:30:39 -0700 Subject: SPUG: problems installing DateTime module In-Reply-To: <50aeae6f0604271033wd214f7fua19f190a7065c28@mail.gmail.com> Message-ID: You'll need to figure out why `make` choked. You could delete the build directory and redo the install drill ( perl Makefile.PL; make; make test; make install) Or, just `make clean` and retry the install drill. One useful technique to capture errors is to tee the drill output: make 2>&1 | tee make.log Then check the log for any warnings and/or errors/abnormalities. This'll at least tell you when things started to go south. hth, -- Charles DeRykus -----Original Message----- From: luis medrano [mailto:lmzaldivar at gmail.com] Sent: Thursday, April 27, 2006 10:34 AM To: spug-list at pm.org Subject: SPUG: problems installing DateTime module List, I have tryed to install the Date::Time module but I have this error: Running make install Already tried without success Running make for D/DR/DROLSKY/DateTime-0.30.tar.gz Is already unwrapped into directory /home/admin/.cpan/build/DateTime-0.30 Has already been processed within this session Running make test Can't test without successful make Running make install make had returned bad status, install seems impossible Any ideas how can I install the module? Thanks, Luis _____________________________________________________________ Seattle Perl Users Group Mailing List POST TO: spug-list at pm.org SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list MEETINGS: 3rd Tuesdays WEB PAGE: http://seattleperl.org/ From charles.e.derykus at boeing.com Thu Apr 27 16:54:41 2006 From: charles.e.derykus at boeing.com (DeRykus, Charles E) Date: Thu, 27 Apr 2006 16:54:41 -0700 Subject: SPUG: problems installing DateTime module In-Reply-To: Message-ID: > You could delete the build directory and redo the install drill > ( > perl Makefile.PL; make; make test; make install) I wasn't reading carefully enough. Since it appears you're using CPAN.pm to install, easiest would be simply to reinstall with CPAN and capture errors: perl -MCPAN -e 'shell' | tee install.log Or, you could `cd` into the CPAN build directory and try manually installing while capturing output with `tee`. > One useful technique to capture errors is to tee the drill > output: > make 2>&1 | tee make.log > Then check the log for any warnings and/or errors/abnormalities. > This'll at least tell you when things started to go south. hth, -- Charles DeRykus -----Original Message----- From: luis medrano [mailto:lmzaldivar at gmail.com] Sent: Thursday, April 27, 2006 10:34 AM To: spug-list at pm.org Subject: SPUG: problems installing DateTime module List, I have tryed to install the Date::Time module but I have this error: Running make install Already tried without success Running make for D/DR/DROLSKY/DateTime-0.30.tar.gz Is already unwrapped into directory /home/admin/.cpan/build/DateTime-0.30 Has already been processed within this session Running make test Can't test without successful make Running make install make had returned bad status, install seems impossible Any ideas how can I install the module? Thanks, Luis _____________________________________________________________ Seattle Perl Users Group Mailing List POST TO: spug-list at pm.org SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list MEETINGS: 3rd Tuesdays WEB PAGE: http://seattleperl.org/ _____________________________________________________________ Seattle Perl Users Group Mailing List POST TO: spug-list at pm.org SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list MEETINGS: 3rd Tuesdays WEB PAGE: http://seattleperl.org/