[28790] in Perl-Users-Digest
Perl-Users Digest, Issue: 34 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jan 16 03:05:53 2007
Date: Tue, 16 Jan 2007 00:05:06 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 16 Jan 2007 Volume: 11 Number: 34
Today's topics:
Re: Any buddy looking for Job in software testing <spamtrap@dot-app.org>
converting a perl script <andy@westmidland-internet.co.uk>
Re: converting a perl script usenet@DavidFilmer.com
Re: how to "see" DOS errorlevel codes? <glex_no-spam@qwest-spam-no.invalid>
Re: How to create a binary file from a perl pgm <spamtrap@dot-app.org>
Re: How to insert or append new items into a perl hash <news@lawshouse.org>
Re: How to insert or append new items into a perl hash <kkeller-usenet@wombat.san-francisco.ca.us>
launch simple perl script from browser <kenny1313@web.de>
Re: launch simple perl script from browser <tadmc@augustmail.com>
Re: launch simple perl script from browser usenet@DavidFilmer.com
Re: launch simple perl script from browser <john@castleamber.com>
Re: launch simple perl script from browser <see.sig@rochester.rr.com>
Re: launch simple perl script from browser krakle@visto.com
Map Windows from Unix <minhaztuhin@hotmail.com>
Re: Map Windows from Unix <spamtrap@dot-app.org>
Re: My program dies. <justin.0511@purestblue.com>
Re: My program dies. <ppluzhnikov-nsp@charter.net>
Re: My program dies. <john@castleamber.com>
Re: My program dies. <krivenok.dmitry@gmail.com>
Re: Parsing some input - easy to explain but lengthy to anno4000@radom.zrz.tu-berlin.de
Re: Perl free e-books <spamtrap@dot-app.org>
Problem install GCJ-Cni module <songtao32@gmail.com>
Re: Problem install GCJ-Cni module <spamtrap@dot-app.org>
Re: Runs Fine In Perl :: Not As Cron Job <tadmc@augustmail.com>
Re: Runs Fine In Perl :: Not As Cron Job <mritty@gmail.com>
Re: Runs Fine In Perl :: Not As Cron Job <jwkenne@attglobal.net>
Re: Skip non english character values aaron80v@yahoo.com.au
Re: Skip non english character values aaron80v@yahoo.com.au
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 16 Jan 2007 00:19:40 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Any buddy looking for Job in software testing
Message-Id: <m2mz4j8s5v.fsf@Sherm-Pendleys-Computer.local>
fhk6431@gmail.com writes:
> My company is aggresively looking for people to hire in software
> testing.. New graduates are welcome. You need to know how to do
> whitebox and blackbox testing. Also have previous experience in writing
> testcases in perl or any other language.
You seriously think I'm going to work for someone who a) can't find the
proper group in which to post a job listing, and b) can't be bothered to
review that listing for major spelling and grammatical errors?
> Contact me at fhk6431@gmail.com
I don't think so. I do need contract work, but not that badly.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 15 Jan 2007 23:20:22 GMT
From: Andy T <andy@westmidland-internet.co.uk>
Subject: converting a perl script
Message-Id: <7q2oq2pfg9u64921v0gfmg7l49lgp9f4a4@4ax.com>
Hi
forgive me if I seem a bit dumb but at my age its allowed.
I havea script called bignosebird which I adapted to send me some info
about people booking in for a race meeting. (radio controlled cars)
I have just been told I am using form mail so I need to change it so I
am using nms formmail instead of PHP3 but none of it makes sense?
(they said its a spam engine)
Has any one got a few mins to check out what I need to do so I can
get it clear in my mind please??
If you mail me I will send you the URL of my booking form to see if
you can understand what I am trying to achive and how I can integrate
this nms formmail.
Thanks in advance!
Regards Andy T
--
For users by users - BY-users group
<http://www.by-users.co.uk>
------------------------------
Date: 15 Jan 2007 15:42:09 -0800
From: usenet@DavidFilmer.com
Subject: Re: converting a perl script
Message-Id: <1168904529.188389.290660@51g2000cwl.googlegroups.com>
Andy T wrote:
> I havea script called bignosebird which I adapted to send me some info
> about people booking in for a race meeting. (radio controlled cars)
Hmmm. The name of your script suggest it originally came from
http://bignosebird.com (a somewhat outdated script site).
> I have just been told I am using form mail so I need to change it so I
> am using nms formmail instead of PHP3 but none of it makes sense?
"form mail" is a script on Matt's Script Archive (MSA,
http://www.scriptarchive.com/). This site has no association with
bignosebird, so the justaposition of the two names is somewhat
confusing. And neither bignosebird nor MSA (to my knowledge) ever
published programs for the PHP3 language, which adds to the confusion.
Matt Wright (the MSA guy) wrote and published some scripts back in the
mid-90's. They weren't very good scripts (as even Matt himself now
admits). Some PerlMongers established a project (nms) to completely
rewrite the MSA scripts, but make them drop-in replacements for MSA.
If you did get your mail script from MSA then you really should replace
it with the nms counterpart:
http://nms-cgi.sourceforge.net/scripts.shtml
Because nms is a drop-in replacement, the only thing you need to do is
overwrite your MSA-version of formmail.pl (or whatever you called it)
with the nms version that you can download from the website above. You
don't need to edit any code. It's a two-minute fix which will close
the holes in MSA formmail.pl.
If, however, you really ARE using a bignosebird script, the above
probably will not apply.
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Mon, 15 Jan 2007 18:13:36 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: how to "see" DOS errorlevel codes?
Message-Id: <45ac180f$0$63458$815e3792@news.qwest.net>
Paul Lalli wrote:
> J. Gleixner wrote:
>> Rossman123 wrote:
>> [...]
>>> How can I find out what code was returned, after I do an xcopy using
>>> the Perl system command?
>>> My code looks like this:
>>> system ("xcopy /E /Y /F /I /D $source $destination");
>> By actually examining what system returns.
>>
>> Try the documentation.
>>
>> perldoc system
>
> perldoc -f system
> is what J means, I'm sure.
D-oah!.. Yep. Thanks
------------------------------
Date: Tue, 16 Jan 2007 00:28:31 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: How to create a binary file from a perl pgm
Message-Id: <m2ejpv8rr4.fsf@Sherm-Pendleys-Computer.local>
"ranrodrig" <ranrodrig@gmail.com> writes:
> Folks, I know that you can create a binary file from a Perl pgm
What's a "pgm"?
> I've already search about how to this with no luck, so I thank you in
> advance for you patience & help with this.
You might try searching for the correct English words instead of baby-talk.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 15 Jan 2007 23:19:39 +0000
From: Henry Law <news@lawshouse.org>
Subject: Re: How to insert or append new items into a perl hash ?
Message-Id: <1168903172.35413.0@demeter.uk.clara.net>
Googy wrote:
> But when I return this hash form a subroutine, its not maintaining its
> structure. Why ?
You need to learn to read the documentation, and best of all get some
books or other learning aids. Google for them.
But the answer to your question is found in perldoc perlsub and is this:
subroutines only ever receive and return lists. So your hash is
flattened into a list on the way into and/or out of your subroutine. If
it's a simple {a=>"AA",b=>"BBB",z=>"foo"} hash then you may
coincidentally get away with it, but if it has a more complicated
structure than that it will be lost.
To do what you want you have to use a reference to the hash; too
complicated to explain here with your level of knowledge.
--
Henry Law Manchester, England
------------------------------
Date: Mon, 15 Jan 2007 15:36:08 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: How to insert or append new items into a perl hash ?
Message-Id: <8oft74xqm4.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-01-15, Googy <cooldudevamsee@gmail.com> wrote:
> But when I return this hash form a subroutine, its not maintaining its
> structure. Why ?
When you return which hash from which subroutine? Post real
code! (And read the Posting Guidelines while you're at it.)
Part of your answer is in
perldoc perlsub
In particular look for the word "flattened".
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: 15 Jan 2007 15:35:42 -0800
From: "kenny" <kenny1313@web.de>
Subject: launch simple perl script from browser
Message-Id: <1168904142.145539.256220@a75g2000cwd.googlegroups.com>
hi folks,
i have a very basic question:
how can i launch my perl script in the browser via address bar?
I used a shell with the command "perl x.pl" and it worked. the paths
seem to be set all right.... thx in advance....
yours, kenny ajram
------------------------------
Date: Mon, 15 Jan 2007 19:11:38 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: launch simple perl script from browser
Message-Id: <slrneqo9ia.8as.tadmc@tadmc30.august.net>
kenny <kenny1313@web.de> wrote:
> how can i launch my perl script in the browser
You can't.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 15 Jan 2007 17:33:18 -0800
From: usenet@DavidFilmer.com
Subject: Re: launch simple perl script from browser
Message-Id: <1168911198.134503.202550@m58g2000cwm.googlegroups.com>
kenny wrote:
> how can i launch my perl script in the browser via address bar?
file://c:\path\to\x.pl
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 16 Jan 2007 02:00:19 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: launch simple perl script from browser
Message-Id: <Xns98B9CB811D243castleamber@130.133.1.4>
Tad McClellan <tadmc@augustmail.com> wrote:
> kenny <kenny1313@web.de> wrote:
>
>> how can i launch my perl script in the browser
>
>
> You can't.
But I can :-)
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Mon, 15 Jan 2007 22:38:51 -0500
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: launch simple perl script from browser
Message-Id: <45ac48cb$0$16960$4c368faf@roadrunner.com>
kenny wrote:
...
> i have a very basic question:
>
> how can i launch my perl script in the browser via address bar?
>
> I used a shell with the command "perl x.pl" and it worked. the paths
> seem to be set all right.... thx in advance....
>
>
> yours, kenny ajram
>
Well, one way would be to install a web server on your system. Modify
the Perl script to function as a CGI program. On a typically-configured
web server, you can then run your script with something like
http://localhost/x.pl
HTH
BTW, if you need a free web server, I've got a 51-line Perl one.
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: 15 Jan 2007 19:49:26 -0800
From: krakle@visto.com
Subject: Re: launch simple perl script from browser
Message-Id: <1168919366.582449.302060@q2g2000cwa.googlegroups.com>
On Jan 15, 7:11 pm, Tad McClellan <t...@augustmail.com> wrote:
> kenny <kenny1...@web.de> wrote:
> > how can i launch my perl script in the browser
>
>You can't.
>
You can't? But you can... Here's a tutorial that explains how you can
take advantage of your Web Browser so you can use HTML GUIs. It also
tells you how to you can bundle up everything in a nice EXE...
http://simon-cozens.org/programmer/articles/webgui.pod
------------------------------
Date: 15 Jan 2007 18:29:47 -0800
From: "Tuhin" <minhaztuhin@hotmail.com>
Subject: Map Windows from Unix
Message-Id: <1168914587.000083.127320@a75g2000cwd.googlegroups.com>
Hi Mark,
Here is what I am doing now:
Step 1. Every month, I receive data on CD from another department.
Step 2. Using Windows Explorer, I copy those data in the appropriate
directory on a remote Unix server.
Step 3. Then I connect to the Unix server using Exceed On Demand.
Step 4. Then I run a Perl script (which I wrote on the Unix server) to
generate some reports from those data.
Now, here is what I am trying to do:
I like to do Step 1 while sitting on the Unix server so that when I
will run my Perl script, first it will prompt to copy the data from the
CD. CD ROM is connected with the PC.
Since I am new in the Perl world, my idea is, sitting on the Unix
server if I can open the Windows Explorer (or any file selection dialog
box that will display the directory structure of the PC), then I will
be able to copy the data from the CD using my Perl script.
Thanks for your time.
Tuhin
------------------------------
Date: Tue, 16 Jan 2007 00:44:25 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Map Windows from Unix
Message-Id: <m2zm8j7cg6.fsf@Sherm-Pendleys-Computer.local>
Andrew DeFaria <Andrew@DeFaria.com> writes:
> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
>
>
>
>
>
>
> Tuhin wrote:
> <blockquote
> cite="mid1168914587.000083.127320@a75g2000cwd.googlegroups.com"
Please stop posting HTML gibberish. This is not the web, and your posting
style is very annoying to those of us who actually know what we're doing.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 15 Jan 2007 23:20:34 -0000
From: Justin C <justin.0511@purestblue.com>
Subject: Re: My program dies.
Message-Id: <slrneqo322.a0k.justin.0511@stigmata.purestblue.com>
On 2007-01-15, krivenok.dmitry@gmail.com <krivenok.dmitry@gmail.com> wrote:
> Hello All!
>
> Any ideas?
Yeah, post some code.
Justin.
--
Justin C by the sea.
------------------------------
Date: Mon, 15 Jan 2007 19:10:29 -0800
From: Paul Pluzhnikov <ppluzhnikov-nsp@charter.net>
Subject: Re: My program dies.
Message-Id: <m3ac0jwtsq.fsf@somewhere.in.california.localhost>
krivenok.dmitry@gmail.com writes:
> My server dies after some time :(
And so it should; it has at least 2 bugs (as posted).
> I can't understand how can parent process die!
Hint: what happens when fork fails ?
The reason fork should fail (given your pseudo-code):
from "perldoc -f fork":
If you "fork" without ever waiting on your children, you will
accumulate zombies.
Hint: zombies exhaust your per-user process limit, and kernel
process table.
Cheers,
--
In order to understand recursion you must first understand recursion.
Remove /-nsp/ for email.
------------------------------
Date: 16 Jan 2007 04:04:44 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: My program dies.
Message-Id: <Xns98B9E0994CBE2castleamber@130.133.1.4>
Paul Pluzhnikov <ppluzhnikov-nsp@charter.net> wrote:
> Hint: zombies exhaust your per-user process limit, and kernel
> process table.
And they eat the flesh of the living...
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: 15 Jan 2007 22:40:44 -0800
From: "Krivenok Dmitry" <krivenok.dmitry@gmail.com>
Subject: Re: My program dies.
Message-Id: <1168929644.022053.160860@q2g2000cwa.googlegroups.com>
John Bokma wrote:
> Paul Pluzhnikov <ppluzhnikov-nsp@charter.net> wrote:
>
> > Hint: zombies exhaust your per-user process limit, and kernel
> > process table.
It's impossible.
There is SIGCHLD handler in my code.
ps output doesn't show any zombies.
>
> And they eat the flesh of the living...
>
> --
> John Experienced Perl programmer: http://castleamber.com/
>
> Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: 16 Jan 2007 00:28:23 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Parsing some input - easy to explain but lengthy to code - suggestions?
Message-Id: <512kh7F1hpme4U1@mid.dfncis.de>
doolittle <spam.meplease@ntlworld.com> wrote in comp.lang.perl.misc:
> anno4000@radom.zrz.tu-berlin.de wrote:
> > Bob Walton <see.sig@rochester.rr.com> wrote in comp.lang.perl.misc:
> > > doolittle wrote:
> > > > Hi,
> > > >
> > > > I have to check that some input conforms to some rules. Although the
> > > > rules are simple to expain, my perl function looks too complex/long,
> > > > can it be done more simply?
> > > >
> > > > The rule is that the first character must be a letter, and the second
> > > > and third characters must form a number between 1 and 25 (so the third
> > > > character is optional)
> > > >
> > > Try:
> > >
> > > use warnings;
> > > use strict;
> > > while(<DATA>){
> > > chomp;
> > > print "$_->".isOK($_)."\n";
> > > }
> > > sub isOK{
> > > my $str=shift;
> > > if($str=~/^[a-z](\d\d?)/i){
> > > return(($1>0 and $1<26)?1:0);
> > > }
> > > else{return 0}
> > > }
> > > __END__
> >
> > [data snipped]
> >
> > That's still more complicated than it has to be. Neither "if {} else
> > {}" nor the "?:" construct are necessary:
> >
> > sub is_ok {
> > shift =~ /^[a-z](\d\d?)/i and 1 <= $1 and $1 <= 25;
> > }
> >
> > The only difference is that your routine returns 0 for false while
> > is_ok() returns Perl's boolean false which prints as an empty string.
> >
> > Anno
> >
> > --
> > $anagram = 'Knuth heals rare project'; # by Abigail
> > push @{ $pos{ $_}}, $pos ++ for split //, lc $anagram;
> > print "print +(split //, '$anagram')[ $_]\n" for
> > join ', ', map shift @$_, @pos{ split //, lc "Just another Perl hacker"};
>
> Thanks for the suggestions everyone.
>
> This looks the shortest:
>
> sub is_ok {
> shift =~ /^[a-z]([1-9]\d?)$/i and 1 <= $1 and $1 <= 25;
> }
If you have the numeric tests you don't have to special-case
the first digit. Any one-or-two-digit number will be sufficiently
checked. That makes the regex clearer. Using a posix character
class instead of /[a-z]/i makes it still clearer but changes
the semantics slightly. Untested:
shift =~ /^[[:alpha:]](\d{1,2})/ and 1 <= $1 and $1 <= 25;
Anno
>
> I changed it slightly from your original to deal with the fact that Q01
> is not allowed, nor is Q123 (no trailing characters)
>
------------------------------
Date: Tue, 16 Jan 2007 00:23:55 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Perl free e-books
Message-Id: <m2irf78rys.fsf@Sherm-Pendleys-Computer.local>
Michele Dondi <bik.mido@tiscalinet.it> writes:
> On Fri, 12 Jan 2007 11:08:16 -0500, Uri Guttman <uri@stemsystems.com>
> wrote:
>
>> SS> I just wanna make the format of my message as "Times New Roman", not the
>> SS> default format of Plain Text file.
>>
>>STOP TOP POSTING.
>>
>>and usenet is a PLAIN TEXT only medium. no one cares about your
>>formatting requests. html IS NOT ACCEPTED.
>
> Whoa! So Uri does have a shift key...
> ;-)
Or a shift-lock key, at least. :-)
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: 15 Jan 2007 15:08:03 -0800
From: "songtao32@gmail.com" <songtao32@gmail.com>
Subject: Problem install GCJ-Cni module
Message-Id: <1168902483.424941.309780@11g2000cwr.googlegroups.com>
Hi,
I try to install GCJ::Cni module and got the following error:
[root@perl_module GCJ-Cni-0.03]# ./Build
gcc -I/usr/lib/perl5/5.8.5/i386-linux-thread-multi/CORE
-DXS_VERSION="0.03" -DVERSION="0.03" -fPIC -x c++ -include gcj/cni.h -c
-D_REENTRANT -D_GNU_SOURCE -DDEBUGGING -fno-strict-aliasing -pipe
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
-I/usr/include/gdbm -O2 -g -pipe -m32 -march=i386 -mtune=pentium4 -o
lib/GCJ/Cni.o lib/GCJ/Cni.c
Cni.xs: In function `void _wrap_JvCreateJavaVM(PerlInterpreter*, CV*)':
Cni.xs:1060: error: `JvVMInitArgs' undeclared (first use this function)
Cni.xs:1060: error: (Each undeclared identifier is reported only once
for each function it appears in.)
Cni.xs:1060: error: `arg1' undeclared (first use this function)
Cni.xs:1060: error: expected primary-expression before ')' token
Cni.xs:1060: error: expected `;' before numeric constant
error building lib/GCJ/Cni.o from 'lib/GCJ/Cni.c' at
/usr/lib/perl5/site_perl/5.8.5/ExtUtils/CBuilder/Base.pm line 108.
Could you give some suggestions? Thanks a lot for help!
Regards,
Tao
------------------------------
Date: Tue, 16 Jan 2007 00:40:56 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Problem install GCJ-Cni module
Message-Id: <m24pqr8r6f.fsf@Sherm-Pendleys-Computer.local>
"songtao32@gmail.com" <songtao32@gmail.com> writes:
> Hi,
>
> I try to install GCJ::Cni module and got the following error:
>
> [root@perl_module GCJ-Cni-0.03]# ./Build
> gcc -I/usr/lib/perl5/5.8.5/i386-linux-thread-multi/CORE
> -DXS_VERSION="0.03" -DVERSION="0.03" -fPIC -x c++ -include gcj/cni.h -c
> -D_REENTRANT -D_GNU_SOURCE -DDEBUGGING -fno-strict-aliasing -pipe
> -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
> -I/usr/include/gdbm -O2 -g -pipe -m32 -march=i386 -mtune=pentium4 -o
> lib/GCJ/Cni.o lib/GCJ/Cni.c
> Cni.xs: In function `void _wrap_JvCreateJavaVM(PerlInterpreter*, CV*)':
> Cni.xs:1060: error: `JvVMInitArgs' undeclared (first use this function)
> Cni.xs:1060: error: (Each undeclared identifier is reported only once
> for each function it appears in.)
> Cni.xs:1060: error: `arg1' undeclared (first use this function)
> Cni.xs:1060: error: expected primary-expression before ')' token
> Cni.xs:1060: error: expected `;' before numeric constant
> error building lib/GCJ/Cni.o from 'lib/GCJ/Cni.c' at
> /usr/lib/perl5/site_perl/5.8.5/ExtUtils/CBuilder/Base.pm line 108.
>
> Could you give some suggestions? Thanks a lot for help!
Just a guess - I haven't tried building this module myself, nor have I used
GCJ (GNU Compiler for Java, for those who don't know that).
I suspect a mismatch between the version of GCJ you're using and the one that
the module expects. I'm basing that guess on the fact that I'm not seeing a
missing header error; the module is finding the header it expects, but it's
having problems using it. That's often a sign of a version mismatch between
the API that's expected and one that's actually declared in the header file.
But again, that's just a guess on general principle, not specific experience
with GCJ, so take it with a grain of salt.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 15 Jan 2007 19:06:05 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Runs Fine In Perl :: Not As Cron Job
Message-Id: <slrneqo97t.8as.tadmc@tadmc30.august.net>
Paul Lalli <mritty@gmail.com> wrote:
> Bucker wrote:
>> system("cd /home/website/www/htdocs/batch/");
>
> This is a no-op. It does absolutley nothing worth mentioning.
So the OP should use Perl's builtin operator for changing
the current working directory:
perldoc -f chdir
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 15 Jan 2007 18:16:43 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Runs Fine In Perl :: Not As Cron Job
Message-Id: <1168913803.601517.198290@l53g2000cwa.googlegroups.com>
Tad McClellan wrote:
> Paul Lalli <mritty@gmail.com> wrote:
> > Bucker wrote:
>
> >> system("cd /home/website/www/htdocs/batch/");
> >
> > This is a no-op. It does absolutley nothing worth mentioning.
>
> So the OP should use Perl's builtin operator for changing
> the current working directory:
>
> perldoc -f chdir
Well, in the general case, yes. But in the OP's specific example,
there was no reason to change directory at all, as he specified the
full path to the file to unzip in the second system() call.
Paul Lalli
------------------------------
Date: Mon, 15 Jan 2007 21:20:29 -0500
From: "John W. Kennedy" <jwkenne@attglobal.net>
Subject: Re: Runs Fine In Perl :: Not As Cron Job
Message-Id: <WDWqh.286$wV5.210@newsfe10.lga>
Paul Lalli wrote:
> Tad McClellan wrote:
>> Paul Lalli <mritty@gmail.com> wrote:
>>> Bucker wrote:
>>>> system("cd /home/website/www/htdocs/batch/");
>>> This is a no-op. It does absolutley nothing worth mentioning.
>> So the OP should use Perl's builtin operator for changing
>> the current working directory:
>>
>> perldoc -f chdir
>
> Well, in the general case, yes. But in the OP's specific example,
> there was no reason to change directory at all, as he specified the
> full path to the file to unzip in the second system() call.
But not the path to output to.
--
John W. Kennedy
"The blind rulers of Logres
Nourished the land on a fallacy of rational virtue."
-- Charles Williams. "Taliessin through Logres: Prelude"
------------------------------
Date: 15 Jan 2007 22:14:43 -0800
From: aaron80v@yahoo.com.au
Subject: Re: Skip non english character values
Message-Id: <1168928083.644798.189120@51g2000cwl.googlegroups.com>
Michele Dondi wrote:
> On 13 Jan 2007 00:48:40 -0800, aaron80v@yahoo.com.au wrote:
>
> >I will try to compliant to guide as much as possible. Perhaps it would
>
> You didn't try hard, did you? You missed the very first step, i.e. you
> failed to properly quote the post you're replying to...
>
>
> Michele
Hi Michele,
Those things include:
1. not use strict and warnings
2. using inconsident indentation
3. not posting sample input
4. not posting desired output
5. not posting actual output
6. not quoting the material you're replying to.
7. not posting a short-but-COMPLETE script
Sure.. Got your point...
------------------------------
Date: 15 Jan 2007 22:49:38 -0800
From: aaron80v@yahoo.com.au
Subject: Re: Skip non english character values
Message-Id: <1168930178.486896.168870@s34g2000cwa.googlegroups.com>
Joe Smith wrote:
> aaron80v@yahoo.com.au wrote:
>
> > 1. Multiple Excel files with different fields which I need to clean and
> > keep them delimited (^) before importing to a database.
>
> If your data is delimiter by '^', then you should tell perl to use '^'
> as the input record separator.
>
> > 2. Any fields can have \n and can have it more than once.
> > 3. The job is to remove all \n except the actual \n at the end of the
> > last field.
>
> You could eliminate them all, then add back the one that should be there.
>
> > 4. If encounter other non English characters such as Jap, Korean,
> > Chinese, report the line where they occur before replacing them with
> > phrases such as "Japanese Characters", "Korean Characters", "Chinese
> > Characters" etc.
>
> Here's an example on how to reject (or to mark) characters that are
> not alphanumunderscore, not blanks, not '^'.
>
> Cygwin% cat test.pl
> #!/usr/bin/perl
> use strict; use warnings;
>
> $/ = '^'; # Use caret as record terminator on input
> while (<DATA>) {
> s/\s+/ /gs; # Convert newline and other spacing to single space
> s/([^\w\s^])/sprintf "(%02x)",ord $1/eg; # Mark unexpected characters
> print;
> }
> print "\n";
>
> __DATA__
> AAA^ BBB^ CCC^ DDDaa
>
> DDDbb
> DDDcc
>
> DDDdd DDDee
> DDDff
>
> DDDgg^EEE^FFF^??????^GGG^HHH
> Cygwin% perl test.pl
> AAA^ BBB^ CCC^ DDDaa DDDbb DDDcc DDDdd DDDee DDDff DDDgg^EEE^FFF^(3f)(3f)(3f)(3f)(3f)(3f)^GGG^HHH
> Cygwin%
>
>
> -Joe
Thanks Joe, your code is good but it doesn't differentiate the \n at
the end of the record (in this case at the end of HHH) and therefore
removes it.
It's good for me to draw it out...
Col1 || Col 2 || Col 3 || Col 4
=====================================================
111^ AAA BBB CCC\n 333^ ZZZ\n (end of record)
DDD\n
EEE FFF GGG^
The intention is to remove only \n after CCC and DDD.
Aaron
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 34
*************************************
