From amoore at mooresystems.com Wed May 2 08:32:42 2007 From: amoore at mooresystems.com (Andrew Moore) Date: Wed, 2 May 2007 10:32:42 -0500 Subject: [Kc] user group discount to OSCON In-Reply-To: References: <20070502143630.GA22169@mooresystems.com> Message-ID: <20070502153242.GB22460@mooresystems.com> Howdy - In case you're thinking of heading to OSCON this year in Portland, you can use the following discount information available to pm.org groups: On Wed, May 02, 2007 at 07:35:16AM -0700, Marsee Henon wrote: > Registration is now open for OSCON 2007, Portland, OR --July 23-27 > Use code "os07dsug" when you register, and receive 15% off > the registration price. > > To register for the conference, go to: > > > --Marsee This discount comes courtesy of the O'Reilly User Group & Professional Association Program . I'll try to get kc.pm.org signed up with them so that we can enjoy the other benefits of the association. I'm interested in talking to anyone heading to Houston for YAPC or Portland for OSCON. I'll try to make it to the May 8th meeting. -Andy From davidnicol at gmail.com Mon May 7 17:36:16 2007 From: davidnicol at gmail.com (David Nicol) Date: Mon, 7 May 2007 19:36:16 -0500 Subject: [Kc] complex initialization of a state variable in current perl (5.8.7) Message-ID: <934f64a20705071736j2a854889qff6f9b9bba35d870@mail.gmail.com> sub foo{ my $hr if 0; BEGIN{ $hr = {foo => 23} } print $hr->{foo},"\n"; }; defined $hr and die "$hr is defined outside of scope"; foo(); # yes indeedy-doo, prints "23\n" -- practical solutions to systemic problems From don.ellis at gmail.com Tue May 8 07:56:28 2007 From: don.ellis at gmail.com (Don Ellis) Date: Tue, 8 May 2007 09:56:28 -0500 Subject: [Kc] complex initialization of a state variable in current perl (5.8.7) In-Reply-To: <934f64a20705071736j2a854889qff6f9b9bba35d870@mail.gmail.com> References: <934f64a20705071736j2a854889qff6f9b9bba35d870@mail.gmail.com> Message-ID: It is so cool to be able to just paste this into a BBEdit text window and then select "Run" from the #! menu! And, no need to save or name a file or anything! MacOS X Rocks! [How come I still get excited, even after having done it this way for years? Of course, having to put up with Win* contributes.] --Don Ellis I tend to think of [Mac] OS X as Linux with QA and Taste. -James Gosling, Java Architect On May 7, 2007, at 7:36 PM, David Nicol wrote: > sub foo{ > my $hr if 0; > BEGIN{ > $hr = {foo => 23} > } > print $hr->{foo},"\n"; > }; > defined $hr and die "$hr is defined outside of scope"; > foo(); # yes indeedy-doo, prints "23\n" From don.ellis at gmail.com Tue May 8 07:56:28 2007 From: don.ellis at gmail.com (Don Ellis) Date: Tue, 8 May 2007 09:56:28 -0500 Subject: [Kc] complex initialization of a state variable in current perl (5.8.7) In-Reply-To: <934f64a20705071736j2a854889qff6f9b9bba35d870@mail.gmail.com> References: <934f64a20705071736j2a854889qff6f9b9bba35d870@mail.gmail.com> Message-ID: It is so cool to be able to just paste this into a BBEdit text window and then select "Run" from the #! menu! And, no need to save or name a file or anything! MacOS X Rocks! [How come I still get excited, even after having done it this way for years? Of course, having to put up with Win* contributes.] --Don Ellis I tend to think of [Mac] OS X as Linux with QA and Taste. -James Gosling, Java Architect On May 7, 2007, at 7:36 PM, David Nicol wrote: > sub foo{ > my $hr if 0; > BEGIN{ > $hr = {foo => 23} > } > print $hr->{foo},"\n"; > }; > defined $hr and die "$hr is defined outside of scope"; > foo(); # yes indeedy-doo, prints "23\n" From amoore at mooresystems.com Tue May 8 11:11:17 2007 From: amoore at mooresystems.com (Andrew Moore) Date: Tue, 8 May 2007 13:11:17 -0500 Subject: [Kc] May Perl Mongers meeting tonight Message-ID: <20070508181117.GB16101@mooresystems.com> It's the 2nd Tuesday in May, so we'd better think about having a perl mongers' meeting tonight. The mailing list has been pretty quiet recently, so I'm not sure if we have too many topics at hand. If you have any suggestions, please speak up. Or, just come on by. As always, we'll be at Planet Sub at 51st and Main at 7pm. See you there! -Andy From djgoku at gmail.com Tue May 8 12:19:45 2007 From: djgoku at gmail.com (djgoku) Date: Tue, 8 May 2007 14:19:45 -0500 Subject: [Kc] May Perl Mongers meeting tonight In-Reply-To: <99dd19c90705081219j1e4d6606n161ae15cde11f647@mail.gmail.com> References: <20070508181117.GB16101@mooresystems.com> <99dd19c90705081219j1e4d6606n161ae15cde11f647@mail.gmail.com> Message-ID: <99dd19c90705081219y522a2054j35858c1c8cadc02@mail.gmail.com> On 5/8/07, Andrew Moore wrote: > > It's the 2nd Tuesday in May, so we'd better think about having a perl > mongers' meeting tonight. The mailing list has been pretty quiet > recently, so I'm not sure if we have too many topics at hand. If you > have any suggestions, please speak up. Or, just come on by. > > As always, we'll be at Planet Sub at 51st and Main at 7pm. I will be there tonight. From djgoku at gmail.com Tue May 8 12:19:45 2007 From: djgoku at gmail.com (djgoku) Date: Tue, 8 May 2007 14:19:45 -0500 Subject: [Kc] May Perl Mongers meeting tonight In-Reply-To: <99dd19c90705081219j1e4d6606n161ae15cde11f647@mail.gmail.com> References: <20070508181117.GB16101@mooresystems.com> <99dd19c90705081219j1e4d6606n161ae15cde11f647@mail.gmail.com> Message-ID: <99dd19c90705081219y522a2054j35858c1c8cadc02@mail.gmail.com> On 5/8/07, Andrew Moore wrote: > > It's the 2nd Tuesday in May, so we'd better think about having a perl > mongers' meeting tonight. The mailing list has been pretty quiet > recently, so I'm not sure if we have too many topics at hand. If you > have any suggestions, please speak up. Or, just come on by. > > As always, we'll be at Planet Sub at 51st and Main at 7pm. I will be there tonight. From don.ellis at gmail.com Tue May 8 13:54:40 2007 From: don.ellis at gmail.com (Don Ellis) Date: Tue, 8 May 2007 15:54:40 -0500 Subject: [Kc] May Perl Mongers meeting tonight In-Reply-To: <99dd19c90705081219y522a2054j35858c1c8cadc02@mail.gmail.com> References: <20070508181117.GB16101@mooresystems.com> <99dd19c90705081219j1e4d6606n161ae15cde11f647@mail.gmail.com> <99dd19c90705081219y522a2054j35858c1c8cadc02@mail.gmail.com> Message-ID: I plan to be there too. --Don Ellis On May 8, 2007, at 2:19 PM, djgoku wrote: > On 5/8/07, Andrew Moore wrote: >> >> It's the 2nd Tuesday in May, so we'd better think about having a perl >> mongers' meeting tonight. The mailing list has been pretty quiet >> recently, so I'm not sure if we have too many topics at hand. If you >> have any suggestions, please speak up. Or, just come on by. >> >> As always, we'll be at Planet Sub at 51st and Main at 7pm. > > I will be there tonight. > _______________________________________________ > kc mailing list > kc at pm.org > http://mail.pm.org/mailman/listinfo/kc From ggoebel at goebel.ws Tue May 8 19:10:56 2007 From: ggoebel at goebel.ws (Garrett Goebel) Date: Tue, 8 May 2007 21:10:56 -0500 Subject: [Kc] complex initialization of a state variable in current perl (5.8.7) In-Reply-To: References: <934f64a20705071736j2a854889qff6f9b9bba35d870@mail.gmail.com> Message-ID: <5EE4DBD9-E4B9-439D-9A45-02C363DECE50@goebel.ws> > use strict; > >>> sub foo{ >>> my $hr if 0; >>> BEGIN{ >>> $hr = {foo => 23} >>> } >>> print $hr->{foo},"\n"; >>> }; >>> defined $hr and die "$hr is defined outside of scope"; >>> foo(); # yes indeedy-doo, prints "23\n" gives: > Global symbol "$hr" requires explicit package name at foo.pl line 11. > Global symbol "$hr" requires explicit package name at foo.pl line 11. > Execution of foo.pl aborted due to compilation errors. cheers, Garrett From amoore at mooresystems.com Wed May 9 06:47:25 2007 From: amoore at mooresystems.com (Andrew Moore) Date: Wed, 9 May 2007 08:47:25 -0500 Subject: [Kc] May Perl Mongers meeting tonight In-Reply-To: <20070508181117.GB16101@mooresystems.com> References: <20070508181117.GB16101@mooresystems.com> Message-ID: <20070509134725.GA19529@mooresystems.com> On Tue, May 08, 2007 at 01:11:17PM -0500, Andrew Moore wrote: > > It's the 2nd Tuesday in May, so we'd better think about having a perl > mongers' meeting tonight. Good meeting last night. Jonathan, Don, Stephen, and I chatted for a while, even though we couldn't gather in the "Elvis Room" or the "Other Room". After leafing through the Perl Review, Jonathan asked about testing and Perl::Critic, so Don and I got to spend some time explaining some of the virues of test-driven development and regression testing and such. Perhaps one of us should prepare a more formal introduction to that topic. It seems to come up every 2 or 3 meetings. I ducked out a bit early, so I'm not sure if I missed any other interesting topics. Next month we'll have to see if anyone destined for the Houston YAPC shows up. -Andy From davidnicol at gmail.com Wed May 9 09:21:03 2007 From: davidnicol at gmail.com (David Nicol) Date: Wed, 9 May 2007 11:21:03 -0500 Subject: [Kc] complex initialization of a state variable in current perl (5.8.7) In-Reply-To: <5EE4DBD9-E4B9-439D-9A45-02C363DECE50@goebel.ws> References: <934f64a20705071736j2a854889qff6f9b9bba35d870@mail.gmail.com> <5EE4DBD9-E4B9-439D-9A45-02C363DECE50@goebel.ws> Message-ID: <934f64a20705090921v7742d3x71908bb59c90cff3@mail.gmail.com> On 5/8/07, Garrett Goebel wrote: > > use strict; > > > >>> defined $hr and die "$hr is defined outside of scope"; > gives: > > Global symbol "$hr" requires explicit package name at foo.pl line 11. > > Global symbol "$hr" requires explicit package name at foo.pl line 11. > > Execution of foo.pl aborted due to compilation errors. > > cheers, > > Garrett line 11 was the verification that $hr wasn't leaking outside the scope, so it is well and good and not a problem with the approach that turning stricture on caught it. calling foo multiple times will verify that $hr is a state variable. Here it is again, with a demonstration of the different timing of INIT and BEGIN. sub foo{ my $x if 0; INIT{ $x = 23 } @_ and $x = shift; print $x,"\n"; }; BEGIN {foo(); foo(1); foo()} foo(); foo(22); foo(); foo('cheese'); foo(); What I'm working towards here is talking about creating a ONCE block, which would evaluate once the first time the code path passes by it and then optimize itself away, like the /o regex modifier, which would be more appropriate for use in initializing state variables than any of the timing blocks. Of course there's always my $guard if 0; unless($guard++ ){ ... once block goes here ...} but that doesn't optimize itself out (and it will run the block again every four billion times or so, or something, depending on how infinity gets handled, and what the truth of +Inf of NaN or whatever it is is) -- practical solutions to systemic problems From amoore at mooresystems.com Wed May 9 09:52:47 2007 From: amoore at mooresystems.com (Andrew Moore) Date: Wed, 9 May 2007 11:52:47 -0500 Subject: [Kc] complex initialization of a state variable in current perl (5.8.7) In-Reply-To: <934f64a20705071736j2a854889qff6f9b9bba35d870@mail.gmail.com> References: <934f64a20705071736j2a854889qff6f9b9bba35d870@mail.gmail.com> Message-ID: <20070509165247.GA20782@mooresystems.com> On Mon, May 07, 2007 at 07:36:16PM -0500, David Nicol wrote: > sub foo{ > my $hr if 0; > BEGIN{ > $hr = {foo => 23} > } > print $hr->{foo},"\n"; > }; > defined $hr and die "$hr is defined outside of scope"; > foo(); # yes indeedy-doo, prints "23\n" I'm not sure I get your point here, David. Are you saying that this is a bug, or unexpected, or undocumented, or something? I guess I agree that it is complex, at least. -Andy From ggoebel at goebel.ws Wed May 9 17:21:37 2007 From: ggoebel at goebel.ws (Garrett Goebel) Date: Wed, 9 May 2007 19:21:37 -0500 Subject: [Kc] May Perl Mongers meeting tonight In-Reply-To: <20070509134725.GA19529@mooresystems.com> References: <20070508181117.GB16101@mooresystems.com> <20070509134725.GA19529@mooresystems.com> Message-ID: <6C790F71-9748-45A4-9630-477A10137809@goebel.ws> I've missed kcpm meetings for a while now. My wife has taken a job at the CDC in Atlanta, GA. She moved down back in February with our 2 youngest children while I've stuck around waiting for school to let out for our 2 older kids. At the beginning of June I too will be moving to Atlanta. I was hoping I could make the June meeting, but I don't think it is going to happen. I will however continue to watch and participate on the mailing list. Our irregular meetings over the years have been a lot of fun. I will miss them. There is something to be said for sharing physical space and good conversations over a beer with good people who share a common passion. cheers, Garrett On May 9, 2007, at 8:47 AM, Andrew Moore wrote: > > > On Tue, May 08, 2007 at 01:11:17PM -0500, Andrew Moore wrote: >> >> It's the 2nd Tuesday in May, so we'd better think about having a perl >> mongers' meeting tonight. > > > Good meeting last night. Jonathan, Don, Stephen, and I chatted for a > while, even though we couldn't gather in the "Elvis Room" or the > "Other Room". > > After leafing through the Perl Review, Jonathan asked about testing > and Perl::Critic, so Don and I got to spend some time explaining some > of the virues of test-driven development and regression testing and > such. Perhaps one of us should prepare a more formal introduction to > that topic. It seems to come up every 2 or 3 meetings. > > I ducked out a bit early, so I'm not sure if I missed any other > interesting topics. > > Next month we'll have to see if anyone destined for the Houston YAPC > shows up. > > -Andy > > _______________________________________________ > kc mailing list > kc at pm.org > http://mail.pm.org/mailman/listinfo/kc > From djgoku at gmail.com Thu May 10 13:41:15 2007 From: djgoku at gmail.com (djgoku) Date: Thu, 10 May 2007 15:41:15 -0500 Subject: [Kc] Create Windows Service for Perl Program Message-ID: <99dd19c90705101341v6eb8732bl208fde58a75038ba@mail.gmail.com> I found this very useful today (original link: http://tinyurl.com/yrnctw): Here are some generalized instructions that I use all the time to setup Perl scripts as services under Windows NT 4.0, 2000, XP, and 2003: Copy the INSTSRV.EXE and SRVANY.EXE files to C:\WINNT\SYSTEM32. Run: INSTSRV Service_Name C:\WINNT\SYSTEM32\SRVANY.EXE (This registers the service.) Service_name Set the "Logon As" to Local System Account in the service properties. Run: REGEDIT Follow the chain: HKEY_LOCAL_MACHINE SYSTEM CurrentControlSet Services Service_Name Add the KEY: Parameters Select (highlight) Parameters Add the String Value: Application String: C:\PERL\bin\perl.exe ( your path to the perl.exe program ) Add the String Value: AppParameters String: C:\some_dir\perl_script.pl ( your path to the perl script to be run ) Exit the Registry Editor. Start the Service_Name service. In the event that you want to remove the Service_Name service, stop the service and run: INSTSRV Service_Name REMOVE I noticed that there were also a couple articles on Perl Monks, but that seemed more on the programming side instead of creating a service. The instsrv.exe and srvany.exe can be had by downloading windows 2003 server resource kit, though might be other ways. Jonathan From davidnicol at gmail.com Thu May 10 16:14:04 2007 From: davidnicol at gmail.com (David Nicol) Date: Thu, 10 May 2007 18:14:04 -0500 Subject: [Kc] clearer way to declare and initialize state variable Message-ID: <934f64a20705101614r21ed2ccy6dc21427fc39bd90@mail.gmail.com> my $SCC if 0; INIT{$SCC=0}; From darylvf at gmail.com Mon May 14 07:41:17 2007 From: darylvf at gmail.com (Daryl Fallin) Date: Mon, 14 May 2007 09:41:17 -0500 Subject: [Kc] Accessing Windows Registry remotely with Perl Message-ID: Does anyone know if there is a way to connect to a remote windows system and pull registry entries using Perl? It looked like Win32API::Registry was going to be a way to do this but it appears to be only accessing the local systems Registry. Thanks - daryl -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/kc/attachments/20070514/ad3ae24e/attachment.html From frank at wiles.org Mon May 14 07:43:00 2007 From: frank at wiles.org (Frank Wiles) Date: Mon, 14 May 2007 09:43:00 -0500 Subject: [Kc] Accessing Windows Registry remotely with Perl In-Reply-To: References: Message-ID: <20070514094300.8b86043b.frank@wiles.org> On Mon, 14 May 2007 09:41:17 -0500 "Daryl Fallin" wrote: > Does anyone know if there is a way to connect to a remote windows > system and pull registry entries using Perl? > > It looked like Win32API::Registry was going to be a way to do this > but it appears to be only accessing the local systems Registry. I'm not a Windows user, but I seriously doubt this is possible as it would be a huge gaping hole for security problems. --------------------------------- Frank Wiles http://www.wiles.org --------------------------------- From jimsissel at yahoo.com Mon May 14 08:04:08 2007 From: jimsissel at yahoo.com (James Sissel) Date: Mon, 14 May 2007 08:04:08 -0700 (PDT) Subject: [Kc] Accessing Windows Registry remotely with Perl In-Reply-To: <20070514094300.8b86043b.frank@wiles.org> Message-ID: <859645.45588.qm@web30102.mail.mud.yahoo.com> But don't you realize that's what Winblows is? A huge gaping hole for security problems? I'm not a Windows user, but I seriously doubt this is possible as it would be a huge gaping hole for security problems. -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/kc/attachments/20070514/effcb96c/attachment.html From djgoku at gmail.com Mon May 14 08:09:40 2007 From: djgoku at gmail.com (djgoku) Date: Mon, 14 May 2007 10:09:40 -0500 Subject: [Kc] Accessing Windows Registry remotely with Perl In-Reply-To: References: Message-ID: <99dd19c90705140809t129ad960m8cef7ea23f3433ae@mail.gmail.com> On 5/14/07, Daryl Fallin wrote: > Does anyone know if there is a way to connect to a remote windows system and > pull registry entries using Perl? > > It looked like Win32API::Registry was going to be a way to do this but it > appears to be only accessing the local systems Registry. http://search.cpan.org/~adamk/Win32-TieRegistry-0.25/TieRegistry.pm Is what you want I think =). This has a little example of how to connect to a remote machine. I haven't tired it yet though I will be hopefully soon. >From TieRegistry.pm: Remote machines If the hash is tied to the virtual root of the registry [or the virtual root of a remote machine's registry], then we treat hash key strings which start with the delimiter character specially. If the hash key string starts with two delimiters in a row, then those should be immediately followed by the name of a remote machine whose registry we wish to connect to. That can be followed by a delimiter and more subkey names, etc. If the machine name is not following by anything, then a virtual root for the remote machine's registry is created, a hash is tied to it, and a reference to that hash it is returned. From scratchcomputing at gmail.com Mon May 14 08:55:58 2007 From: scratchcomputing at gmail.com (Eric Wilhelm) Date: Mon, 14 May 2007 08:55:58 -0700 Subject: [Kc] Accessing Windows Registry remotely with Perl In-Reply-To: <20070514094300.8b86043b.frank@wiles.org> References: <20070514094300.8b86043b.frank@wiles.org> Message-ID: <200705140855.58494.ewilhelm@cpan.org> # from Frank Wiles # on Monday 14 May 2007 07:43 am: >> It looked like Win32API::Registry was going to be a way to do this >> but it appears to be only accessing the local systems Registry. > >? ?I'm not a Windows user, but I seriously doubt this is possible as > it would be a huge gaping hole for security problems. The rule of thumb for qdos is generally that if it is a security hole or bad idea, it is easy to do and well-documented (though, they probably don't mention the hole.) If you want it to do anything correctly, that is generally not possible. --Eric -- I eat your socks and you pay me. --The business sense of a very small goat. --------------------------------------------------- http://scratchcomputing.com --------------------------------------------------- From ggoebel at goebel.ws Tue May 15 17:51:19 2007 From: ggoebel at goebel.ws (Garrett Goebel) Date: Tue, 15 May 2007 19:51:19 -0500 Subject: [Kc] Accessing Windows Registry remotely with Perl In-Reply-To: <20070514094300.8b86043b.frank@wiles.org> References: <20070514094300.8b86043b.frank@wiles.org> Message-ID: Did you read the documentation for Win32API::Registry::RegConnectRegistry? If the current account you're logged in as doesn't have pass thru authentication to the remote computer, you'll need to look into NetUseAdd from Jens Helbergs' Win32::lanman or find an equivalent module which will allow you to connect to remote computer's IPC$ share with appropriate credentials first. if(!Win32::Lanman::NetUseAdd({ remote => "\\\\testserver\\ipc\$", password => "testpass", username => "testuser", domain => "testdomain", asg_type => &USE_IPC} )) { print "Sorry, something went wrong; error: "; # get the error code print Win32::Lanman::GetLastError(); exit 1; } cheers, Garrett On May 14, 2007, at 9:43 AM, Frank Wiles wrote: > On Mon, 14 May 2007 09:41:17 -0500 > "Daryl Fallin" wrote: > >> Does anyone know if there is a way to connect to a remote windows >> system and pull registry entries using Perl? >> >> It looked like Win32API::Registry was going to be a way to do this >> but it appears to be only accessing the local systems Registry. > > I'm not a Windows user, but I seriously doubt this is possible > as it > would be a huge gaping hole for security problems. From davidnicol at gmail.com Fri May 25 10:04:14 2007 From: davidnicol at gmail.com (David Nicol) Date: Fri, 25 May 2007 12:04:14 -0500 Subject: [Kc] anybody feel like translating some PHP to Perl? Message-ID: <934f64a20705251004g5aef19b2s974ea6f7c9b6076@mail.gmail.com> http://news.com.com/2100-1029-6186430.html -- "It is not possible to make a mistake." (customary greeting given by Bokononists when meeting a shy person) From amoore at mooresystems.com Fri May 25 11:12:59 2007 From: amoore at mooresystems.com (Andrew Moore) Date: Fri, 25 May 2007 13:12:59 -0500 Subject: [Kc] anybody feel like translating some PHP to Perl? In-Reply-To: <934f64a20705251004g5aef19b2s974ea6f7c9b6076@mail.gmail.com> References: <934f64a20705251004g5aef19b2s974ea6f7c9b6076@mail.gmail.com> Message-ID: <20070525181259.GB2829@mooresystems.com> On Fri, May 25, 2007 at 12:04:14PM -0500, David Nicol wrote: > http://news.com.com/2100-1029-6186430.html I saw that on slashdot and think it's a fantastic idea. Even more genius than the project that lets you solve captchas to get to look at free porn. The solved captchas are then be used by the bad guys to post more porn spam on other sites. Truly remarkable ideas! -Andy From djgoku at gmail.com Fri May 25 11:08:39 2007 From: djgoku at gmail.com (djgoku) Date: Fri, 25 May 2007 13:08:39 -0500 Subject: [Kc] perl -e syntax Win32 Message-ID: <99dd19c90705251108v6a41fb3eve98558d51e4f9210@mail.gmail.com> So I was trying to create my first one liner today on a Windows Box: Code: C:\>perl -wT -e 'print "hello world";' Can't find string terminator "'" anywhere before EOF at -e line 1. I at first thought it was due to " or ' around "hello world" so I try both ways still same error. Secondly, I thought if I change the outer single quotes to double that might work? Well it did work. So I started to write the one-liner! C:\> program_output | perl -wT -e "$_ = /\"(\w+)\"/; print $1;" program_output outputs a string like test: "blah1232" and all I want is blah1232. After figuring out the single/double quote problem I found this: http://tinyurl.com/25gpxz From ironicface at earthlink.net Fri May 25 11:35:56 2007 From: ironicface at earthlink.net (Teal) Date: Fri, 25 May 2007 13:35:56 -0500 Subject: [Kc] anybody feel like translating some PHP to Perl? In-Reply-To: <934f64a20705251004g5aef19b2s974ea6f7c9b6076@mail.gmail.com> References: <934f64a20705251004g5aef19b2s974ea6f7c9b6076@mail.gmail.com> Message-ID: <46572C8C.9010106@earthlink.net> David Nicol wrote: > http://news.com.com/2100-1029-6186430.html I downloaded the PHP. It looks like a lot of it would be very easy to convert to PERL. I am not sure about the use of the mcrypt library? Does perl have an mcrypt, or what is the equivalent? I am willing to try this. In my spare time. If you really want it. ? Teal -- Five minutes of Silence, Meditate. Breathe. Be Alive. From shlomif at iglu.org.il Sat May 26 04:16:46 2007 From: shlomif at iglu.org.il (Shlomi Fish) Date: Sat, 26 May 2007 14:16:46 +0300 Subject: [Kc] perl -e syntax Win32 In-Reply-To: <99dd19c90705251108v6a41fb3eve98558d51e4f9210@mail.gmail.com> References: <99dd19c90705251108v6a41fb3eve98558d51e4f9210@mail.gmail.com> Message-ID: <200705261416.47439.shlomif@iglu.org.il> Hi djgoku! On Friday 25 May 2007, djgoku wrote: > So I was trying to create my first one liner today on a Windows Box: > > Code: > > C:\>perl -wT -e 'print "hello world";' > Can't find string terminator "'" anywhere before EOF at -e line 1. > > I at first thought it was due to " or ' around "hello world" so I try > both ways still same error. Secondly, I thought if I change the outer > single quotes to double that might work? Well it did work. > The Windows CMD.EXE does not support single quotes as delimiter. It is one of his many failings that date back to its heritage as the MS-DOS command.com excuse-for-a-shell. Do yourself a favour and download cygwin and its bash or zsh, or alterantively zsh for Windows - http://unxutils.sourceforge.net/ Else, please don't use one-liners from the CMD.EXE command line. It's painful at best and dangerous at worst. Regards, Shlomi Fish P.S: and stay away from csh or tcsh. They are horrible shells. Completely unsuitable for scripting, and not much better (and often much worse) than bas or zsh for interactive use. > So I started to write the one-liner! > > C:\> program_output | perl -wT -e "$_ = /\"(\w+)\"/; print $1;" > > program_output outputs a string like test: "blah1232" and all I want > is blah1232. > > After figuring out the single/double quote problem I found this: > > http://tinyurl.com/25gpxz > _______________________________________________ > kc mailing list > kc at pm.org > http://mail.pm.org/mailman/listinfo/kc -- --------------------------------------------------------------------- Shlomi Fish shlomif at iglu.org.il Homepage: http://www.shlomifish.org/ If it's not in my E-mail it doesn't happen. And if my E-mail is saying one thing, and everything else says something else - E-mail will conquer. -- An Israeli Linuxer From ggoebel at goebel.ws Mon May 28 17:41:06 2007 From: ggoebel at goebel.ws (Garrett Goebel) Date: Mon, 28 May 2007 19:41:06 -0500 Subject: [Kc] Who does freelance Perl Work? Message-ID: <8B57982B-EEC9-44C5-831C-12416E1891FE@goebel.ws> Hello folks. Who on the list would currently welcome some freelance Perl work? And how would you categorize the kind of Perl work you do? cheers, Garrett From frank at wiles.org Tue May 29 06:38:32 2007 From: frank at wiles.org (Frank Wiles) Date: Tue, 29 May 2007 08:38:32 -0500 Subject: [Kc] Who does freelance Perl Work? In-Reply-To: <8B57982B-EEC9-44C5-831C-12416E1891FE@goebel.ws> References: <8B57982B-EEC9-44C5-831C-12416E1891FE@goebel.ws> Message-ID: <20070529083832.4773c82b.frank@wiles.org> On Mon, 28 May 2007 19:41:06 -0500 Garrett Goebel wrote: > Hello folks. > > Who on the list would currently welcome some freelance Perl work? I've been doing freelance Perl development and consulting through my company Revolution Systems ( www.revsys.com ) for about 5 years now. > And how would you categorize the kind of Perl work you do? The bulk of my contracts are focused around dynamic database driven websites, however I also often get contracts for data manipulation programs, Sendmail milters, code reviews, and performance improvement projects. --------------------------------- Frank Wiles http://www.wiles.org ---------------------------------