From Robert.L.Harris at rnd-consulting.com Sat Jul 1 08:51:03 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] walking web pages? In-Reply-To: ; from yay@yaychat.com on Fri, Jun 30, 2000 at 06:19:53PM -0700 References: <395D45E8.BBFA68E1@planetoid.net> Message-ID: <20000701075103.G6366@rnd-consulting.com> This looks decent, but we need something that can be cron'd and run multiple times from command line with output that can be logged to a file for reporting functions, thus the reason we wanted a perl script. The second problem is that is commercial. Mgmt already bought one package. Ever have something not capable of doing the job, period, according to the authors, you tell mgmt who tells you to make it work anyway? Robert Thus spake punk ass'd mofo (yay@yaychat.com): > > 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 > > > > > > :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 Sat Jul 1 09:37:22 2000 From: yay at yaychat.com (punk ass'd mofo) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] walking web pages? In-Reply-To: <20000701075103.G6366@rnd-consulting.com> Message-ID: if you have this requirement on a win32 system using activestate's perl i would recommend Win32::Setupsup It allows starting of processes and mimic keyboard strokes. when i was at tdfx i wrote scripts to automate performance testing--ie: my perl scripts were playing quake. it's been awhile though, but maybe i can find some on my old source code if you are interested. On Sat, 1 Jul 2000, Robert L. Harris wrote: > > > This looks decent, but we need something that can be cron'd and run multiple > times from command line with output that can be logged to a file for reporting > functions, thus the reason we wanted a perl script. The second problem is > that is commercial. Mgmt already bought one package. Ever have something > not capable of doing the job, period, according to the authors, you tell > mgmt who tells you to make it work anyway? > > Robert > > > Thus spake punk ass'd mofo (yay@yaychat.com): > > > > > 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 > > > > > > > > > > > > > :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 Robert.L.Harris at rnd-consulting.com Sat Jul 1 09:43:22 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] walking web pages? In-Reply-To: ; from yay@yaychat.com on Sat, Jul 01, 2000 at 07:37:22AM -0700 References: <20000701075103.G6366@rnd-consulting.com> Message-ID: <20000701084322.H6366@rnd-consulting.com> I need it for Un*x though, that's the platform we run on. Robert Thus spake punk ass'd mofo (yay@yaychat.com): > if you have this requirement on a win32 system using activestate's perl i > would recommend Win32::Setupsup > > It allows starting of processes and mimic keyboard strokes. > > when i was at tdfx i wrote scripts to automate performance testing--ie: my > perl scripts were playing quake. > > it's been awhile though, but maybe i can find some on my old source code > if you are interested. > > > On Sat, 1 Jul 2000, Robert L. Harris wrote: > > > > > > > This looks decent, but we need something that can be cron'd and run multiple > > times from command line with output that can be logged to a file for reporting > > functions, thus the reason we wanted a perl script. The second problem is > > that is commercial. Mgmt already bought one package. Ever have something > > not capable of doing the job, period, according to the authors, you tell > > mgmt who tells you to make it work anyway? > > > > Robert > > > > > > Thus spake punk ass'd mofo (yay@yaychat.com): > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > :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);' > > > > > :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 Sat Jul 1 09:47:57 2000 From: yay at yaychat.com (punk ass'd mofo) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] walking web pages? In-Reply-To: <20000701084322.H6366@rnd-consulting.com> Message-ID: i'll see if i can come up with anything during the weekend. my machine is on, so feel free to email me. or if you want to chat real time telnet yaychat.com 7227 On Sat, 1 Jul 2000, Robert L. Harris wrote: > > > I need it for Un*x though, that's the platform we run on. > > Robert > > Thus spake punk ass'd mofo (yay@yaychat.com): > > > if you have this requirement on a win32 system using activestate's perl i > > would recommend Win32::Setupsup > > > > It allows starting of processes and mimic keyboard strokes. > > > > when i was at tdfx i wrote scripts to automate performance testing--ie: my > > perl scripts were playing quake. > > > > it's been awhile though, but maybe i can find some on my old source code > > if you are interested. > > > > > > On Sat, 1 Jul 2000, Robert L. Harris wrote: > > > > > > > > > > > This looks decent, but we need something that can be cron'd and run multiple > > > times from command line with output that can be logged to a file for reporting > > > functions, thus the reason we wanted a perl script. The second problem is > > > that is commercial. Mgmt already bought one package. Ever have something > > > not capable of doing the job, period, according to the authors, you tell > > > mgmt who tells you to make it work anyway? > > > > > > Robert > > > > > > > > > Thus spake punk ass'd mofo (yay@yaychat.com): > > > > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > > > > > > > > :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);' > > > > > > > > > > > > :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 Robert.L.Harris at rnd-consulting.com Sat Jul 1 09:57:31 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] walking web pages? In-Reply-To: ; from yay@yaychat.com on Sat, Jul 01, 2000 at 07:47:57AM -0700 References: <20000701084322.H6366@rnd-consulting.com> Message-ID: <20000701085731.I6366@rnd-consulting.com> Cool... Appreciate the help. I've got to go to the airport to pick up visiting family. If I get the chance, I'll telnet in. Robert Thus spake punk ass'd mofo (yay@yaychat.com): > i'll see if i can come up with anything during the weekend. > > my machine is on, so feel free to email me. > or if you want to chat real time > telnet yaychat.com 7227 > > > On Sat, 1 Jul 2000, Robert L. Harris wrote: > > > > > > > I need it for Un*x though, that's the platform we run on. > > > > Robert > > > > Thus spake punk ass'd mofo (yay@yaychat.com): > > > > > if you have this requirement on a win32 system using activestate's perl i > > > would recommend Win32::Setupsup > > > > > > It allows starting of processes and mimic keyboard strokes. > > > > > > when i was at tdfx i wrote scripts to automate performance testing--ie: my > > > perl scripts were playing quake. > > > > > > it's been awhile though, but maybe i can find some on my old source code > > > if you are interested. > > > > > > > > > On Sat, 1 Jul 2000, Robert L. Harris wrote: > > > > > > > > > > > > > > > This looks decent, but we need something that can be cron'd and run multiple > > > > times from command line with output that can be logged to a file for reporting > > > > functions, thus the reason we wanted a perl script. The second problem is > > > > that is commercial. Mgmt already bought one package. Ever have something > > > > not capable of doing the job, period, according to the authors, you tell > > > > mgmt who tells you to make it work anyway? > > > > > > > > Robert > > > > > > > > > > > > Thus spake punk ass'd mofo (yay@yaychat.com): > > > > > > > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > :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);' > > > > > > > > > > > > > > > > > > > :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);' > > > > :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 Sat Jul 1 15:58:33 2000 From: nagler at bivio.com (Rob Nagler) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] walking web pages? References: <395D45E8.BBFA68E1@planetoid.net> <20000701075103.G6366@rnd-consulting.com> Message-ID: <395E5B79.40677848@bivio.com> > This looks decent, but we need something that can be cron'd and run multiple > times from command line with output that can be logged to a file for reporting > functions, thus the reason we wanted a perl script. I've attached a VERY SIMPLE hack of something that logs into our site. It uses HTTP::Cookie, HTTP::Request, etc. The second file is production code used in our Club Site(tm) feature. It inserts our header on a club's home page, which can be arbitrary HTML. It is an example of using HTML::Parser. I apologize for the "extra stuff", but I don't have time to distill it to just CPAN packages. There is also HTML::Table and HTML::Form, which parse tables and forms ;-), but I haven't used them so no examples. In general, the tricky part is understanding the HTML that is generated. Once you've got that, "pushing buttons" is easy. If you have control of the site, you could even put comments into the generated html to make it easy to find the interesting bits--not really recommended. If you don't have control of the HTML, make sure you have really good error handling and logging. Ya neva know what people or generators are gonna do... Hope this helps, Rob -------------- next part -------------- A non-text attachment was scrubbed... Name: test_get.pl Type: application/x-perl Size: 958 bytes Desc: not available Url : http://mail.pm.org/archives/boulder-pm/attachments/20000701/eac20666/test_get.bin -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/boulder-pm/attachments/20000701/eac20666/HomePageParser.htm From walter at frii.com Fri Jul 14 08:55:16 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] Monterey conference Message-ID: Well, ok, A few people seem to be heading out to the conference next week. I'll be there, along with a few other people from my group (IEEE Standards tech staff). There's probably going to be a full slate of official and unofficial events, but I'd enjoy getting together for a meal or a late-night drink sometime. Not quite sure what the best way to meet is -- it's a big conference. I'll be at the Marriott . . . Walter [Pienciak] From fholtry at bighorn.dr.lucent.com Fri Jul 14 09:31:36 2000 From: fholtry at bighorn.dr.lucent.com (HoltryF) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] Monterey conference In-Reply-To: Walter Pienciak "[boulder.pm] Monterey conference" (Jul 14, 7:55am) References: Message-ID: <10007140831.ZM5224@archmage.dr.lucent.com> Walter, At the past conferences, there has been a large pin-up board somewhere near the registration area where folks could post a sign or note saying "Meet me here at 10:00" or whatever. Also, there will be a Perl Mongers booth selling logo stuff and lots of PM groups seem to gather around that. Are you going for all four days? We registered too late to get into the conference center hotels, so we'll be up the road a ways at the Embassy Suites. But the upside of that is we'll have a car. We'll be there for the full four-day therapy (uh... I mean CONFERENCE!). BTW: I need to change my address on the mailing list from fholtry@lucent.com to fholtry@avaya.com. Should I just unsubscribe/resubscribe? Frank Holtry On Jul 14, 7:55am, Walter Pienciak wrote: > Well, ok, > > A few people seem to be heading out to the conference next week. > > I'll be there, along with a few other people from my group > (IEEE Standards tech staff). There's probably going to be a > full slate of official and unofficial events, but I'd enjoy > getting together for a meal or a late-night drink sometime. > > Not quite sure what the best way to meet is -- it's a big > conference. I'll be at the Marriott . . . > > Walter [Pienciak] > >-- End of excerpt from Walter Pienciak -- -------------------------------------------------------------------------- | Frank Holtry | "If you have the right attitude, interesting | | fholtry@avaya.com | problems will find you." | | | Eric S. Raymond | -------------------------------------------------------------------------- From Robert.L.Harris at rnd-consulting.com Fri Jul 14 09:54:56 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] use strict, and net::ping Message-ID: <20000714085449.G4272@rnd-consulting.com> I'm doing a "use strict;" and trying to use net::ping. I have this: $p=Net::Ping->new("icmp",5,64); $Out=$p->ping($Target); needless to say, strict is complaining about $p not being declared, but if I do a "my ($p)" it gets rather unhappy. What's the best way to make this call? I can't find a good example in PCB or the Camel that uses strict. I'd rather not remove the strict... 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 walter at frii.com Fri Jul 14 10:31:20 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] use strict, and net::ping In-Reply-To: <20000714085449.G4272@rnd-consulting.com> Message-ID: On Fri, 14 Jul 2000, Robert L. Harris wrote: > I'm doing a "use strict;" and trying to use net::ping. > > I have this: > > $p=Net::Ping->new("icmp",5,64); > $Out=$p->ping($Target); > > needless to say, strict is complaining about $p not being declared, > but if I do a "my ($p)" it gets rather unhappy. > > What's the best way to make this call? I can't find a good example > in PCB or the Camel that uses strict. > > I'd rather not remove the strict... > > Help? > > Robert Does my $p = Net::Ping->new("icmp",5,64); get a complaint? Walter From walter at frii.com Fri Jul 14 10:40:07 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] Monterey conference In-Reply-To: <10007140831.ZM5224@archmage.dr.lucent.com> Message-ID: On Fri, 14 Jul 2000, HoltryF wrote: > Walter, > At the past conferences, there has been a large pin-up board somewhere > near the registration area where folks could post a sign or note saying > "Meet me here at 10:00" or whatever. Also, there will be a Perl Mongers > booth selling logo stuff and lots of PM groups seem to gather around > that. > > Are you going for all four days? We registered too late to get into > the conference center hotels, so we'll be up the road a ways at the > Embassy Suites. But the upside of that is we'll have a car. We'll > be there for the full four-day therapy (uh... I mean CONFERENCE!). > > BTW: I need to change my address on the mailing list from fholtry@lucent.com > to fholtry@avaya.com. Should I just unsubscribe/resubscribe? > > Frank Holtry Yup, all four days. I have a rental car also, and my wife and girls tell me that I have to go to Point Lobos State Park on the ocean (but it closes early, I think, so we'll see . . .) At any rate, the pin-up board and the PM booth sound like a good place to hook up. And apparently (at least, according to the mod-perl mailing-list scuttlebutt, there are going to be a bunch of "unofficial" parties. I registered early, because I wanted to make sure I got into the Marriott. A lot of the conferences I go to book that hotel chain, so I have a guest card, and these conferences add up to enough points that my wife and I can get a free night once in a while. (And all the costs paid via my dividend-earning REI credit card earn me a modest amount of toys.) I can help if things go awry during subscription/unsubscription, but the easiest way to do things is to use Mailtool::Favorite; &subscribe( $new_address ) && &unsubscribe( $old_address ); Walter From fholtry at bighorn.dr.lucent.com Fri Jul 14 11:11:48 2000 From: fholtry at bighorn.dr.lucent.com (HoltryF) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] Monterey conference In-Reply-To: Walter Pienciak "Re: [boulder.pm] Monterey conference" (Jul 14, 9:40am) References: Message-ID: <10007141011.ZM5309@archmage.dr.lucent.com> On Jul 14, 9:40am, Walter Pienciak wrote: > Yup, all four days. I have a rental car also, and my wife and girls tell > me that I have to go to Point Lobos State Park on the ocean (but it closes That's a real peculiarity of the Monterey area -- nearly all the tourist attractions close around 6:00pm. We decided to fly out really early (10:30) on Sunday with the possibility of driving to at least a few of them before they close. (We were also concerned about delays/cancellations). My wife went with me last year and she's comming along this year. Apparently the conference organizers realized a lot of families were comming this year, because they've arranged with a tour company to do pickups at the conference center. > early, I think, so we'll see . . .) At any rate, the pin-up board and the > PM booth sound like a good place to hook up. And apparently (at least, > according to the mod-perl mailing-list scuttlebutt, there are going to be > a bunch of "unofficial" parties. Yep. Lots of "official but impromptu" BOF sessions and lots of parties. > > I registered early, because I wanted to make sure I got into the Marriott. > A lot of the conferences I go to book that hotel chain, so I have a With the spinoff comming up, I guess our managers had more interesting things to do than approve conference requests. > guest card, and these conferences add up to enough points that my wife and > I can get a free night once in a while. (And all the costs paid via my > dividend-earning REI credit card earn me a modest amount of toys.) > > I can help if things go awry during subscription/unsubscription, but the > easiest way to do things is to > > use Mailtool::Favorite; > &subscribe( $new_address ) && &unsubscribe( $old_address ); > > Walter > >-- End of excerpt from Walter Pienciak Frank -- -------------------------------------------------------------------------- | Frank Holtry | "If you have the right attitude, interesting | | fholtry@avaya.com | problems will find you." | | | Eric S. Raymond | -------------------------------------------------------------------------- From jeff at planetoid.net Fri Jul 14 12:59:51 2000 From: jeff at planetoid.net (jeff) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] use strict, and net::ping References: Message-ID: <396F5517.81510CD0@planetoid.net> what's the difference between 'my $p' and 'my($p)'. Walter Pienciak wrote: > On Fri, 14 Jul 2000, Robert L. Harris wrote: > > > I'm doing a "use strict;" and trying to use net::ping. > > > > I have this: > > > > $p=Net::Ping->new("icmp",5,64); > > $Out=$p->ping($Target); > > > > needless to say, strict is complaining about $p not being declared, > > but if I do a "my ($p)" it gets rather unhappy. > > > > What's the best way to make this call? I can't find a good example > > in PCB or the Camel that uses strict. > > > > I'd rather not remove the strict... > > > > Help? > > > > Robert > > Does > > my $p = Net::Ping->new("icmp",5,64); > > get a complaint? > > Walter -- Jeff Saenz jeff@planetoid.net From fholtry at bighorn.dr.lucent.com Fri Jul 14 13:19:28 2000 From: fholtry at bighorn.dr.lucent.com (HoltryF) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] Monterey conference In-Reply-To: Walter Pienciak "Re: [boulder.pm] Monterey conference" (Jul 14, 9:40am) References: Message-ID: <10007141219.ZM5407@archmage.dr.lucent.com> Walter, What is Mailtool::Favorite? I did a quick scan of CPAN without comming up with it. Frank On Jul 14, 9:40am, Walter Pienciak wrote: > > use Mailtool::Favorite; > &subscribe( $new_address ) && &unsubscribe( $old_address ); > > Walter > >-- End of excerpt from Walter Pienciak -- -------------------------------------------------------------------------- | Frank Holtry | "If you have the right attitude, interesting | | fholtry@avaya.com | problems will find you." | | | Eric S. Raymond | -------------------------------------------------------------------------- From walter at frii.com Fri Jul 14 13:22:00 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:21 2004 Subject: [boulder.pm] Monterey conference In-Reply-To: <10007141219.ZM5407@archmage.dr.lucent.com> Message-ID: On Fri, 14 Jul 2000, HoltryF wrote: > Walter, > What is Mailtool::Favorite? I did a quick scan of CPAN without comming > up with it. > > Frank > > On Jul 14, 9:40am, Walter Pienciak wrote: > > > > use Mailtool::Favorite; > > &subscribe( $new_address ) && &unsubscribe( $old_address ); > > > > Walter > > > >-- End of excerpt from Walter Pienciak Ah, Mailtool::Favorite is a figment of my pseudocoding imagination. Sorry 'bout that. Walter From walter at frii.com Fri Jul 14 13:26:54 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] use strict, and net::ping In-Reply-To: <396F5517.81510CD0@planetoid.net> Message-ID: my $p declares $p, returns $p my ($p) declares $p, returns a list with one element, $p Basically, the ($p) puts it into a list context rather than a plain old scalar context. Walter On Fri, 14 Jul 2000, jeff wrote: > what's the difference between 'my $p' and 'my($p)'. > > Walter Pienciak wrote: > > > On Fri, 14 Jul 2000, Robert L. Harris wrote: > > > > > I'm doing a "use strict;" and trying to use net::ping. > > > > > > I have this: > > > > > > $p=Net::Ping->new("icmp",5,64); > > > $Out=$p->ping($Target); > > > > > > needless to say, strict is complaining about $p not being declared, > > > but if I do a "my ($p)" it gets rather unhappy. > > > > > > What's the best way to make this call? I can't find a good example > > > in PCB or the Camel that uses strict. > > > > > > I'd rather not remove the strict... > > > > > > Help? > > > > > > Robert > > > > Does > > > > my $p = Net::Ping->new("icmp",5,64); > > > > get a complaint? > > > > Walter > > -- > Jeff Saenz > jeff@planetoid.net > > From nagler at bivio.com Fri Jul 14 13:45:10 2000 From: nagler at bivio.com (Rob Nagler) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] use strict, and net::ping References: Message-ID: <396F5FB6.5EE415BF@bivio.com> > Basically, the ($p) puts it into a list context rather than > a plain old scalar context. What I don't understand is why my($p) =Net::Ping->new("icmp",5,64); doesn't work? I looked at the code for Net::Ping and it doesn't seem to call wantarray, so why would it care? We use the my($p) syntax all over and always "use strict" and nairy a beep? From walter at frii.com Fri Jul 14 14:10:34 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] use strict, and net::ping In-Reply-To: <396F5FB6.5EE415BF@bivio.com> Message-ID: On Fri, 14 Jul 2000, Rob Nagler wrote: > > Basically, the ($p) puts it into a list context rather than > > a plain old scalar context. > > What I don't understand is why > > my($p) =Net::Ping->new("icmp",5,64); > > doesn't work? I looked at the code for Net::Ping and it > doesn't seem to call wantarray, so why would it care? > > We use the my($p) syntax all over and always "use strict" > and nairy a beep? Good point. If the Net::Ping code doesn't seem to be picky ... Maybe Robert can make sure -w option is on and post more code and exact error message? Walter From walter at frii.com Fri Jul 14 14:24:38 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] Monterey conference -- and XML In-Reply-To: Message-ID: Oh, yeah, If anyone is working with XML, one of the guys from my company that's going to be there is the author of the XML::Twig module (available on CPAN or at http://www.xmltwig.cx/), Michel Rodriguez. He's a long-time SGML guy, wrote some intros to Perl and XML for www.xml.com, and did a tutorial at XML Europe last month on the topic. He's also easily a cheap date, as he can be easily bribed with beer to work out any problem in the known universe. Walter From Robert.L.Harris at rnd-consulting.com Fri Jul 14 14:42:47 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] use strict, and net::ping In-Reply-To: ; from walter@frii.com on Fri, Jul 14, 2000 at 01:10:34PM -0600 References: <396F5FB6.5EE415BF@bivio.com> Message-ID: <20000714134247.F17988@rnd-consulting.com> I'm re-writing it thanks to an un-recoverable vi recover file. When done, I'll try the (my) again as I may have done something stupid, as it wouldn't be the first time. Robert Thus spake Walter Pienciak (walter@frii.com): > On Fri, 14 Jul 2000, Rob Nagler wrote: > > > > Basically, the ($p) puts it into a list context rather than > > > a plain old scalar context. > > > > What I don't understand is why > > > > my($p) =Net::Ping->new("icmp",5,64); > > > > doesn't work? I looked at the code for Net::Ping and it > > doesn't seem to call wantarray, so why would it care? > > > > We use the my($p) syntax all over and always "use strict" > > and nairy a beep? > > Good point. If the Net::Ping code doesn't seem to be picky ... > Maybe Robert can make sure -w option is on and post more code > and exact error message? > > 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 baur at frii.com Mon Jul 17 22:27:13 2000 From: baur at frii.com (Eric Shore Baur) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] Persistant Data Message-ID: <200007180328.VAA66001@deimos.frii.com> This is pretty much just an example out of the Perl Cookbook (p.506) about keeping variables around between instances of a program... but it doesn't seem to work even when I copied it straight out of the book. ??? This is a slightly modified version of it... basically, it prints that the variables aren't defined every time I run it. #!/usr/bin/perl use MLDBM qw(DB_File); my ($v1, $v2); my $store = '/tmp/data'; BEGIN { print "BEGIN:\n"; my %data; tie(%data, 'MLDBM', $store) or die "Can't tie to $store : $!\n"; $v1 = $data{v1}; $v2 = $data{v2}; untie %data; } if (not defined $v1) { print "Variables not defined yet...\n"; $v1 = 0; $v2 = 0; } print "\$v1 = $v1\n\$v2 = $v2\n"; $v1++; $v2--; END { print "END:\n"; my %data; tie(%data, 'MLDBM', $store) or die "Can't tie to $store : $!\n"; $data{v1} = $v1; $data{v2} = $v2; untie %data; } __END__ If I take out the "BEGIN" and "END" and just have those code blocks in the main body of the script, it works perfectly, but it doesn't seem to work with that code in those special blocks. It seems that it might have something to do with the variables going out of scope, but the authors seem to think it'll work. (Right now I'm working with perl 5.6, but I seem to remember having this problem with 5.005 (or was it 5.004?) as well. The program I'm running this in would work a lot better with the BEGIN and END blocks... although I suppose I could do with just the END if I had to (I'm writing a small "server" that needs to be able to save it's data if it dies for some reason, but will otherwise always be running.) Mainly, I'm curious now. :) Thanks! Eric From nagler at bivio.com Mon Jul 17 22:46:48 2000 From: nagler at bivio.com (Rob Nagler) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] Persistant Data References: <200007180328.VAA66001@deimos.frii.com> Message-ID: <3973D328.568E70F1@bivio.com> > If I take out the "BEGIN" and "END" and just have those code blocks in the > main body of the script, it works perfectly, but it doesn't seem to work with > that code in those special blocks. I would guess that it would work with it in the END block, but not the BEGIN block. BEGIN executes "first", before the rest of the code. my($v) = 2; BEGIN { $v = 1; } print $v; This will print "2", not "1" as you would think. We rarely use BEGIN blocks. Usually, only when we need to do something that is particularly tricky and then only in modules, not programs. I'm sure there's even stranger stuff with tying variables. We stay as far away from those as possible. :-) Why not simply use a hash_ref that is always tied for the values instead of the intermediate variables? Moreover, why not make a little wrapper object that managed the whole thing? From baur at frii.com Tue Jul 18 00:14:47 2000 From: baur at frii.com (Eric Shore Baur) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] Persistant Data In-Reply-To: <3973D328.568E70F1@bivio.com> Message-ID: On Mon, 17 Jul 2000, Rob Nagler wrote: > > If I take out the "BEGIN" and "END" and just have those code blocks in the > > main body of the script, it works perfectly, but it doesn't seem to work with > > that code in those special blocks. > > I would guess that it would work with it in the END block, but not the > BEGIN block. BEGIN executes "first", before the rest of the code. > Yeah, I modified it right after sending out the question with only the END block, and it does what I want. I was still a bit surprised that it didn't work "out of the book" - is this an error on their part, then? > I'm sure there's even stranger stuff with tying variables. We stay > as far away from those as possible. :-) > > Why not simply use a hash_ref that is always tied for the values instead > of the intermediate variables? Moreover, why not make a little wrapper > object that managed the whole thing? > I'm thinking more that I should not use the temp variable. I think I was worried about either what would happen if the program died early, and I'm trying to speed up access to the data structure. (I'm trying to cut corners in some places, since I know other parts of the process aren't very efficent. ) I was also of the understanding that tied hashes don't have the benefit of adding values if you assign to an undefined key. The only 'value' I'm getting out of the tied hash is a class reference, so do I still have that limitation within the class? Eric From nagler at bivio.com Tue Jul 18 00:32:17 2000 From: nagler at bivio.com (Rob Nagler) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] Persistant Data References: Message-ID: <3973EBE1.F745C623@bivio.com> > it didn't work "out of the book" - is this an error on their part, then? :) > I'm thinking more that I should not use the temp variable. I > think I was worried about either what would happen if the program died You need to handle this case anyway. The program (or computer) could crash while the file is being written yielding partial results. I would recommend something like mySQL or Data::Dumper to a file. The advantage of Data::Dumper is that you either get all or none. The disadavantage is "speed". Frankly, if the file is small, it is going to fit in a block (4K in most Unix systems) and therefore it's a wash. > I was also of the understanding that tied hashes don't have the > benefit of adding values if you assign to an undefined key. Don't know, but would make sense. You probably don't want to do this. Use "delete" instead. > The only > 'value' I'm getting out of the tied hash is a class reference, so do I > still have that limitation within the class? Can you persist class references? Do you mean an instance of a class or simply the class name (which is a string, not reference)? Rob From Robert.L.Harris at rnd-consulting.com Wed Jul 19 13:09:03 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] hash for multiple filehandles? In-Reply-To: <395B9E6F.DC96552B@bivio.com>; from nagler@bivio.com on Thu, Jun 29, 2000 at 01:07:27PM -0600 References: <20000629115406.I25702@rnd-consulting.com> <395B9E6F.DC96552B@bivio.com> Message-ID: <20000719120903.R17988@rnd-consulting.com> I'm finally getting to try this. I'm using an associative array though. I have this roughly: use Symbol (); my (%Handle)=Symbol::gensym(); foreach $i (keys(%Records)) { $Handle{$i}="OUT"."$i"; open($Handle{$i}, ">$Out.$i") || die "Can't open Outputfile $Out.$i :$!:\n"; } if ($Handle{$RecNum} eq "T") { print $Handle{$i} "$Line\n"; } foreach $i (keys(%Records)) { open($Handle{$i}, ">$Out.$i") || die "Can't open Outputfile $Out.$i :$!:\n"; close($Handle{$i}); system("$CHMOD 0775 $Out.$i"); } I'm getting this: String found where operator expected at ./DefMungeSplit.pl line 219, near "} "$Line\n"" (#1) (S) The Perl lexer knows whether to expect a term or an operator. If it sees what it knows to be a term when it was expecting to see an operator, it gives you this warning. Usually it indicates that an operator or delimiter was omitted, such as a semicolon. (Missing operator before "$Line\n"?) and 219 is the "print $Handle{$i}...." line... Thoughts? Robert Thus spake Rob Nagler (nagler@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 :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 Wed Jul 19 13:38:55 2000 From: nagler at bivio.com (Rob Nagler) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] hash for multiple filehandles? References: <20000629115406.I25702@rnd-consulting.com> <395B9E6F.DC96552B@bivio.com> <20000719120903.R17988@rnd-consulting.com> Message-ID: <3975F5BF.B7EF4443@bivio.com> Couple of points... The specific error is caused by the lack of braces (see "print" doc): Note that if you're storing FILEHANDLES in an array or other expression, you will have to use a block returning its value instead: print { $files[$i] } "stuff\n"; print { $OK ? STDOUT : STDERR } "stuff\n"; However, I don't understand how if ($Handle{$RecNum} eq "T") { print $Handle{$i} "$Line\n"; } Will every be executed, because $Handle{$i}="OUT"."$i"; Not sure what you want as the test case, but 'eq "T"' is probably not it. You should always use "my" and "use strict" imiho, e.g. foreach my $i (keys(%Records)) { I'm not sure what the first part: foreach my $i (keys(%Records)) { $Handle{$i}="OUT"."$i"; open($Handle{$i}, ">$Out.$i") || die "Can't open Outputfile $Out.$i :$!:\n"; } is doing, because you'll be overwriting the files in the second "foreach". Perhaps this is just test code. Hope this helps, Rob From Robert.L.Harris at rnd-consulting.com Wed Jul 19 14:29:40 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] hash for multiple filehandles? In-Reply-To: <3975F5BF.B7EF4443@bivio.com>; from nagler@bivio.com on Wed, Jul 19, 2000 at 12:38:55PM -0600 References: <20000629115406.I25702@rnd-consulting.com> <395B9E6F.DC96552B@bivio.com> <20000719120903.R17988@rnd-consulting.com> <3975F5BF.B7EF4443@bivio.com> Message-ID: <20000719132940.T17988@rnd-consulting.com> What "print" doc? perldoc print? I'll check that when I get home. For some ungodly reason, they refuse to let me put the perldoc, manpages, etc on the boxes here. Ok, I changed to: if ($Records{$RecNum}) { print "\$Line :$Line:\n" if ($Records{$RecNum} eq "T"); print { $Handle{$i} } "$Line\n" if ($Records{$RecNum} eq "T"); } Where $Records{} is "T" if I want this record dealt with. So if I get a record nubmer 14, and I want it written out, it will be defined. The above section gives me: Use of uninitialized value at ./DefMungeSplit.pl line 222 (#2) (W) An undefined value was used as if it were already defined. It was interpreted as a "" or a 0, but maybe it was a mistake. To suppress this warning assign an initial value to your variables. Can't use an undefined value as a symbol reference at ./DefMungeSplit.pl line 222 (#3) (F) A value used as either a hard reference or a symbolic reference must be a defined value. This helps to delurk some insidious errors. Uncaught exception from user code: Can't use an undefined value as a symbol reference at ./DefMungeSplit.pl line 222. main::PrintLine(01, '0007110000000000021277 ...') called at ./DefMungeSplit.pl line 471 main::DoMainWork('1277 ...') called at ./DefMungeSplit.pl line 170 I define with "my" and use strict much higher in the script. This is a very small portion of the script. I do a "my ($i);" in the sub proc about 5 lines before the foreach. Didn't think the my embeded would work. Is it better? Thus spake Rob Nagler (nagler@bivio.com): > Couple of points... > > The specific error is caused by the lack of braces (see "print" doc): > > Note that if you're storing FILEHANDLES in an array or other > expression, you will have to use a block returning its value > instead: > > print { $files[$i] } "stuff\n"; > print { $OK ? STDOUT : STDERR } "stuff\n"; > > However, I don't understand how > > > if ($Handle{$RecNum} eq "T") { > print $Handle{$i} "$Line\n"; > } > > > Will every be executed, because > > $Handle{$i}="OUT"."$i"; > > Not sure what you want as the test case, but 'eq "T"' is probably not it. > > You should always use "my" and "use strict" imiho, e.g. > > foreach my $i (keys(%Records)) { > > I'm not sure what the first part: > > foreach my $i (keys(%Records)) { > $Handle{$i}="OUT"."$i"; > open($Handle{$i}, ">$Out.$i") || die "Can't open Outputfile $Out.$i :$!:\n"; > } > > is doing, because you'll be overwriting the files in the second "foreach". > Perhaps this is just test code. > > Hope this helps, > Rob :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 Wed Jul 19 15:10:41 2000 From: nagler at bivio.com (Rob Nagler) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] hash for multiple filehandles? References: <20000629115406.I25702@rnd-consulting.com> <395B9E6F.DC96552B@bivio.com> <20000719120903.R17988@rnd-consulting.com> <3975F5BF.B7EF4443@bivio.com> <20000719132940.T17988@rnd-consulting.com> Message-ID: <39760B41.D72EE598@bivio.com> > What "print" doc? perldoc print? I'll check that when I get home. > For some ungodly reason, they refuse to let me put the perldoc, manpages, etc > on the boxes here. Don't need to install if you have the web: http://www.perl.com/pub/doc/manual/html/pod/perlfunc/print.html > print { $Handle{$i} } "$Line\n" if ($Records{$RecNum} eq "T"); > Use of uninitialized value at ./DefMungeSplit.pl line 222 (#2) > Can't use an undefined value as a symbol reference at ./DefMungeSplit.pl line > 222 (#3) Is it the $i instead of $RecNum? If you use -w and "use strict", perl will tell you that "$i" is not a declared variable. Perl SHOULD tell you what undefined value (variable) is causing the error, but it doesn't, unfortunately. Rob From Robert.L.Harris at rnd-consulting.com Wed Jul 19 15:35:05 2000 From: Robert.L.Harris at rnd-consulting.com (Robert L. Harris) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] hash for multiple filehandles? In-Reply-To: <39760B41.D72EE598@bivio.com>; from nagler@bivio.com on Wed, Jul 19, 2000 at 02:10:41PM -0600 References: <20000629115406.I25702@rnd-consulting.com> <395B9E6F.DC96552B@bivio.com> <20000719120903.R17988@rnd-consulting.com> <3975F5BF.B7EF4443@bivio.com> <20000719132940.T17988@rnd-consulting.com> <39760B41.D72EE598@bivio.com> Message-ID: <20000719143505.U17988@rnd-consulting.com> $i was instead of $RecNum, becuase I'm doing a "foreach $i (keys(%RecNum)) in there to hit all the Records to open. Changed a few things to line them up with the man page and now I have this: my (%Handle); my ($FileHandle)=Symbol::gensym(); . . . foreach $i (keys(%Records)) { $Handle{$i}="OUT"."$i"; $FileHandle=$Handle{$i}; open($FileHandle, ">$Out.$i") || die "Can't open Outputfile $Out.$i :$!:\n"; } and I get this error when I enable use strict: Can't use string ("OUT01") as a symbol ref while "strict refs" in use at ./DefMungeSplit.pl line 189 (#1) (F) Only hard references are allowed by "strict refs". Symbolic references are disallowed. See perlref. Uncaught exception from user code: Can't use string ("OUT01") as a symbol ref while "strict refs" in use at ./DefMungeSplit.pl line 189. main::OpenOutput called at ./DefMungeSplit.pl line 150 Robert Thus spake Rob Nagler (nagler@bivio.com): > > What "print" doc? perldoc print? I'll check that when I get home. > > For some ungodly reason, they refuse to let me put the perldoc, manpages, etc > > on the boxes here. > > Don't need to install if you have the web: > > http://www.perl.com/pub/doc/manual/html/pod/perlfunc/print.html > > > print { $Handle{$i} } "$Line\n" if ($Records{$RecNum} eq "T"); > > Use of uninitialized value at ./DefMungeSplit.pl line 222 (#2) > > Can't use an undefined value as a symbol reference at ./DefMungeSplit.pl line > > 222 (#3) > > Is it the $i instead of $RecNum? > > If you use -w and "use strict", perl will tell you that "$i" is not a declared > variable. > > Perl SHOULD tell you what undefined value (variable) is causing the error, > but it doesn't, unfortunately. > > Rob :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 jvanslyk at matchlogic.com Wed Jul 19 15:57:35 2000 From: jvanslyk at matchlogic.com (Jason Van Slyke) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] hash for multiple filehandles? Message-ID: <5FE9B713CCCDD311A03400508B8B30130171E26F@bdr-xcln.is.matchlogic.com> Rob, Thx, I needed that! Jason -----Original Message----- From: Rob Nagler [mailto:nagler@bivio.com] Sent: Wednesday, July 19, 2000 2:11 PM To: boulder-pm-list@happyfunball.pm.org Subject: Re: [boulder.pm] hash for multiple filehandles? > What "print" doc? perldoc print? I'll check that when I get home. > For some ungodly reason, they refuse to let me put the perldoc, manpages, etc > on the boxes here. Don't need to install if you have the web: http://www.perl.com/pub/doc/manual/html/pod/perlfunc/print.html > print { $Handle{$i} } "$Line\n" if ($Records{$RecNum} eq "T"); > Use of uninitialized value at ./DefMungeSplit.pl line 222 (#2) > Can't use an undefined value as a symbol reference at ./DefMungeSplit.pl line > 222 (#3) Is it the $i instead of $RecNum? If you use -w and "use strict", perl will tell you that "$i" is not a declared variable. Perl SHOULD tell you what undefined value (variable) is causing the error, but it doesn't, unfortunately. Rob From nagler at bivio.com Wed Jul 19 16:18:44 2000 From: nagler at bivio.com (Rob Nagler) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] hash for multiple filehandles? References: <20000629115406.I25702@rnd-consulting.com> <395B9E6F.DC96552B@bivio.com> <20000719120903.R17988@rnd-consulting.com> <3975F5BF.B7EF4443@bivio.com> <20000719132940.T17988@rnd-consulting.com> <39760B41.D72EE598@bivio.com> <20000719143505.U17988@rnd-consulting.com> Message-ID: <39761B34.774D7FD9@bivio.com> > $Handle{$i}="OUT"."$i"; > $FileHandle=$Handle{$i}; > open($FileHandle, ">$Out.$i") || die "Can't open Outputfile $Out.$i :$!:\n"; > } You'll need to use the "sym" generated, e.g. my($HandleBase) = __PACKAGE.'::Handle'.Symbol::gensym(); my(%Handle); foreach my $i (1..MAX-RECORDS) { $Handle{$i} = \*{$HandleBase.$i}; } This will happen at initialization. They you can use the handles like: open($Handle{$i}, ">$Out.$i") || die...; > Can't use string ("OUT01") as a symbol ref while "strict refs" in use at > ./DefMungeSplit.pl line 189 (#1) That's because it isn't a ref. The \* makes it a glob ref, which is an ancient artifact of perl. I'm not sure where you're going with all this, but you may want to look into IO::File. It's a cleaner way to manage files in many cases. Rob From scholarships at erols.com Thu Jul 20 15:09:55 2000 From: scholarships at erols.com (scholarships@erols.com) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] Tuition-Free Computer and IT Training for Non-Profit Employees Message-ID: <539.856047.170252@yahoo.com> Tuition-Free Computer and IT Training for Non-Profit Employees Dear Non-Profit Employee, Most non-profit employees want to improve their computer skills. However, high cost of training and a busy schedule have held them back. Now, the National Education Foundation (NEF) CyberLearning, a non-profit organization, dedicated to bridging the "Digital Divide," offers the Nation's non-profit employees a unique opportunity. With the support of Microsoft and others, NEF CyberLearning is now able to offer full tuition scholarships of $2,000 to the first 10,000 applicants, thus enabling them to take any or all of the 400+ Internet-based online personal computing and computer professional courses from anywhere at any time. The high-quality, user-friendly courses are either self-study or instructor-led. They cover all levels and almost all topics, including Computer Basics, Internet Basics, Web Design Basics, Networking Basics, Programming Basics, A+, Network+, MCSE, CNE, Microsoft Office, MOUS, WordPerfect, Lotus, Operating Systems, Windows, Windows 2000, Linux, Unix, Networking, WAN, LAN, Programming, Java, C++, Visual Basics, Internet, Web Design, Web Applications, Web Master, E-commerce, Databases, Oracle and Cisco. To sign up, just visit www.cyberlearning.org, click on "Free IT Training," complete the application and pay a nominal registration fee of $75 with an organization/personal credit card. This $75 is your only cost, since the tuition is free for you. Many non-profit organizations reimburse the $75. You can receive immediate access to all 400+ online courses, an online library of the latest 1,000+ computer/information technology books, instructor assistance, course-specific chat areas and round the clock technical support. Please feel free to forward this information to interested colleagues and others in non-profit organizations. If your department or division wants to sign up a group of employees, please indicate so in your reply and provide contact information. If you received this e-mail, it is because you are listed as a contact person or employee of a non-profit organization. If you do not wish to receive any further scholarship information from us, please reply with the message, "remove" in the Subject line. Thank you. The non-profit National Education Foundation (NEF) CyberLearning has provided tuition-free IT training to thousands of students, teachers, government and non-profit employees and disadvantaged individuals. It has earned many distinctions including "The Ivy League of IT Training," "1995 Fairfax Human Rights Award Winner," and " A Leader in Bridging the Digital Divide." "You are helping to empower America. I salute you for your ongoing commitment to creating a better America," --- President Clinton "This is an awesome opportunity." --- Washingtonjobs.com "Microsoft is pleased to play a part ... NEF can make a positive difference in the lives of a great number of individuals." --- Microsoft "I have found the CyberLearning online courses to be extremely easy and useful. I liked pre-course self-assessment and IT books online and available 24/7. The course screens were interactive and made me feel as if I was in the application itself. The site looks and feels very professional. The list of courses is huge. It includes something for almost everyone. I find this to be a very worthy cause." --- Ken Horowitz, IT Training Coordinator. From walter at frii.com Mon Jul 24 08:23:47 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] Forwarded mail.... Message-ID: Hi, An administrative FYI. If anyone is having problems because of this, please let me know. In any case, the conference was a good one. Lots of stuff, but right now, it's back to 1,800 e-mail messages. Walter ---------- Forwarded message ---------- Date: Sat, 22 Jul 2000 14:01:55 -0400 (EDT) From: pmadmin@happyfunball.pm.org Hello, You are receiving this email because you are the list owner of a mailing list on hfb.pm.org. Due to recent spam complaints by members of multiple mailing lists, and the recent use of many of our lists as a target address by a spammer, I have "closed" all mailing lists. This will affect a some of your members. Some people send mail from a different address than the one they are subscribed as. These members will no longer be able to post messages to the list. The simplest solution is for them to post from where the subscribed from. Contact hfb_admin@pm.org for help with those who can't get their mail "right". Wayne Walker Admin for hfb.pm.org From walter at frii.com Fri Jul 28 11:21:48 2000 From: walter at frii.com (Walter Pienciak) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] conference presentations are "available" Message-ID: Hi, Not everything is on-line, but you can get a few of the presentations from the Monterey conference under http://www.oreillynet.com/pub/w/wed_aag.html http://www.oreillynet.com/pub/w/thur_aag.html I'm hoping more appear, and there are definitely a few talks NOT available where the presenter said he'd given his files to O'Reilly. Maybe they're behind. I think one of general interest might be Randal Schwartz's talk on secure CGI scripting (which I didn't attend): ftp://ftp.oreilly.com/pub/conference/oscon2000/829/Schwartz.pdf In any case, there it is. A URL to start rooting around from. On a really sluggish FTP server. Walter From asherman1 at uswest.net Fri Jul 28 14:27:41 2000 From: asherman1 at uswest.net (arnie) Date: Wed Aug 4 23:58:22 2004 Subject: [boulder.pm] filehandle question Message-ID: <3981DEAD.CF5D96BF@uswest.net> Hi, I have been working on a perl script to telnet to a remote server and append the contents of a log file into another file. I am using the Net::Telnet module to connect to the server and cd to the proper directory. I then try to open a filehandle to read the logfile, and another to write to w/ the following syntax: open (IN, "< logfile"); open (OUT, ">> newlogs.txt"); system("cat logfile >> newlogs.txt"); close IN; close OUT; The problem I seem to be having is that the filehandles are opening on the local filesystem. I get an error that logfile cannot be opened, and a zero k newlogs.txt file on the local filesystem. What I'd like to do is read and write on the remote machine, and then I will retrieve the file by FTP. I can do things like ls and pwd on the remote machine, but cannot seem to figure out how to read & append the remote file. I have tried using the filehandles IN & OUT as well as the actual filenames as shown above, w/ no luck. Any suggestions will be greatly appreciated. thanks -- arnie sherman frenomulax@bigfoot.com "I'm only Bob Dylan when I have to be." - Bob Dylan