From jvanslyk at matchlogic.com Fri Jun 2 16:17:18 2000 From: jvanslyk at matchlogic.com (Jason Van Slyke) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] writing Perl using ssh Message-ID: <5FE9B713CCCDD311A03400508B8B3013BB49FD@bdr-xcln.is.matchlogic.com> Perl Mongers, My latest assignment takes me into the murky world of secure servers (again) and doing file administration tasks between machines (copy, rename, delete, etc). Can you recommend a reference (a book, web site, whatever) that provides some direction on how to accomplish those tasks from a Perl program? Thx, and have a great weekend. Jason Jason Van Slyke DataMart/Performance Analysis MatchLogic Inc. Phone: (303) 222-7434 Pager: (888) 266-7056 Alpha Pager: pagejvanslyk@matchlogic.com From rise at ipopros.com Fri Jun 2 16:52:26 2000 From: rise at ipopros.com (rise) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] writing Perl using ssh In-Reply-To: <5FE9B713CCCDD311A03400508B8B3013BB49FD@bdr-xcln.is.matchlogic.com> Message-ID: > My latest assignment takes me into the murky world of secure servers (again) > and doing file administration tasks between machines (copy, rename, delete, > etc). Can you recommend a reference (a book, web site, whatever) that > provides some direction on how to accomplish those tasks from a Perl > program? The OpenSSH page at http://www.openssh.com/manual.html has links to has good background on the ssh protocol. Secure copy is provided by the scp commandline tool, but for the other functions you might want to look into writing a daemon using the IO::Socket::SSL module. http://Casbah.org/Scarab/ has some interesting distributed programming info, and links to SOAP::RPC, which since it's built on HTTP::Daemon should allow you to use SSL for the communications. As far as books go I've never found a good one on network programming in Perl. Jonathan Conway Senior DBA ipoPros.com From walter at frii.com Fri Jun 2 16:51:51 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] writing Perl using ssh In-Reply-To: <5FE9B713CCCDD311A03400508B8B3013BB49FD@bdr-xcln.is.matchlogic.com> Message-ID: On Fri, 2 Jun 2000, Jason Van Slyke wrote: > Perl Mongers, > > My latest assignment takes me into the murky world of secure servers (again) > and doing file administration tasks between machines (copy, rename, delete, > etc). Can you recommend a reference (a book, web site, whatever) that > provides some direction on how to accomplish those tasks from a Perl > program? > > Thx, and have a great weekend. > > Jason Hi, Jason, I've never seen any Perl tools specific to mucking about in SSH, but I've used scp with great success in shell scripts. If I had to do it in Perl, I'd be looking at system(). As far as documentation goes, I use (in descending order of how useful *I've* found them): ssh and scp man pages Usenet archives searchable via http://www.deja.com/home_ps.shtml SSH mailing list archives via http://www.cs.hut.fi/ssh-archive/ SSH FAQ via http://www.ssh.org/faq.html Walter From Robert.L.Harris at rnd-consulting.com Thu Jun 8 16:52:15 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] perl read .gz? Message-ID: <20000608155215.T7557@rnd-consulting.com> Is there a perl module to let me read a .gz or .Z file as if it was plain text? I'm currently doing a: open(INFILE, "gunzip -c file.gz |"); while() { #stuff } :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From moore at xor.com Thu Jun 8 17:14:12 2000 From: moore at xor.com (Dan Moore) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] perl read .gz? In-Reply-To: <20000608155215.T7557@rnd-consulting.com> Message-ID: On Thu, 8 Jun 2000, Robert L. Harris wrote: > > > Is there a perl module to let me read a .gz or .Z file as if it was > plain text? I'm currently doing a: > > open(INFILE, "gunzip -c file.gz |"); > while() { > #stuff > } It's my understanding (from the man page) that gzip uses Lempel-Ziv encoding. Searching for 'compression' on CPAN yields a few modules that seem to deal with Lempel-Ziv encoding--but nothing explicitly to do with gzip. You could test those modules, I guess. Dan From walter at frii.com Thu Jun 8 18:00:22 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] perl read .gz? In-Reply-To: <20000608155215.T7557@rnd-consulting.com> Message-ID: On Thu, 8 Jun 2000, Robert L. Harris wrote: > Is there a perl module to let me read a .gz or .Z file as if it was > plain text? I'm currently doing a: > > open(INFILE, "gunzip -c file.gz |"); > while() { > #stuff > } Hi, Take a gander at Compress::Zlib Walter From Robert.L.Harris at rnd-consulting.com Fri Jun 9 16:06:24 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Broken User Modules. Message-ID: <20000609150624.F7557@rnd-consulting.com> A user wrote a module, "LOADgen3.pm" which is in $SCRIPT. $SCRIPT may change, depending on the machine, not my choice. I'm trying this: #!/local/bin/perl -w use diagnostics; use strict; # # Let's get jwarnick's script # #require "$ENV{SCRIPT}"."/"."LOADgen3.pm"; #use "$ENV{SCRIPT}"."/"."LOADgen3.pm"; my ($ScriptDir)="$ENV{SCRIPT}"; my ($LoadGen3Script)="$ScriptDir"."/"."LOADgen3"; use $LoadGen3Script; Neither the use, or the require work. I get this: powermrt@caroline:/load/Demo $ ./DefMungeSplit.pl -f /load/DEF.EBCDIC-06-07-2000-10-00.gz syntax error at ./DefMungeSplit.pl line 11, near "use "$ScriptDir"" Execution of ./DefMungeSplit.pl aborted due to compilation errors (#1) (F) The final summary message when a Perl compilation fails. Uncaught exception from user code: Execution of ./DefMungeSplit.pl aborted due to compilation errors. Is there a way to do this so I don't have to hardcode paths on all 12 machines? Robert :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From lichtin at bivio.com Fri Jun 9 16:28:51 2000 From: lichtin at bivio.com (Martin Lichtin) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Broken User Modules. References: <20000609150624.F7557@rnd-consulting.com> Message-ID: <39416193.D7EA0EE1@bivio.com> > my ($LoadGen3Script)="$ScriptDir"."/"."LOADgen3"; > use $LoadGen3Script; use only accepts a bareword. Use, for example, eval(), eg: eval("use $LoadGen3Script"); and check $@ for success. Could also do(), I think. Type "man perlfunc" for details. From moore at xor.com Fri Jun 9 16:45:19 2000 From: moore at xor.com (Dan Moore) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Broken User Modules. In-Reply-To: <20000609150624.F7557@rnd-consulting.com> Message-ID: On Fri, 9 Jun 2000, Robert L. Harris wrote: > > > A user wrote a module, "LOADgen3.pm" which is in $SCRIPT. $SCRIPT may > change, depending on the machine, not my choice. I'm trying this: > > #!/local/bin/perl -w > > use diagnostics; > use strict; > > # > # Let's get jwarnick's script > # > #require "$ENV{SCRIPT}"."/"."LOADgen3.pm"; > #use "$ENV{SCRIPT}"."/"."LOADgen3.pm"; > my ($ScriptDir)="$ENV{SCRIPT}"; > my ($LoadGen3Script)="$ScriptDir"."/"."LOADgen3"; > use $LoadGen3Script; > > Neither the use, or the require work. I get this: > > > powermrt@caroline:/load/Demo $ ./DefMungeSplit.pl -f /load/DEF.EBCDIC-06-07-2000-10-00.gz > syntax error at ./DefMungeSplit.pl line 11, near "use "$ScriptDir"" > Execution of ./DefMungeSplit.pl aborted due to compilation errors (#1) > > (F) The final summary message when a Perl compilation fails. > > Uncaught exception from user code: > Execution of ./DefMungeSplit.pl aborted due to compilation errors. > I think you might need to use a BEGIN block, since 'use' happens at compile time. That is to say, BEGIN { my ($ScriptDir)="$ENV{SCRIPT}"; my ($LoadGen3Script)="$ScriptDir"."/"."LOADgen3"; use $LoadGen3Script; } I'm not sure about having the 'use' in the BEGIN block, but then again, I'm leery of putting it outside the BEGIN block because of the use of my variables. Hope this helps. Dan From Robert.L.Harris at rnd-consulting.com Sun Jun 11 09:07:56 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Where is my module? Message-ID: <20000611080756.H7557@rnd-consulting.com> I get this: Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line 361 (#1) (F) The subroutine indicated hasn't been defined, or if it was, it has since been undefined. Uncaught exception from user code: Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line 361. main::GetFileID('../DEF.EBCDIC-06-07-2000-10-00.gz') called at ./DefMungeSplit.pl line 106 The subroutine, newFileArrival is defined in a module: my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm"; eval (require $LoadGen3Script); I can vi the LOADgen3.pm file and see that the subroutine is there. I don't get any other errors durring execution, yet. Help? Robert :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From moore at xor.com Sun Jun 11 11:37:14 2000 From: moore at xor.com (Daniel Moore) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Where is my module? In-Reply-To: <20000611080756.H7557@rnd-consulting.com> Message-ID: On Sun, 11 Jun 2000, Robert L. Harris wrote: > > > I get this: > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line > 361 (#1) > > (F) The subroutine indicated hasn't been defined, or if it was, it > has since been undefined. > > Uncaught exception from user code: > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line 361. > main::GetFileID('../DEF.EBCDIC-06-07-2000-10-00.gz') called at ./DefMungeSplit.pl line 106 > > > The subroutine, newFileArrival is defined in a module: > > my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm"; > eval (require $LoadGen3Script); > > I can vi the LOADgen3.pm file and see that the subroutine is there. > I don't get any other errors durring execution, yet. > > > Help? Are you checking $@ for errors after you require the module? e.g. my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm"; eval (require $LoadGen3Script); if ($@) { die "error in loading script: $@"; } Dan From Robert.L.Harris at rnd-consulting.com Sun Jun 11 13:52:36 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Where is my module? In-Reply-To: ; from moore@xor.com on Sun, Jun 11, 2000 at 10:37:14AM -0600 References: <20000611080756.H7557@rnd-consulting.com> Message-ID: <20000611125236.A26046@rnd-consulting.com> I cut/paste this in exactly as you have it. No change to the output when I run the script. When I had typo'd the module name originally (forgot the .pm) it screamed up a storm, so I'm sure it's finding the module. It just can't find the function. Robert Thus spake Daniel Moore (moore@xor.com): > On Sun, 11 Jun 2000, Robert L. Harris wrote: > > > > > > > I get this: > > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line > > 361 (#1) > > > > (F) The subroutine indicated hasn't been defined, or if it was, it > > has since been undefined. > > > > Uncaught exception from user code: > > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line 361. > > main::GetFileID('../DEF.EBCDIC-06-07-2000-10-00.gz') called at ./DefMungeSplit.pl line 106 > > > > > > The subroutine, newFileArrival is defined in a module: > > > > my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm"; > > eval (require $LoadGen3Script); > > > > I can vi the LOADgen3.pm file and see that the subroutine is there. > > I don't get any other errors durring execution, yet. > > > > > > Help? > > Are you checking $@ for errors after you require the module? > > e.g. > my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm"; > eval (require $LoadGen3Script); > if ($@) { > die "error in loading script: $@"; > } > > Dan :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From moore at xor.com Sun Jun 11 14:38:25 2000 From: moore at xor.com (Daniel Moore) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Where is my module? In-Reply-To: <20000611125236.A26046@rnd-consulting.com> Message-ID: On Sun, 11 Jun 2000, Robert L. Harris wrote: > > > I cut/paste this in exactly as you have it. No change to the output when > I run the script. When I had typo'd the module name originally (forgot the .pm) > it screamed up a storm, so I'm sure it's finding the module. > > It just can't find the function. > Hi, It's good to know that the module is being found. Can we see how you're calling newFileArrival()? Is newFileArrival in package main? Have you tried calling &LOADgen3::newFileArrival()? Thanks, Dan > > Thus spake Daniel Moore (moore@xor.com): > > > On Sun, 11 Jun 2000, Robert L. Harris wrote: > > > > > > > > > > > I get this: > > > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line > > > 361 (#1) > > > > > > (F) The subroutine indicated hasn't been defined, or if it was, it > > > has since been undefined. > > > > > > Uncaught exception from user code: > > > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line 361. > > > main::GetFileID('../DEF.EBCDIC-06-07-2000-10-00.gz') called at ./DefMungeSplit.pl line 106 > > > > > > > > > The subroutine, newFileArrival is defined in a module: > > > > > > my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm"; > > > eval (require $LoadGen3Script); > > > > > > I can vi the LOADgen3.pm file and see that the subroutine is there. > > > I don't get any other errors durring execution, yet. > > > > > > > > > Help? > > > > Are you checking $@ for errors after you require the module? > > > > e.g. > > my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm"; > > eval (require $LoadGen3Script); > > if ($@) { > > die "error in loading script: $@"; > > } > > > > Dan > > > > :wq! > --------------------------------------------------------------------------- > Robert L. Harris | Micros~1 : > Senior System Engineer | For when quality, reliability > at RnD Consulting | and security just aren't > \_ that important! > DISCLAIMER: > These are MY OPINIONS ALONE. I speak for no-one else. > FYI: > perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' > > Dan Moore Programmer XOR Inc. From Robert.L.Harris at rnd-consulting.com Sun Jun 11 14:46:41 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Where is my module? In-Reply-To: ; from moore@xor.com on Sun, Jun 11, 2000 at 01:38:25PM -0600 References: <20000611125236.A26046@rnd-consulting.com> Message-ID: <20000611134641.B26066@rnd-consulting.com> Thus spake Daniel Moore (moore@xor.com): > On Sun, 11 Jun 2000, Robert L. Harris wrote: > > > > > > > I cut/paste this in exactly as you have it. No change to the output when > > I run the script. When I had typo'd the module name originally (forgot the .pm) > > it screamed up a storm, so I'm sure it's finding the module. > > > > It just can't find the function. > > > > Hi, > > It's good to know that the module is being found. > > Can we see how you're calling newFileArrival()? my ($FileID)= &newFileArrival("GEC", "GEN3", "$File", "Getting DEF FileID", -1); gave the below error. hmm, I'd forgotten &LOADgen3::newFileArrive method. That appears to ahve worked alot better. Gives an error, but that's in the module and up to the author to fix. Thanks. Robert > Is newFileArrival in package main? Have you tried calling > &LOADgen3::newFileArrival()? > > Thanks, > Dan > > > > > Thus spake Daniel Moore (moore@xor.com): > > > > > On Sun, 11 Jun 2000, Robert L. Harris wrote: > > > > > > > > > > > > > > > I get this: > > > > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line > > > > 361 (#1) > > > > > > > > (F) The subroutine indicated hasn't been defined, or if it was, it > > > > has since been undefined. > > > > > > > > Uncaught exception from user code: > > > > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line 361. > > > > main::GetFileID('../DEF.EBCDIC-06-07-2000-10-00.gz') called at ./DefMungeSplit.pl line 106 > > > > > > > > > > > > The subroutine, newFileArrival is defined in a module: > > > > > > > > my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm"; > > > > eval (require $LoadGen3Script); > > > > > > > > I can vi the LOADgen3.pm file and see that the subroutine is there. > > > > I don't get any other errors durring execution, yet. > > > > > > > > > > > > Help? > > > > > > Are you checking $@ for errors after you require the module? > > > > > > e.g. > > > my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm"; > > > eval (require $LoadGen3Script); > > > if ($@) { > > > die "error in loading script: $@"; > > > } > > > > > > Dan > > > > > > > > :wq! > > --------------------------------------------------------------------------- > > Robert L. Harris | Micros~1 : > > Senior System Engineer | For when quality, reliability > > at RnD Consulting | and security just aren't > > \_ that important! > > DISCLAIMER: > > These are MY OPINIONS ALONE. I speak for no-one else. > > FYI: > > perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' > > > > > > Dan Moore > Programmer > XOR Inc. :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From kmoore at trustamerica.com Tue Jun 13 13:37:16 2000 From: kmoore at trustamerica.com (Kyle Moore) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Perl FDF Toolkit Message-ID: <39467F5C.AC44424C@trustamerica.com> NOTE: Sorry for the duplication if any of you belong to the Boulder Linux User Group list. Anyone want to earn a beer and impress me with how smart you are? I tried yesterday to get Adobe's FDF Toolkit for Perl to run on linux. This allows you to create pdf files that can be filled out, sent back to the perl script and you can generate new pdf or fdf files. I was able to get past a couple of problems but still run into problems with it and can't get it to load the module. The toolkit comes in two files. There is a FDF.pm and a FDF.so. I really need to get this working but think I'm stuck. I started to get stuck here: ************BEGIN ERROR******************** Can't load '/root/perl5/lib/i386-linux/auto/Acrobat/FDF/FDF.so' for module Acrobat::FDF: libm.so.5: cannot open shared object file: No such file or directory at /usr/lib/perl5/5.00503/i386-linux/DynaLoader.pm line 169. at /root/perl5/lib/Acrobat/FDF.pm line 579 BEGIN failed--compilation aborted at ./kjm.pl line 3. ************END ERROR*********************** After making a link "ln -s /usr/i486-linux-libc5/lib/libm.so.5 /lib/libm.so.5" I was able to at least get a new message: ************BEGIN ERROR********************* Can't load '/root/perl5/lib/i386-linux/auto/Acrobat/FDF/FDF.so' for module Acrobat::FDF: /root/perl5/lib/i386-linux/auto/Acrobat/FDF/FDF.so: undefined symbol: Perl_markstack_ptr at /usr/lib/perl5/5.00503/i386-linux/DynaLoader.pm line 169. at /root/perl5/lib/Acrobat/FDF.pm line 579 BEGIN failed--compilation aborted at ./kjm.pl line 3. ************END ERORR*********************** I think the problem is libraries aren't where the FDF.so expects them to be. The problem is that this toolkit for Perl is supplied "as is"...there is no support for it right now. Anyone??? -- ---- Kyle Moore UNIX Systems Administrator --------------------------------------- Trust Company of America / Gemisys 7103 South Revere Parkway Englewood, CO 80112 --------------------------------------- Email: kmoore@trustamerica.com Voice: 303-705-6212 Pager: 303-656-1131 Fax: 303-705-6171 Web Site: http://www.trustamerica.com --------------------------------------- From walter at frii.com Wed Jun 14 11:25:32 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Perl FDF Toolkit In-Reply-To: <39467F5C.AC44424C@trustamerica.com> Message-ID: Hi, Kyle, Wow, those Adobe installation instructions are sloppy, and wrong. You think they'd get it straight! Anyway, I can't quite tell whether you're doing a system-wide or personal installation, based on your paths. Here's what I just did to do a system-wide (not private) install of the module, and it seems to work -- at least, a bobo program consisting of #!/opt/bin/perl -wT use Acrobat::FDF; exit 0; "ran" without any error output. 1) Download, uncompress, and untar the files from Adobe. 2) cd into the source distribution's lib/Perl/Unix There'll be some directories for differnet platforms (we'll call yours $ARCH) and a few files. 3) Run the command perl InstallAdvice.pl Ignore the "error" output -- it's part of a "print < NOTE: Sorry for the duplication if any of you belong to the Boulder > Linux User Group list. > > > Anyone want to earn a beer and impress me with how smart you are? > > I tried yesterday to get Adobe's FDF Toolkit for Perl to run on linux. > This allows you to create pdf files that can be filled out, sent back to > the perl script and you can generate new pdf or fdf files. I was able to > get past a couple of problems but still run into problems with it and > can't get it to load the module. The toolkit comes in two files. There > is a FDF.pm and a FDF.so. I really need to get this working but think > I'm stuck. > > I started to get stuck here: > ************BEGIN ERROR******************** > Can't load '/root/perl5/lib/i386-linux/auto/Acrobat/FDF/FDF.so' for > module Acrobat::FDF: libm.so.5: cannot open shared object file: No such > file or directory at /usr/lib/perl5/5.00503/i386-linux/DynaLoader.pm > line 169. > > at /root/perl5/lib/Acrobat/FDF.pm line 579 > BEGIN failed--compilation aborted at ./kjm.pl line 3. > ************END ERROR*********************** > > After making a link "ln -s /usr/i486-linux-libc5/lib/libm.so.5 > /lib/libm.so.5" I was able to at least get a new message: > ************BEGIN ERROR********************* > Can't load '/root/perl5/lib/i386-linux/auto/Acrobat/FDF/FDF.so' for > module Acrobat::FDF: /root/perl5/lib/i386-linux/auto/Acrobat/FDF/FDF.so: > undefined symbol: Perl_markstack_ptr at > /usr/lib/perl5/5.00503/i386-linux/DynaLoader.pm line 169. > > at /root/perl5/lib/Acrobat/FDF.pm line 579 > BEGIN failed--compilation aborted at ./kjm.pl line 3. > ************END ERORR*********************** > > I think the problem is libraries aren't where the FDF.so expects them to > be. The problem is that this toolkit for Perl is supplied "as > is"...there is no support for it right now. > > Anyone??? > -- > > ---- > Kyle Moore > UNIX Systems Administrator > --------------------------------------- > Trust Company of America / Gemisys > 7103 South Revere Parkway > Englewood, CO 80112 > --------------------------------------- > Email: kmoore@trustamerica.com > Voice: 303-705-6212 > Pager: 303-656-1131 > Fax: 303-705-6171 > Web Site: http://www.trustamerica.com > --------------------------------------- > From kmoore at trustamerica.com Tue Jun 13 12:02:07 2000 From: kmoore at trustamerica.com (Kyle Moore) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Perl FDF Toolkit References: Message-ID: <3946690E.99B4E534@trustamerica.com> I actually tried both and followed the instructions to a "t". What did you run it on? I'm on Redhat 6.1 with their perl installed? Walter Pienciak wrote: > Hi, Kyle, > > Wow, those Adobe installation instructions are sloppy, and wrong. > You think they'd get it straight! > > Anyway, I can't quite tell whether you're doing a system-wide or > personal installation, based on your paths. > > Here's what I just did to do a system-wide (not private) install of the > module, and it seems to work -- at least, a bobo program consisting of > > From walter at frii.com Wed Jun 14 12:05:43 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Perl FDF Toolkit In-Reply-To: <3946690E.99B4E534@trustamerica.com> Message-ID: I'm on Solaris. But the main thing I saw was that they had done a sloppy job. They were copying sun4-solaris/FDF.* FDF.pm into system locations, but their source files weren't named like that, but rather like sun4-solaris/fdf.* and fdf.pm. So if you followed their instructions to a "t", you were fscked -- because their instructions didn't match their own files. Walter On Tue, 13 Jun 2000, Kyle Moore wrote: > I actually tried both and followed the instructions to a "t". What did you run > it on? I'm on Redhat 6.1 with their perl installed? > > Walter Pienciak wrote: > > > Hi, Kyle, > > > > Wow, those Adobe installation instructions are sloppy, and wrong. > > You think they'd get it straight! > > > > Anyway, I can't quite tell whether you're doing a system-wide or > > personal installation, based on your paths. > > > > Here's what I just did to do a system-wide (not private) install of the > > module, and it seems to work -- at least, a bobo program consisting of > > > > > From walter at frii.com Wed Jun 14 15:19:01 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Fwd: great opportunity for perl developers @ active.com (fwd) Message-ID: ---------- Forwarded message ---------- Date: Wed, 14 Jun 2000 14:17:14 -0600 From: Laura Price To: walter@frii.com Subject: great opportunity for perl developers @ active.com Hi Walter, I'm sending this message to you as the contact person for the Boulder area Perl Mongers group - if you would, please forward this job posting to any and all perl developers you think would be interested in this opportunity. (formal job description is below - if there is a different process for getting great jobs posted on a perl mongers mailing list I apologize for the intrusion, please let me know the proper channels.) Active.com is the premier Internet site for participatory sports, providing athletes, event directors, and league administrators a range of web-based tools: event search and registration (with tens of thousands events online), event management resources, league administration software, community features, and e-commerce. We're looking for you to help us evolve our template parsing engine, our custom object caching layer, our home-grown meta-programming tools, or our advanced database schema. We're not a boring web company building online shopping carts--we make powerful web-based software, and we do it with advanced in-house tools. We definitely have the most talented perl shop in Colorado, if not the entire US. Our guys took 2nd place in the perl quiz bowl competition at Perl Whirl 2000 two weeks ago - second only to a team of Lincoln Stein (who wrote CGI.pm) and his ilk. We have a really fantastic environment in which to work--extremely bright peers, a world-class architecture and technology base, very interesting projects, casual culture, flex hours, good pay, great stock options, great benefits, the whole nine yards. We've honestly built the best technology team you're ever likely to find. Check out our sites, at www.active.com and www.leaguelink.com . If you have any questions, feel free to call or email me, send me a resume, etc... I look forward to hearing from you, laura. Web Application Developer This individual will be part of a team of peers responsible for building Active.com's Internet applications. Given an assigned software module, this person will be responsible for technical planning (data modeling, architecture, organization, algorithms), coding, and testing. Must work well collaboratively as well as individually. Qualifications · Demonstrated ability to design and develop web applications for a large commercial web site given a set of functional or business requirements · Familiarity with OO design and methodology · Solid OO Perl in web development, Apache + mod_perl knowledge preferred · Strong ability to learn new technologies on the fly a must · SQL knowledge and web-database integration a must · Familiarity with web-related markup languages · Familiarity with developing in a Unix environment · Any additional systems/network integration/administration experience a plus · Excellent communication and writing/documentation skills * Sports enthusiast a plus Laura L. Price HR Manager Active.com (303) 428-0100, ext. 114 From nagler at bivio.com Wed Jun 14 16:10:53 2000 From: nagler at bivio.com (Rob Nagler) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Software Designer Position Message-ID: <3947F4DD.AB6209DD@bivio.com> bivio is seeking software designers skilled in building robust, secure, high-performance transaction processing systems using Linux, Apache, mod_perl, and Oracle. Visit http://www.bivio.com to learn about our application space. We are a small engineering team based in Boulder. You will be expected to work out of your home. We supply all equipment including a high-speed Internet connection. Our benefits package is among the best in Boulder. We offer competitive salaries, significant equity, four weeks vacation, and relocation if need be. You will be allowed to release a portion of your work as freeware. You must be able to solve problems independently and quickly across many disciplines. Teamwork is essential. You must be able to apply pride of craftsmanship in an egoless programming environment. You should have many years experience building reusable, modular systems using object-oriented principles. This position requires extreme responsibility. Please send your resume (ascii preferred) to jobs@bivio.com. Thanks for your interest in bivio, Rob Nagler CTO bivio, Inc. From moore at xor.com Wed Jun 14 15:29:10 2000 From: moore at xor.com (Dan Moore) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Fwd: great opportunity for perl developers @ active.com (fwd) In-Reply-To: Message-ID: Hi Walter, Isn't this your list? What's the policy on job postings? Dan Moore Programmer XOR Inc. From walter at frii.com Wed Jun 14 16:55:26 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] Fwd: great opportunity for perl developers @ active.com (fwd) In-Reply-To: Message-ID: On Wed, 14 Jun 2000, Dan Moore wrote: > Hi Walter, > > Isn't this your list? What's the policy on job postings? > > Dan Moore > Programmer > XOR Inc. Hi, The policy was set by open discussion back in October 1999, but can of course be changed whenever group consensus decides to. Lessee . . . boulder-pm-list is for Perl-related discussion. General announcements likely to be of interest to most group members are welcome. Occasional job postings closely related to Perl are acceptable. If abuses begin to occur (and we reserve the right to redefine "abuse" as consensus dictates), we'll take the necessary steps to stop it. (Of course, only *really stupid* recruiters would deliberately provoke/alienate the people they're trying to recruit . . . but you never know. There's a lot of strange thinking out there.) That's it. We had 2 job postings today. The first, I made. The recruiter sent mail to me and asked, and it seemed "closely related to Perl" and had a 303 area code phone number. The second came directly from a new subscriber. I personally thought his post was well within the policy: a Boulder company looking for a mod-perler [good luck!] Walter From Robert.L.Harris at rnd-consulting.com Thu Jun 15 12:19:11 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] perl read .gz? In-Reply-To: ; from walter@frii.com on Thu, Jun 08, 2000 at 05:00:22PM -0600 References: <20000608155215.T7557@rnd-consulting.com> Message-ID: <20000615111911.S7718@rnd-consulting.com> I installed and build Compress::Zlib, after I installed the Zlib package. I got this: {1}:caroline:/home/harris/Rebuild>./CheckRebuild.pl -f rebuild.apr.gz -o april.out ld.so.1: /local/bin/perl: fatal: relocation error: file /local/opt/perl/lib/site_perl/5.005/sun4-solaris/auto/Compress/Zlib/Zlib.so: symbol zlibVersion: referenced symbol not found Killed Thoughts? Robert Thus spake Walter Pienciak (walter@frii.com): > On Thu, 8 Jun 2000, Robert L. Harris wrote: > > > Is there a perl module to let me read a .gz or .Z file as if it was > > plain text? I'm currently doing a: > > > > open(INFILE, "gunzip -c file.gz |"); > > while() { > > #stuff > > } > > Hi, > > Take a gander at Compress::Zlib > > Walter :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From walter at frii.com Thu Jun 15 12:45:11 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] perl read .gz? In-Reply-To: <20000615111911.S7718@rnd-consulting.com> Message-ID: On Thu, 15 Jun 2000, Robert L. Harris wrote: > I installed and build Compress::Zlib, after I installed the Zlib > package. I got this: > > {1}:caroline:/home/harris/Rebuild>./CheckRebuild.pl -f rebuild.apr.gz -o april.out > ld.so.1: /local/bin/perl: fatal: relocation error: file /local/opt/perl/lib/site_perl/5.005/sun4-solaris/auto/Compress/Zlib/Zlib.so: symbol zlibVersion: referenced symbol not found > Killed > > Thoughts? > > Robert As I recollect, I tried building automagically via the CPAN module, but it crapped out and I had to build by hand. I think I had to change some stuff in config.in, which the README in the distribution mentions briefly. Walter From walter at frii.com Thu Jun 15 15:49:12 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] A job Posting (fwd) Message-ID: Hoo, boy . . . This is quite the week for postings. Walter ---------- Forwarded message ---------- Date: Thu, 15 Jun 2000 14:31:39 -0600 From: Tania McEvoy To: walter@frii.com Subject: A job Posting Walter, Is there any way to get information to the members of Boulder.pm regarding an open position with Absolute Performance? RDBMS/UNIX Systems Software Engineer - 3+ years PERL programming experience - Knowledge of PERL references and complex data structures - Ability to write and use objects and modules - Understanding of functions for using IPC, sockets, shared memory, and TCP communications - Experience with CGI and web based applications - Familiarity with PERL DBI and at least one relational database (preferably Oracle) - Understanding of intermediate jto advanced UNIX concepts (process scheduling, file systems, signals & IPC, memory management) - Good communication skills and the ability to work both independently and in a team - Experience working on large software projects - Understanding of revision control (CVS or RCS) and roll out / release processes - Willingness to adhere to coding guidelines Responsibilities: Build and maintain software for Absolute Performance that will help SysAdmins and DBAs gather and analyze system performance data, monitor system health and security, improve efficiency, and manage day-to-day operations. The opportunity also exsists to help build a data mining engine for the analysis of system behavior trends over time. Salary level to be set with experience. Benefits include health, dental, vision, life, LTD and STD disability insurance, Retirement planning account, Stock Option plan, and reduced price YMCA membership. Absolute Performance http://www.unixdba.com 4909 Pearl East Circle Suite 201 Boulder, CO 80301 phone 303-443-7000 Contact Tania McEvoy at extension 503 I appreciate any help you may be able to offer. Tania From jvanslyk at matchlogic.com Thu Jun 15 16:10:47 2000 From: jvanslyk at matchlogic.com (Jason Van Slyke) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] A job Posting (fwd) Message-ID: <5FE9B713CCCDD311A03400508B8B30130171E016@bdr-xcln.is.matchlogic.com> Walter, I see that you get flack about every other posting. Personally, these postings are informative wrt what the market place is looking; skills, experience, locations, whatever. Considering these posting comprise ~0.1% of my email volume I don't really understand why the objections are so consistent? Just my opinion. Jason -----Original Message----- From: Walter Pienciak [mailto:walter@frii.com] Sent: Thursday, June 15, 2000 2:49 PM To: boulder-pm-list@happyfunball.pm.org Subject: [boulder.pm] A job Posting (fwd) Hoo, boy . . . This is quite the week for postings. Walter ---------- Forwarded message ---------- Date: Thu, 15 Jun 2000 14:31:39 -0600 From: Tania McEvoy To: walter@frii.com Subject: A job Posting Walter, Is there any way to get information to the members of Boulder.pm regarding an open position with Absolute Performance? RDBMS/UNIX Systems Software Engineer - 3+ years PERL programming experience - Knowledge of PERL references and complex data structures - Ability to write and use objects and modules - Understanding of functions for using IPC, sockets, shared memory, and TCP communications - Experience with CGI and web based applications - Familiarity with PERL DBI and at least one relational database (preferably Oracle) - Understanding of intermediate jto advanced UNIX concepts (process scheduling, file systems, signals & IPC, memory management) - Good communication skills and the ability to work both independently and in a team - Experience working on large software projects - Understanding of revision control (CVS or RCS) and roll out / release processes - Willingness to adhere to coding guidelines Responsibilities: Build and maintain software for Absolute Performance that will help SysAdmins and DBAs gather and analyze system performance data, monitor system health and security, improve efficiency, and manage day-to-day operations. The opportunity also exsists to help build a data mining engine for the analysis of system behavior trends over time. Salary level to be set with experience. Benefits include health, dental, vision, life, LTD and STD disability insurance, Retirement planning account, Stock Option plan, and reduced price YMCA membership. Absolute Performance http://www.unixdba.com 4909 Pearl East Circle Suite 201 Boulder, CO 80301 phone 303-443-7000 Contact Tania McEvoy at extension 503 I appreciate any help you may be able to offer. Tania From llornkcor at llornkcor.com Thu Jun 15 16:32:37 2000 From: llornkcor at llornkcor.com (ljp) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] A job Posting (fwd) References: <5FE9B713CCCDD311A03400508B8B30130171E016@bdr-xcln.is.matchlogic.com> Message-ID: <004401bfd711$3ad7cba0$ca0af5d1@spiritprobe> > Walter, > > I see that you get flack about every other posting. Personally, these > postings are informative wrt what the market place is looking; skills, > experience, locations, whatever. > > Considering these posting comprise ~0.1% of my email volume I don't really > understand why the objections are so consistent? > Personally, I like getting them. If they are perl related. I could see complaining if, say, King Soopers sent one here for cart clerks or whatever. The delete key works wonders for spam and such. my 2 cents. LP From rise at ipopros.com Thu Jun 15 16:48:39 2000 From: rise at ipopros.com (rise) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] A job Posting (fwd) In-Reply-To: <004401bfd711$3ad7cba0$ca0af5d1@spiritprobe> Message-ID: > > Considering these posting comprise ~0.1% of my email volume I don't really > > understand why the objections are so consistent? > > > > Personally, I like getting them. If they are perl related. I could see > complaining if, say, King Soopers sent one here for cart clerks or whatever. > The delete key works wonders for spam and such. I concur. I'm quite happy with my current position, but these posting do give me a better feel for the Boulder job market (and dare I say, what interesting projects other Boulder companies are working on?). Beyond that, I inclined to afford some consideration to the fact that almost all of these posting are (unlike the job spam in c.l.p.m) the result of some effort to locate an appropriate forum & receptive audience. If they've got the clue to locate boulder.pm, contact Walter courteously, and post opportunities that are directly relevant I'm inclined to grant them the 2 seconds and 5 keystrokes it takes me to process them. We could even request adding a JOB: leader in the title to make it easier to procmail them out of sight and out mind for those who'd rather not see them. It's rare enough for recruiters (much less anyone else) to exert themselves to go a good job with email contacts. Let's not penalize them for it. Jonathan Conway Senior DBA ipoPros.com From kmoore at trustamerica.com Fri Jun 16 10:55:08 2000 From: kmoore at trustamerica.com (Kyle Moore) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] A job Posting (fwd) References: <5FE9B713CCCDD311A03400508B8B30130171E016@bdr-xcln.is.matchlogic.com> Message-ID: <394A4DDC.7CEBB2DA@trustamerica.com> I agree. Being aware of the job market is definitely valuable. I think the best way to handle it is for all job posting to go through Walter...I think that would work well. Jason Van Slyke wrote: > > Walter, > > I see that you get flack about every other posting. Personally, these > postings are informative wrt what the market place is looking; skills, > experience, locations, whatever. > > Considering these posting comprise ~0.1% of my email volume I don't really > understand why the objections are so consistent? -- ---- Kyle Moore UNIX Systems Administrator --------------------------------------- Trust Company of America / Gemisys 7103 South Revere Parkway Englewood, CO 80112 --------------------------------------- Email: kmoore@trustamerica.com Voice: 303-705-6212 Pager: 303-656-1131 Fax: 303-705-6171 Web Site: http://www.trustamerica.com --------------------------------------- From walter at frii.com Fri Jun 16 11:17:39 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] A job Posting (fwd) In-Reply-To: <394A4DDC.7CEBB2DA@trustamerica.com> Message-ID: On Fri, 16 Jun 2000, Kyle Moore wrote: > I agree. Being aware of the job market is definitely valuable. I think > the best way to handle it is for all job posting to go through > Walter...I think that would work well. > > Jason Van Slyke wrote: > > > > Walter, > > > > I see that you get flack about every other posting. Personally, these > > postings are informative wrt what the market place is looking; skills, > > experience, locations, whatever. > > > > Considering these posting comprise ~0.1% of my email volume I don't really > > understand why the objections are so consistent? These are all good points, but I do understand that job postings really yank some people's chains. Why don't I add a JOB: prefix to the subject line of those postings, and folks can filter accordingly. (This'll be handwork, so here's an apology in advance for if^Wwhen I forget.) Walter From walter at frii.com Thu Jun 22 11:13:34 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] July Perl conference in Monterey Message-ID: Is anyone else going out there? I'm getting ready to make travel arrangements, but I'm toying with the idea of driving (1200-1300 miles each way) and wonder if anyone else'd be interested. In any case, we could plan on doing dinner or something . . . Walter From kmoore at trustamerica.com Thu Jun 22 11:26:34 2000 From: kmoore at trustamerica.com (Kyle Moore) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] July Perl conference in Monterey References: Message-ID: <39523E3A.91E60A0D@trustamerica.com> You talk my boss into letting me go and I'm all for it...should even have my new car by then...LOL Seriously, I would have loved to have gone to this one...hope you have a good time. Walter Pienciak wrote: > > Is anyone else going out there? I'm getting ready to make > travel arrangements, but I'm toying with the idea of driving > (1200-1300 miles each way) and wonder if anyone else'd be > interested. > > In any case, we could plan on doing dinner or something . . . > > Walter -- ---- Kyle Moore UNIX Systems Administrator --------------------------------------- Trust Company of America / Gemisys 7103 South Revere Parkway Englewood, CO 80112 --------------------------------------- Email: kmoore@trustamerica.com Voice: 303-705-6212 Pager: 303-656-1131 Fax: 303-705-6171 Web Site: http://www.trustamerica.com --------------------------------------- From walter at frii.com Thu Jun 22 12:00:51 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] July Perl conference in Monterey In-Reply-To: <39523E3A.91E60A0D@trustamerica.com> Message-ID: Ah, yes, Getting the management to pay for training . . . I can only speak for myself and the small technical group I'm a part of (7 people), but we've always found that conference attendance *more* than pays for itself in a few ways: 1. Increased productivity (hey, why reinvent the wheel?). These conferences are the best way to keep up with what new is being done, and which path people are taking, and why. Which technical solutions are rising or falling. The people at these conferences are the people who *actually do the work*, and someone there just finished the job you're trying to figure out how to get a handle on. Plus, the informal get-togethers between people with like interests/ problems have saved my company *countless* hours (dollars) of grief. Glossy brochures and salesspeak are worthless; let me talk to a sysadmin/programmer who's wrestled with a product, and I'll know the truth about it -- good, bad, ugly, everything. And the odds are that they looked over the competition and have opinions about those also. BOFs cut through the bullshit, and that's worth a lot of money. 2. Better morale. Hey, the truth is that in this job market, if I feel that my company isn't investing in me and that my job skills are getting dated, I'm *out of there*! My technical group has stayed intact for almost 4 years (and I work for a nonprofit, so benefits aren't *that* great ;^) We feel *strongly* that our conference policy is a significant (and good) part of our culture. 3. Training from the best. There are zillions of "training" classes, but the folks at the conferences below are at the top of their game. Want to learn DBI? Why not learn it from the guy who *wrote* it? 4. If you get good enough, maybe someday you'll be a presenter. Then your company gets great PR. 5. And if you have open positions, maybe you meet somone who's interested. These conferences sort of filter out bozos. (No guarantee, but at least the person is sharp enough to have found the conference and recognized the inherent quality.) These people are there because they want to learn. 6. Information transfer back into the company. Okay, you're back home with all these papers and tutorial books and scribbled notes. Make like the honey bee and start sending people e-mails and attachments of things relevant to their projects. It's all FYI stuff and takes little time, so SPREAD THE WEALTH. Personally, I like the following conferences, as they all consistently deliver immediate bang for the buck: a. USENIX LISA. It rules. Seven days of high-bandwidth data transfer straight into your head. No bullshit, little theory, just "how to do it". b. O'Reilly "Perl" (now Open Source). Tutorials, technical tracks. Tons of stuff directly relevant to your current and planned projects. c. SANS. Anyone who admins or programs in an open environment (i.e., web or "Internet") needs to get a serious clue about security. The cost of just one incident would be way higher than years and years of conference attendance. Why, your boss can't afford to have you *not* go! My $0.03, Walter __ Walter Pienciak Manager of Electronic Information, IEEE Standards Activities w.pienciak@ieee.org http://standards.ieee.org/people/w.pienciak/ http://walter.dsl.frii.net/family/walter/ +1 303 527 0934 P.O. Box 3780, Boulder, CO 80307-3780 On Thu, 22 Jun 2000, Kyle Moore wrote: > You talk my boss into letting me go and I'm all for it...should even > have my new car by then...LOL > > Seriously, I would have loved to have gone to this one...hope you have a > good time. > > Walter Pienciak wrote: > > > > Is anyone else going out there? I'm getting ready to make > > travel arrangements, but I'm toying with the idea of driving > > (1200-1300 miles each way) and wonder if anyone else'd be > > interested. > > > > In any case, we could plan on doing dinner or something . . . > > > > Walter From fholtry at bighorn.dr.lucent.com Thu Jun 22 17:32:23 2000 From: fholtry at bighorn.dr.lucent.com (HoltryF) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] July Perl conference in Monterey In-Reply-To: Walter Pienciak "[boulder.pm] July Perl conference in Monterey" (Jun 22, 10:13am) References: Message-ID: <10006221632.ZM26955@archmage.dr.lucent.com> There are three of us going from Lucent Technologies. I have to agree with everything you said in your other note. This is one of the best conferences I've ever been to. I always learn lots of useful stuff, which is probably why my management continues to approve it for more of us each year. Frank Holtry On Jun 22, 10:13am, Walter Pienciak wrote: > Is anyone else going out there? I'm getting ready to make > travel arrangements, but I'm toying with the idea of driving > (1200-1300 miles each way) and wonder if anyone else'd be > interested. > > In any case, we could plan on doing dinner or something . . . > > Walter > >-- End of excerpt from Walter Pienciak -- ------------------------------------------------------------------------------- | Frank Holtry | "If you have the right attitude, interesting | | fholtry@lucent.com | problems will find you." | | | Eric S. Raymond | | | | | | "The Cathedral and the Bazaar" | | | (http://earthspace.net/~esr/writings/ | | | cathedral-paper.html#toc13) | | | | ------------------------------------------------------------------------------- From yay at yaychat.com Thu Jun 22 17:52:28 2000 From: yay at yaychat.com (punk ass'd mofo) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] July Perl conference in Monterey In-Reply-To: <10006221632.ZM26955@archmage.dr.lucent.com> Message-ID: is there a url for the details? On Thu, 22 Jun 2000, HoltryF wrote: > There are three of us going from Lucent Technologies. I have to agree > with everything you said in your other note. This is one of the best > conferences I've ever been to. I always learn lots of useful stuff, which > is probably why my management continues to approve it for more of us > each year. > > Frank Holtry > > > On Jun 22, 10:13am, Walter Pienciak wrote: > > Is anyone else going out there? I'm getting ready to make > > travel arrangements, but I'm toying with the idea of driving > > (1200-1300 miles each way) and wonder if anyone else'd be > > interested. > > > > In any case, we could plan on doing dinner or something . . . > > > > Walter > > > >-- End of excerpt from Walter Pienciak > > > > -- > ------------------------------------------------------------------------------- > | Frank Holtry | "If you have the right attitude, interesting | > | fholtry@lucent.com | problems will find you." | > | | Eric S. Raymond | > | | | > | | "The Cathedral and the Bazaar" | > | | (http://earthspace.net/~esr/writings/ | > | | cathedral-paper.html#toc13) | > | | | > ------------------------------------------------------------------------------- > From walter at frii.com Thu Jun 22 22:42:04 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] July Perl conference in Monterey In-Reply-To: Message-ID: Yo, punk ass, http://conferences.ora.com/oscon2000/ Walter On Thu, 22 Jun 2000, punk ass'd mofo wrote: > is there a url for the details? > > On Thu, 22 Jun 2000, HoltryF wrote: > > > There are three of us going from Lucent Technologies. I have to agree > > with everything you said in your other note. This is one of the best > > conferences I've ever been to. I always learn lots of useful stuff, which > > is probably why my management continues to approve it for more of us > > each year. > > > > Frank Holtry > > > > > > On Jun 22, 10:13am, Walter Pienciak wrote: > > > Is anyone else going out there? I'm getting ready to make > > > travel arrangements, but I'm toying with the idea of driving > > > (1200-1300 miles each way) and wonder if anyone else'd be > > > interested. > > > > > > In any case, we could plan on doing dinner or something . . . > > > > > > Walter > > > > > >-- End of excerpt from Walter Pienciak > > > > > > > > -- > > ------------------------------------------------------------------------------- > > | Frank Holtry | "If you have the right attitude, interesting | > > | fholtry@lucent.com | problems will find you." | > > | | Eric S. Raymond | > > | | | > > | | "The Cathedral and the Bazaar" | > > | | (http://earthspace.net/~esr/writings/ | > > | | cathedral-paper.html#toc13) | > > | | | > > ------------------------------------------------------------------------------- > > > From Robert.L.Harris at rnd-consulting.com Thu Jun 29 12:54:06 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] hash for multiple filehandles? Message-ID: <20000629115406.I25702@rnd-consulting.com> Ok, I have a very large file. it has about 30 record types. We currently use about 15 of those. Right now, I open 15 filehandles, manucally, have 15 print statements, and 15 closes. There has got to be a better way. open(OUT01, ">$Out.01") || die "Can't open Outputfile $Out.01 :$!:\n"; open(OUT26, ">$Out.26") || die "Can't open Outputfile $Out.26 :$!:\n"; open(OUT36, ">$Out.36") || die "Can't open Outputfile $Out.36 :$!:\n"; open(OUT37, ">$Out.37") || die "Can't open Outputfile $Out.37 :$!:\n"; while() { # do some processing . . . print OUT01 "$Line\n" if ($RecNum eq "01"); print OUT26 "$Line\n" if ($RecNum eq "26"); print OUT36 "$Line\n" if ($RecNum eq "36"); print OUT37 "$Line\n" if ($RecNum eq "37"); } close(OUT01); close(OUT26); close(OUT36); close(OUT37); :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From pls at bighorn.dr.lucent.com Thu Jun 29 13:53:17 2000 From: pls at bighorn.dr.lucent.com (Suppes, Patrick) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] hash for multiple filehandles? Message-ID: <8CA3BC4DEF5AD2118B2600A0C959B33804CE61B1@drexch1.dr.lucent.com> Here is a fragment of a program that processes a file with multiple record types. It's overkill for what you asked for, but it combines the functionality of splitting the file with doing something unique with each of the different record types. First it defines the parsing for each record type... # # Header record. $splitpattern{"A"} = "A1 A6 A6 A6 A8 A6 A6 A32 A50 A32 A2 A4 A5 A3 A1 A8 A6 A10 A825 "; # Detail record. $splitpattern{"D"} = # Segment ID "A1 A6 A8 " ... # More fields "A1 A9 A10 A10 A11 A16 A50 A94 A2 A40 A60"; # Trailer record. $splitpattern{"Z"} = "A1 A10 A16 A17 A10 A963"; Then it reads the records from the file... while ($record=) { chomp $record; $recordtype=substr($record, 0, 1); $fieldsizes=$splitpattern{$recordtype}; @fields=unpack($fieldsizes, $record); ... actually do something useful by record type, in this case it did some field level editing of the input file, then writes out the data by record type. print $recordtype "@fields\n"; }; This program only uses 3 record types, so the open and close statements are hard coded. In your case you may want to cycle through opening and closing the various output files using the for each loop. (The following code was not tested....) foreach $recordtype ( keys %splitpattern ) {open $recordtype, ">$Out.$recordtype";} and, later foreach $recordtype ( keys %splitpattern ) {close $recordtype;} Pat Suppes > -----Original Message----- > From: Robert L. Harris [SMTP:Robert.L.Harris@rnd-consulting.com] > Sent: Thursday, June 29, 2000 11:54 AM > To: Boulder Perl Mongers > Subject: [boulder.pm] hash for multiple filehandles? > > > > Ok, > I have a very large file. it has about 30 record types. We currently > use about 15 of those. Right now, I open 15 filehandles, manually, > have 15 print statements, and 15 closes. There has got to be a > better way. > > open(OUT01, ">$Out.01") || die "Can't open Outputfile $Out.01 :$!:\n"; > open(OUT26, ">$Out.26") || die "Can't open Outputfile $Out.26 :$!:\n"; > open(OUT36, ">$Out.36") || die "Can't open Outputfile $Out.36 :$!:\n"; > open(OUT37, ">$Out.37") || die "Can't open Outputfile $Out.37 :$!:\n"; > while() { > # do some processing > . > . > . > > print OUT01 "$Line\n" if ($RecNum eq "01"); > print OUT26 "$Line\n" if ($RecNum eq "26"); > print OUT36 "$Line\n" if ($RecNum eq "36"); > print OUT37 "$Line\n" if ($RecNum eq "37"); > } > close(OUT01); > close(OUT26); > close(OUT36); > close(OUT37); > > > > :wq! > --------------------------------------------------------------------------- > Robert L. Harris | Micros~1 : > Senior System Engineer | For when quality, reliability > at RnD Consulting | and security just aren't > \_ that important! > DISCLAIMER: > These are MY OPINIONS ALONE. I speak for no-one else. > FYI: > perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From nagler at bivio.com Thu Jun 29 14:07:27 2000 From: nagler at bivio.com (Rob Nagler) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] hash for multiple filehandles? References: <20000629115406.I25702@rnd-consulting.com> Message-ID: <395B9E6F.DC96552B@bivio.com> > I have a very large file. it has about 30 record types. We currently > use about 15 of those. Right now, I open 15 filehandles, manucally, > have 15 print statements, and 15 closes. There has got to be a > better way. use Symbol (); my($foo) = Symbol::gensym(); open($foo, ">hello") || die; (print $foo "hello\n") || die; close($foo) || die; I believe Symbol is a standard perl library. Rob From Robert.L.Harris at rnd-consulting.com Fri Jun 30 17:03:10 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] walking web pages? Message-ID: <20000630160310.E6366@rnd-consulting.com> I need a perl script that can load a web page, enter 3 form entries, hit the submit button (java script I believe). Click a button under that page, fill another form, submit that, then click one last button under that. I need it to do all this and then measure the time it took. I've been pointed to modules that can supposedly do this. Does anyone have any sample scripts that are pretty close to this? I need it by tuesday since a package management bought, won't do this and that's what it was bought for. Help? Robert :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From yay at yaychat.com Fri Jun 30 19:06:42 2000 From: yay at yaychat.com (punk ass'd mofo) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] walking web pages? In-Reply-To: <20000630160310.E6366@rnd-consulting.com> Message-ID: you should consider using Silk for this. On Fri, 30 Jun 2000, Robert L. Harris wrote: > > > I need a perl script that can load a web page, enter 3 form entries, > hit the submit button (java script I believe). Click a button under > that page, fill another form, submit that, then click one last button > under that. > > I need it to do all this and then measure the time it took. > > I've been pointed to modules that can supposedly do this. Does anyone > have any sample scripts that are pretty close to this? I need it > by tuesday since a package management bought, won't do this and that's > what it was bought for. > > Help? > > Robert > > > > :wq! > --------------------------------------------------------------------------- > Robert L. Harris | Micros~1 : > Senior System Engineer | For when quality, reliability > at RnD Consulting | and security just aren't > \_ that important! > DISCLAIMER: > These are MY OPINIONS ALONE. I speak for no-one else. > FYI: > perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' > > From jeff at planetoid.net Fri Jun 30 20:14:16 2000 From: jeff at planetoid.net (jeff) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] walking web pages? References: Message-ID: <395D45E8.BBFA68E1@planetoid.net> what's silk??? punk ass'd mofo wrote: > you should consider using Silk for this. > > On Fri, 30 Jun 2000, Robert L. Harris wrote: > > > > > > > I need a perl script that can load a web page, enter 3 form entries, > > hit the submit button (java script I believe). Click a button under > > that page, fill another form, submit that, then click one last button > > under that. > > > > I need it to do all this and then measure the time it took. > > > > I've been pointed to modules that can supposedly do this. Does anyone > > have any sample scripts that are pretty close to this? I need it > > by tuesday since a package management bought, won't do this and that's > > what it was bought for. > > > > Help? -- Jeff Saenz jeff@planetoid.net From yay at yaychat.com Fri Jun 30 20:19:53 2000 From: yay at yaychat.com (punk ass'd mofo) Date: Wed Aug 4 23:58:20 2004 Subject: [boulder.pm] walking web pages? In-Reply-To: <395D45E8.BBFA68E1@planetoid.net> Message-ID: http://www.segue.com/html/s_solutions/silk/s_family.htm On Fri, 30 Jun 2000, jeff wrote: > what's silk??? > > punk ass'd mofo wrote: > > > you should consider using Silk for this. > > > > On Fri, 30 Jun 2000, Robert L. Harris wrote: > > > > > > > > > > > I need a perl script that can load a web page, enter 3 form entries, > > > hit the submit button (java script I believe). Click a button under > > > that page, fill another form, submit that, then click one last button > > > under that. > > > > > > I need it to do all this and then measure the time it took. > > > > > > I've been pointed to modules that can supposedly do this. Does anyone > > > have any sample scripts that are pretty close to this? I need it > > > by tuesday since a package management bought, won't do this and that's > > > what it was bought for. > > > > > > Help? > > -- > Jeff Saenz > jeff@planetoid.net > > >