[11735] in Perl-Users-Digest
Perl-Users Digest, Issue: 5335 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 9 00:07:34 1999
Date: Thu, 8 Apr 99 21:00:20 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 8 Apr 1999 Volume: 8 Number: 5335
Today's topics:
Re: capture output to a file (Sam Holden)
Re: Connecting to Oracle 8 database from Perl via web s <glzhang@263.net>
Re: Danger! Near-clueless newbie with a technical ques (Sam Holden)
email an email notification. rajeshn@my-dejanews.com
Re: email an email notification. (Sam Holden)
Re: Getting info out of acees Databases <pjh@cstone.net>
Re: HELP with Subsitution (Larry Rosler)
Re: HELP with Subsitution <dwight@trumbower.com>
Re: HELP with Subsitution (Larry Rosler)
Re: HELP with Subsitution (Larry Rosler)
Re: HELP with Subsitution (Sam Holden)
Re: HELP with Subsitution <dwight@trumbower.com>
Re: HELP with Subsitution (Dmitry Epstein)
Re: Help! Missing first line..... <jdf@pobox.com>
Re: How do I turn this 1000000 into this 1,000,000 in P (Scott Renton)
Re: How do I turn this 1000000 into this 1,000,000 in P <mpullen@midwest.net>
Re: How to pass parameters for perl programs under Acti <pjh@cstone.net>
Re: Newbie question: Why does this loop only print thre (Scott Renton)
Re: Perl and Personal Web Server <cyberjeff@sprintmail.com>
Re: Privacy for slaves forced to use a proxy/firewall t foj@nym.alias.net
Re: Privacy for slaves forced to use a proxy/firewall t foj@nym.alias.net
Re: Problems connecting to Oracle 8 from Perl using DBI (Nick Kean)
Re: Problems connecting to Oracle 8 from Perl using DBI <thill@ij.net>
Re: RA/RAM, Plugin Handling with PERL (newbie) <pelkeyc@geocities.com>
Re: SORT BY DATE (Larry Rosler)
Re: Trouble with DBI and Oracle - temp.mail2 (0/1) (Darren Greer)
Re: Where to start with Perl <glzhang@263.net>
Re: Why doesn't \n work <glzhang@263.net>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 9 Apr 1999 02:43:52 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: capture output to a file
Message-Id: <slrn7gqqb7.iqj.sholden@pgrad.cs.usyd.edu.au>
On Fri, 09 Apr 1999 00:48:37 GMT, George Barrinuevo <georgeb@xylan.com> wrote:
>This is a multi-part message in MIME format.
>--------------876726DB29F362BC4DEF1B6B
>Content-Type: text/plain; charset=us-ascii
>Content-Transfer-Encoding: 7bit
>
>I have a question about Perl. In Bourne shell the program would look
>like this:
> #!/bin/sh
> # capture all stdout and stderr to capture.txt file
> exec > capture.txt 2>&1
>
>Essentially, I am using "exec" from Bourne shell to capture all stdout
>and stderr to a file. What would be the equivalent command in PERL? If
>you reply, please forward a copy to georgeb@xylan.com since I do not
>frequent these news groups often.
perlfaq8 : How can I capture STDERR from an external command?
Not exactly what you want, but a good start (and you did use the keyword
'capture' so 'perldoc -q capture'. It as an aside shows how to shows that
changing file descriptors before the call doesn't work, and in doing
so shows you how to redirect STDOUT.
So looking up the documentation on that function gives you your answer, with a
whole bunch of example code...
perldoc -f open
--
Sam
Perl was designed to be a mess (though in the nicest of possible ways).
--Larry Wall
------------------------------
Date: Fri, 9 Apr 1999 10:15:50 +0800
From: "AzJ.H}" <glzhang@263.net>
Subject: Re: Connecting to Oracle 8 database from Perl via web server
Message-Id: <7ejosg$86d$1@cag.seu.edu.cn>
you should use DBD,DBI,please http://www.perl.org
you will find something.....
Alex Farber wrote in message <37000539.E49FFC91@kawo2.rwth-aachen.de>...
>Bill Morgan wrote:
>>
>> I am running Netscape Enterprise Server 3.6 under
>> NT 4.0 with service pack 4. I am using Active
>> State Perl to connect to an Oracle 8 database via
>> ODBC. Is there a better way to connect to Oracle
>> from Perl under NT such as using native Oracle
>
>http://www.arcana.co.uk/technologia/perl/DBI/doc/tpj5/
------------------------------
Date: 9 Apr 1999 02:30:41 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Danger! Near-clueless newbie with a technical question
Message-Id: <slrn7gqpig.iqj.sholden@pgrad.cs.usyd.edu.au>
On Thu, 8 Apr 1999 20:27:51 -0400, Sandra Carson <SDC@voicenet.com> wrote:
>Greetings all. I am new to the Perl language but pretty competent in both C
>and C++ and I am trying to do some bioinformatics-oriented type programming.
>I'm hoping that someone can point me in the right direction.
>
>I want to convert an input DNA sequence file into an output file in what's
>called "fasta" format. The input file may contain one or more lines of text
>and line numbers as well as spaces within the DNA sequence (strings of
>'ACGT' in some order). "fasta" format contains a single line at the
>beginning of the file which begins with the symbol '>' and some descriptive
>text (which is not actually necessary). The sequence is then given as lines
>of characters, without spaces, and each line <80 characters long".
>
>So, I want to:
>a) read in a file ('filename.nuc')
There is plenty of documentation on how to read from a file in the
documentation that comes with perl.
But you should use STDIN, see the two rants below for why. (why do I always
seem to respond to posts backwards...)
>b) strip any extraneous text from the beginning of the file
You need to define what the extraneous text is, or how it is seperated from
the actual DNA sequence. Is there a blank line? Are there some dashes on a line
by themselves?
Then simply skip over the input until you reach the seperator. Every else is
now the sequence.
>c) add the '>' line
print ">$description\n";
>d) remove spaces and line numbers from the sequence
Since you have skipped over the non-sequence lines, you only have sequence
text left so the simplest method is to strip everything that isn't what you
want.
tr/ACGT//cd;
Read about tr in 'perldoc perlop'
Then print out the sequence in chunks of less than 80 chars. substr might be
useful for that, have a look in 'perldoc -f substr'.
>e) output the results into a second file ('filename.seq')
Please don't (see my rant below (which I wrote first) to see why). You are
taking a sequence as input, and outputing a single sequence (in a different
format). So take the sequence on STDIN and output it on STDOUT. Maybe add
a '-o filename' option to allow output to a file (or just let the user use
redirection in their shell).
It is much much much more convenient to write your program as a pipe when it
fits the model of a pipe. Your users will be grateful later (in fact they won't
but they won't be angry when they have to jump through hoops to use your
program).
In the future someone will want to use some strange program that takes some
strangely formatted file as input. They will have a tool to convert from fasta
to that format. The data they have will be in the format you are converting
from. Using your method of output they will need to do something like :
mkdir /tmp/<some unique directory>
cd /tmp/<some unique directory>
cp <original file> filename.nuc
<run your program>
cp filename.seq <file required by other conversion program>
<run other program>
cp <file created by other program> <output file we want>
<delete the working files>
rmdir /tmp/<some unique directory>
If the software was written using pipes (it is after all a simple filter) we
would simply have :
your_program <input.file | other_conversion_program >outpt.file
Much simpler. Much faster (RAM is faster than disk I promise...).
If you really must then there is lots of documentation about opening files
for writing, and outputting to them in the perl documentation.
'perldoc -f open' might be useful.
>
>Any suggestions/hints/pointers would be highly welcome.
Bioinformatics as a field has this aweful problem of millions of different
formats for sequences. I spent a some time writing web interfaces to various
commercial programs. Most of that was massaging sequences into the appropriate
formats for various programs.
Most of the software seemed to be written by biologists and not computer
scientists. As such every program had a different way of getting input and
giving output. Almost none worked like pipes. Even simple things like
converting a DNA sequence into a bunch of proteins didn't work as a pipe
but created a whole bunch of files in the current directory and took its
input from a file instead of STDIN...
Really annoying field to interfacer to software with.
As for format conversion, I used an existing program that was probably written
in house, and that I can't even remember the name of anyway (but it was good,
converted from almost anything to almost anything) - and it only seemed
to get one case wrong...
--
Sam
Fifty years of programming language research, and we end up with C++ ???
--Richard A. O'Keefe
------------------------------
Date: Fri, 09 Apr 1999 01:24:37 GMT
From: rajeshn@my-dejanews.com
Subject: email an email notification.
Message-Id: <7ejksd$dav$1@nnrp1.dejanews.com>
Hello,
I have a unique question. How do I notify myself on email
account rajesh@xyz.com if Im receiving an email at rajesh@abc.com .
I guess there will be a process that needs to run on the
mailserver on @xyz.com , but if I can do that then what do I do?
I dont want to use the .forward thing.
Thanks,
Rajesh.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 9 Apr 1999 03:14:11 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: email an email notification.
Message-Id: <slrn7gqs43.iqj.sholden@pgrad.cs.usyd.edu.au>
On Fri, 09 Apr 1999 01:24:37 GMT, rajeshn@my-dejanews.com wrote:
>Hello,
>
>I have a unique question. How do I notify myself on email
>account rajesh@xyz.com if Im receiving an email at rajesh@abc.com .
>I guess there will be a process that needs to run on the
>mailserver on @xyz.com , but if I can do that then what do I do?
>
>I dont want to use the .forward thing.
This has nothing to do with perl.
Read the documentation about whatever mail system the abc.com system uses
to put mail in your inbox. Use whatever method it says. It will quite probably
be the ./forward thing you don't want to use. Why you don't want to use the
obvioud way of doing it is beyond me...
--
Sam
------------------------------
Date: Thu, 08 Apr 1999 23:03:23 -0400
From: Patrick Hays <pjh@cstone.net>
Subject: Re: Getting info out of acees Databases
Message-Id: <370D6DFB.D1549995@cstone.net>
Check out roth.net and get tutorial on Win32::ODBC
"(BXTC)" wrote:
>
> Hi, at work we run windows and have some access database files....I have
> been tasked with getting some info out of them using linux and Perl.
> Basically I need to extract the info. My boss wants me to try it to see
> if we could eventually use it on our website...it there a module or easy
> way to do this....I am still a novice perl person. I looked at CSPAN
> and saw data base stuff but not "access" specific, did I miss one or is
> there a common "setup" used and it would be classified under a different
> name? Any help would be appriciated , thanks.
>
> (BXTC) ICQ# 23289202
------------------------------
Date: Thu, 8 Apr 1999 18:35:47 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: HELP with Subsitution
Message-Id: <MPG.1176f952fc8fa48b989870@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <923619402.712647@proxy1.bigplanet.com> on Thu, 8 Apr 1999
20:56:09 -0400, Dwight Trumbower <dwight@trumbower.com> says...
> I'm using the following try to replace "| spaces |" with "||" in multiple
> files.. The following doesn't quite work. It only does every other instance.
> ex: | | | sdffdff| | becomes || | sdffdff||. It
> should be ||| sdffdff||.
...
> while (<>) {
> s/\| *\|/\|\|/g; # string to search for and replace
>
> print; # write it
> } continue {close ARGV if eof}
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
This is unnecessary!
I would simply rescan the string from the beginning after each
successful match. (Other minor improvements: ' *' to ' +' unless you
enjoy doing extra work. '||' is not magic in the replacement string.)
1 while s/\| +\|/||/; # string to search for and replace
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 8 Apr 1999 22:08:32 -0400
From: "Dwight Trumbower" <dwight@trumbower.com>
Subject: Re: HELP with Subsitution
Message-Id: <923623744.977813@proxy1.bigplanet.com>
I fail to see how that line will read all the files and replace all the
instances. I'm new to perl and I'm trying to get it.
I've tried your example and nothing happens.
Thanks
--
Dwight Trumbower
Trumbower Computer Consulting
Larry Rosler <lr@hpl.hp.com> wrote in message
news:MPG.1176f952fc8fa48b989870@nntp.hpl.hp.com...
> [Posted and a courtesy copy mailed.]
>
> In article <923619402.712647@proxy1.bigplanet.com> on Thu, 8 Apr 1999
> 20:56:09 -0400, Dwight Trumbower <dwight@trumbower.com> says...
> > I'm using the following try to replace "| spaces |" with "||" in
multiple
> > files.. The following doesn't quite work. It only does every other
instance.
> > ex: | | | sdffdff| | becomes || | sdffdff||.
It
> > should be ||| sdffdff||.
> ...
> > while (<>) {
> > s/\| *\|/\|\|/g; # string to search for and replace
> >
> > print; # write it
> > } continue {close ARGV if eof}
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> This is unnecessary!
>
> I would simply rescan the string from the beginning after each
> successful match. (Other minor improvements: ' *' to ' +' unless you
> enjoy doing extra work. '||' is not magic in the replacement string.)
>
> 1 while s/\| +\|/||/; # string to search for and replace
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Company
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
------------------------------
Date: Thu, 8 Apr 1999 19:49:41 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: HELP with Subsitution
Message-Id: <MPG.11770a9eab694752989872@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <923619402.712647@proxy1.bigplanet.com> on Thu, 8 Apr 1999
20:56:09 -0400, Dwight Trumbower <dwight@trumbower.com> says...
+ I'm using the following try to replace "| spaces |" with "||" in
multiple
+ files.. The following doesn't quite work. It only does every other
instance.
+ ex: | | | sdffdff| | becomes || |
sdffdff||. It
+ should be ||| sdffdff||.
...
+ while (<>) {
+ s/\| *\|/\|\|/g; # string to search for and replace
+
+ print; # write it
+ } continue {close ARGV if eof}
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
This is unnecessary!
I would simply rescan the string from the beginning after each
successful match. (Other minor improvements: ' *' to ' +' unless you
enjoy doing extra work. '||' is not magic in the replacement string.)
1 while s/\| +\|/||/; # string to search for and replace
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 8 Apr 1999 19:52:36 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: HELP with Subsitution
Message-Id: <MPG.11770b4f1ce55b06989873@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
[Rearranged so that quoted material appears ahead of its discussion.]
In article <923623744.977813@proxy1.bigplanet.com> on Thu, 8 Apr 1999
22:08:32 -0400, Dwight Trumbower <dwight@trumbower.com >says...
+ Larry Rosler <lr@hpl.hp.com> wrote in message
+ news:MPG.1176f952fc8fa48b989870@nntp.hpl.hp.com...
+ > 20:56:09 -0400, Dwight Trumbower <dwight@trumbower.com> says...
+ > > I'm using the following try to replace "| spaces |" with "||" in
+ multiple
+ > > files.. The following doesn't quite work. It only does every other
+ instance.
+ > > ex: | | | sdffdff| | becomes || |
sdffdff||.
+ > > It should be ||| sdffdff||.
+ > ...
+ > > while (<>) {
+ > > s/\| *\|/\|\|/g; # string to search for and replace
+ > >
+ > > print; # write it
+ > > } continue {close ARGV if eof}
+ > ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+ > This is unnecessary!
+ >
+ > I would simply rescan the string from the beginning after each
+ > successful match. (Other minor improvements: ' *' to ' +' unless
+ > you enjoy doing extra work. '||' is not magic in the replacement
+ > string.)
+ >
+ > 1 while s/\| +\|/||/; # string to search for and replace
+
+ I fail to see how that line will read all the files and replace all
+ the instances. I'm new to perl and I'm trying to get it.
+
+ I've tried your example and nothing happens.
I was too elliptical in my response. My intention was that you replace
your regex line with this line, within the structure of your loop, but
without the 'continue...' clause.
while (<>) {
1 while s/\| +\|/||/; # string to search for and replace
print; # write it
}
+ Thanks
Sorry for the confusion.
+ --
+ Dwight Trumbower
+ Trumbower Computer Consulting
If you put an invisible trailing space after those two dashes,
newsreaders will recognize it as a cut line, and not reproduce your
signature in the quoted message. (Damn those invisible trailing spaces,
anyhow! What a dumb idea.)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 9 Apr 1999 03:11:21 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: HELP with Subsitution
Message-Id: <slrn7gqruo.iqj.sholden@pgrad.cs.usyd.edu.au>
Dwight Trumbower <dwight@trumbower.com> wrote:
>I'm using the following try to replace "| spaces |" with "||" in multiple
>files.. The following doesn't quite work. It only does every other instance.
>ex: | | | sdffdff| | becomes || | sdffdff||. It
>should be ||| sdffdff||.
>
>Any help is greatly appreciated.
>
>Thanks.
>
>local $^I = '.bak'; # emulate -i.bak from the command line
>local @ARGV = glob("c:\\dtdevelopment\\scripts\\csv*.txt"); # initialize
>list of files
>
>
>while (<>) {
> s/\| *\|/\|\|/g; # string to search for and replace
>
> print; # write it
> } continue {close ARGV if eof}
The problem is that your match matches the ending '|'. Therefore, the
regex start trying to match (via the /g) after that ending '|'. However, the
'|' is the start of the next field as well - thus the next field can not be
matches.
You can remove the /g and use a loop :
1 while s/\| +\|/\|\|/;
Or make the closing | not be matches by the regex using lookahead:
s/\| *(?=\|)/\|/g;
--
Sam
The very fact that it's possible to write messy programs in Perl is also
what makes it possible to write programs that are cleaner in Perl than
they could ever be in a language that attempts to enforce cleanliness.
--Larry Wall
------------------------------
Date: Thu, 8 Apr 1999 23:14:42 -0400
From: "Dwight Trumbower" <dwight@trumbower.com>
Subject: Re: HELP with Subsitution
Message-Id: <923627714.877037@proxy1.bigplanet.com>
Thanks Larry it worked. Care to explain why. I'm using the Learning Perl
book and the Perl cookbook and have not seen that syntax.
Be gentle, we NT guys can a little slow.
--
Dwight Trumbower
Trumbower Computer Consulting
Larry Rosler <lr@hpl.hp.com> wrote in message
news:MPG.11770b4f1ce55b06989873@nntp.hpl.hp.com...
> [Posted and a courtesy copy sent.]
> [Rearranged so that quoted material appears ahead of its discussion.]
>
> In article <923623744.977813@proxy1.bigplanet.com> on Thu, 8 Apr 1999
> 22:08:32 -0400, Dwight Trumbower <dwight@trumbower.com >says...
> + Larry Rosler <lr@hpl.hp.com> wrote in message
> + news:MPG.1176f952fc8fa48b989870@nntp.hpl.hp.com...
> + > 20:56:09 -0400, Dwight Trumbower <dwight@trumbower.com> says...
> + > > I'm using the following try to replace "| spaces |" with "||" in
> + multiple
> + > > files.. The following doesn't quite work. It only does every other
> + instance.
> + > > ex: | | | sdffdff| | becomes || |
> sdffdff||.
> + > > It should be ||| sdffdff||.
> + > ...
> + > > while (<>) {
> + > > s/\| *\|/\|\|/g; # string to search for and replace
> + > >
> + > > print; # write it
> + > > } continue {close ARGV if eof}
> + > ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> + > This is unnecessary!
> + >
> + > I would simply rescan the string from the beginning after each
> + > successful match. (Other minor improvements: ' *' to ' +' unless
> + > you enjoy doing extra work. '||' is not magic in the replacement
> + > string.)
> + >
> + > 1 while s/\| +\|/||/; # string to search for and replace
> +
> + I fail to see how that line will read all the files and replace all
> + the instances. I'm new to perl and I'm trying to get it.
> +
> + I've tried your example and nothing happens.
>
> I was too elliptical in my response. My intention was that you replace
> your regex line with this line, within the structure of your loop, but
> without the 'continue...' clause.
>
> while (<>) {
> 1 while s/\| +\|/||/; # string to search for and replace
> print; # write it
> }
>
> + Thanks
>
> Sorry for the confusion.
>
> + --
> + Dwight Trumbower
> + Trumbower Computer Consulting
>
> If you put an invisible trailing space after those two dashes,
> newsreaders will recognize it as a cut line, and not reproduce your
> signature in the quoted message. (Damn those invisible trailing spaces,
>
> anyhow! What a dumb idea.)
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Company
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
------------------------------
Date: Fri, 09 Apr 1999 02:54:17 GMT
From: mitiaNOSPAM@nwu.edu.invalid (Dmitry Epstein)
Subject: Re: HELP with Subsitution
Message-Id: <370e6a28.42698282@news.acns.nwu.edu>
On Thu, 8 Apr 1999 20:56:09 -0400, "Dwight Trumbower"
<dwight@trumbower.com> wrote:
>I'm using the following try to replace "| spaces |" with "||" in multiple
>files.. The following doesn't quite work. It only does every other instance.
>ex: | | | sdffdff| | becomes || | sdffdff||. It
>should be ||| sdffdff||.
<snip>
>while (<>) {
> s/\| *\|/\|\|/g; # string to search for and replace
I guess you should use zero-width look-ahead and look-behind
assertions:
$s = '| | | sdffdff| |';
($x = $s) =~ s/(?<=\|)\s+(?=\|)//g;
The way you did it, after the first substitution is made for
'| |'
the remaining part of the string is
' | sdffdff| |'
See why this doesn't work?
Remove NOSPAM and .invalid from mitiaNOSPAM@nwu.edu.invalid
------------------------------
Date: 08 Apr 1999 22:45:35 -0400
From: Jonathan Feinberg <jdf@pobox.com>
To: wingo01@my-dejanews.com
Subject: Re: Help! Missing first line.....
Message-Id: <m3aewi5x68.fsf@joshua.panix.com>
wingo01@my-dejanews.com writes:
> open(UPDF,"$workfile"); while (<UPDF>) { @upd=<UPDF>; } close (UPDF);
> foreach $lines (@upd) { @wline = split(' ',$lines); $pg = pop(@wline);
> ($ls1,$ls2,$ls3,$ls4,$ls5,$ls6,$ls7,$ls8,$ls9,$ls10)=split(' ',$lines);
> print "Field #1 is $ls1 and last field is $pg\n"; }
It is *very* unhelpful to post your code in this format.
The line
while (<UPDF>)
reads a line from the filehandle UPDF into $_, which you throw away.
If you're going to read the whole file into an array, then the loop is
superfluous. But, looking at your code, I see immediately that
reading the file into an array is unnecessary, and that you should be
processing the file a line at a time.
You fail to check the return status of open(), which is a big no-no.
open(UPDF, $workfile) || die "Can't read $workfile: $!\n";
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 9 Apr 1999 01:59:53 GMT
From: srenton@ix.netcom.com (Scott Renton)
Subject: Re: How do I turn this 1000000 into this 1,000,000 in Perl?
Message-Id: <7ejmup$k8s@sjx-ixn5.ix.netcom.com>
##################################
$x=1000000;
$x =~ s/000/,000/g;
print $x;
##################################
enjoy!
Scott
In article <VwaO2.187$xI5.7172@typhoon.nycap.rr.com>, indexfinger@usa.net
says...
>
>How do I turn this 1000000 into this 1,000,000 in Perl?
>
>
>
>
>--
>==================================================
>SuggestSite - http://www.suggestsite.com
>Word of mouth is the most powerful marketing tool.
>
>
------------------------------
Date: 08 Apr 1999 21:22:56 -0500
From: Mike Pullen <mpullen@midwest.net>
Subject: Re: How do I turn this 1000000 into this 1,000,000 in Perl?
Message-Id: <m3n20isfb3.fsf@darby.net>
"IndexFinger.com" <indexfinger@usa.net> writes:
> How do I turn this 1000000 into this 1,000,000 in Perl?
>
> --
> ==================================================
> SuggestSite - http://www.suggestsite.com
> Word of mouth is the most powerful marketing tool.
See 'perldoc -q comma'.
--
Mike Pullen mpullen@midwest.net
Linux localhost 2.0.33 #1 Mon Jan 18 17:39:07 CST 1999 i586
9:22pm up 2 days, 20:14, 1 user, load average: 0.01, 0.04, 0.00
------------------------------
Date: Thu, 08 Apr 1999 23:07:33 -0400
From: Patrick Hays <pjh@cstone.net>
Subject: Re: How to pass parameters for perl programs under ActivePerl?
Message-Id: <370D6EF5.C20C9CAC@cstone.net>
You wouldn't by any remote possibility be putting your arguments between
perl and myprog.pl instead of _after_ myprog.pl?
David Cassell wrote:
>
> agniora@usa.net wrote:
> >
> > I am using ActivePerl on WinNT platform. But everytime i have to run a script
> > i have to type perl myprog.pl but i need to pass some parameters to my
> > program, adding parameters to the above line doesnt work cause it gets taken
> > as an argument to the perl program not myprog.pl does anyone know any
> > workaround to this?
> >
> > thanks
> > Nayeem (agniora)
> >
> > -----------== Posted via Deja News, The Discussion Network ==----------
> > http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>
> Are you using build 509 or 513? If so, and it doesn't work right, read
> the
> win32 Perl docs that came with the installation. Under either
> 'Win95/NT'
> or 'Quirks' there are instructions on how to solve this. I can't be
> more
> specific at the moment, because right now my wintel box is open for
> installing more hardware.
>
> David
> --
> David Cassell, OAO
> cassell@mail.cor.epa.gov
> Senior Computing Specialist phone: (541)
> 754-4468
> mathematical statistician fax: (541)
> 754-4716
------------------------------
Date: 9 Apr 1999 01:34:57 GMT
From: srenton@ix.netcom.com (Scott Renton)
Subject: Re: Newbie question: Why does this loop only print three?
Message-Id: <7ejlg1$k8s@sjx-ixn5.ix.netcom.com>
Here's a small thought:
Have you tried semi-colons instead of commas in your for loop?
In article <7eifj9$b1t$1@nnrp1.dejanews.com>, jonnyb491@my-dejanews.com says...
>
>Hello. I am playing with activestate's perl on win32, I am trying to use a
>for..loop just to get a feel of how these things work. This loop works in c++
>but ony prints three "*"'s, no matter what the input is, even if its 0.
>
>Do you know why :(
>
>#Fun with Perl
>
>print "Welcome, this program will draw a triangle for you.\n";
>print "---------------------------------------------------\n";
>
>print "How big should the base be?\n";
>$tri = <STDIN>;
>
>#The for loop draws the base.
>
>for ($i=0, $i < $tri, $i++){
> print "*";
>}
>$tri = 0;
>print "\n\nThank you very much!";
>
>Thanks for any help.
>
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 08 Apr 1999 22:23:31 -0400
From: Jeff Thies <cyberjeff@sprintmail.com>
Subject: Re: Perl and Personal Web Server
Message-Id: <370D64A2.68C146D@sprintmail.com>
> > Hi,
> > I have written perl programs and i am running personal web server on
> > windows 98 box. How can i run perl scripts from PWS?
> >
>
> You can search DejaNews to find an answer to this or you could ask in :
Which is excellent advice. I didn't bookmark the site but I found one
(DynamicNet.net) in Deja News that explained this. You'll need to register the
mime type in your registry and add the path in your autoexec-bat.
Jeff
------------------------------
Date: Fri, 09 Apr 1999 02:20:07 GMT
From: foj@nym.alias.net
Subject: Re: Privacy for slaves forced to use a proxy/firewall to access the net?
Message-Id: <7ejo4g$g5a$1@nnrp1.dejanews.com>
In article <v26P2.149$Oz.55035@homer.alpha.net>,
"Jeff Frost" <jfrost@edstrom.com> wrote:
> Here's a radical solution for you...
>
> Use your PeeCee at work for work instead of hunting porn or finding how your
> stocks are doing. Buy a PeeCee at home, get an ISP account and go nutz.
> What users like you don't realize is that realaudio broadcast your listening
> to, or the real-time stock ticker is clogging down network bandwidth... and
> then everyone wonders "why is the network running slow".
Blah blah blah. Those behind the firewalls & proxies in various countries &
companies who agree with me know the real story. No net access by adults
should be censored. If an employee is doing his work, then the rest is what
is required to keep him happy - and that's how it should be. When a person is
locked away in a cubical, rather than working from home, there ought to be
some payback from the enslavers - uncensored net access is one payback sorely
needed in many of the tight-assed companies. Then there's the issue of people
in various countries who face censorship & monitoring of their net accesses.
This is not a simple issue easily disregarded by flippantly saying all we
want to do is hunt for sex sites. We are humans after all, not robots. Sex is
a part of our existence, as are other useful activities besides having our
nose to the grind stone every minute of every day.
>
> Jeff the burned out Admin, CNE
>
> p.s. If you want advice on how to circumvent security measures, at least
> have the courtesy of going to a alt.hacking newsgroup.
Security for whom? I'm not talking about hacking your firewall or proxy. I'm
talking about an encrypted secure connection for the net users, which secures
their activities from those who really should be doing other things besides
checking whether people are occasionally looking at a sex site, or
occasionally looking at cnn.com (as from certain countries).
If you want to debate whether a certain perl application or firewall use is
ethical, at least have the courtesy of going to some other newsgroup ... don't
you think ;-) .
You should be grateful for hackers helping pay your way through life - but
I'm not talking about hacking in this instance - just encryption & security
for net users - and that's BAAAD and EEEEVILLL!!!
Frank, the burned out cubical slave.
foj@nym.alias.net
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 09 Apr 1999 03:05:26 GMT
From: foj@nym.alias.net
Subject: Re: Privacy for slaves forced to use a proxy/firewall to access the net?
Message-Id: <7ejqpi$ibv$1@nnrp1.dejanews.com>
In article <370CFD2F.D8C81B45@tivoli.com>,
john_warner@tivoli.com wrote:
> Not that it what he wants exists anyway...Stop and think about how IP works
and
> how an IP datagram is structured. Word 4 contains the source address and
word 5
> contains the destination address. Without those tidbits in the IP header, the
> datagram isn't going anywhere and IP does not support encryption. (You can
> however, encrypt the data portion of an IP datagram.)
I fully realize how an IP packet is structured, and that the encrypted data
must be put in the data area. Indeed.
Let me do some diagraming for you:
<Evil net user in company
or country that censors
net access>
^
|
|
|
some sort of encrypted link -
maybe SSL via a web browser
or SSL via some product like
SecureCRT, or maybe via
SSL and a browser and some
app like the GNU httptunnel (?)
|
|
v
<a computer which accepts encrypted
http requests from the user, translates
them to non-encypted requests, and sends
them out on the network - then it receives http
(or whatever) packets for the user, and sends
them back to the user via the encrypted channel>
One key is to not reveal the address the user is
actually requesting in the IP header being sent
to the encrypted proxy the user is using - that info
would need to be part of the encrypted data itself.
So, I've been thinking, how can a perl application
(or some other app on a proxy or web server) do this?
Is there already a solution?
httptunnel is one I am checking out. It doesn't provide a secure channel in
and of itself, but maybe it could be used to do so. Check out:
http://www.nocrew.org/software/httptunnel.html
>
> In order to accomplish his mission, he needs to go through an anonymizer
before
> hitting his corporate firewall/proxy server where his network admin is
> watching. Such animals will be non-existent (no admin right mind would allow
> one to exist on his network) and be shut down promptly upon discovery (along
> with giving the original poster his pink slip).
>
All the tight-assed admin will see is a link to a certain IP address or web
site, and packets that look like gibberish in the data area.
> In short, it ain't happen' dude, so you might as well go back to work and stop
> wasting time and bandwidth surfing the web. The computer and the network to
> which it is connected belong to the company and as such, they have a right to
> know how and for what purposes their equipment is being used.
Employees have a copyright over their emails - and yet employers monitor
them. Employees have a right to privacy, and yet employers belittle & break
those rights. Employees are not robots, and yet employers treat them as much.
Employers can monitor the work an employee does by seeing what work he turns
in to his manager, or whether customers are being served by the employee &
etc. Censoring net access is completely inappropriate though. I consider
uncensored net access at my work to be a requirement for my presence.
I want the same to be available to all who are locked away in little cubicals,
and all those in totalitarian countries.
It seems there are a lot of similarities between totalitarian countries and
father-knows-best tight-assed companies who censor their employees Internet
activities.
It's time for the cubical slaves to fight back! And we shall! And we will win
against the oppressors with nothing better to do than watch if we ever visit a
site that depicts all aspects of human activity, or whether we visit a
politically incorrect site.
Yes it IS going to happen in my case, and I'm going to fight for the
availability of such technologies for others as well.
Learn to trust your employees enough to leave them alone. Give them
uncensored Internet access as a perk for their being willing to submit
themselves to life in a cubical. The time is shortly coming when more and
more people will be able to work from their homes - and there you're
micromanaging activities will be far less effective. Don't treat the work
place like a prison, with spy cameras, and packet sniffers to monitor
employees every move. Fuck that shit!
Learn to trust your citizens enough to leave them alone. You, as a
government, have no right to censor where they go on the net. A free society
of uncensorced ideas is what is best for humanity and our global society.
And now, we return to our regularly scheduled newsgroup...
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 9 Apr 1999 01:28:34 GMT
From: nick.kean@staff.ihug.co.nz (Nick Kean)
Subject: Re: Problems connecting to Oracle 8 from Perl using DBI
Message-Id: <7ejl42$iuv$1@newsource.ihug.co.nz>
In article <7edbpe$3ks$1@oanews.nswc.navy.mil>, Bill Morgan wrote:
>I am running the latest version of Active State Perl under NT 4.0 and trying
>to connect to
>an Oracle 8 database with DBI. Here is the code I am using:
>
>use DBI;
>
>$ENV{'ORACLE_HOME'} = "E:\ORANT";
>$ENV{'ORACLE_SID'} = "ORCL";
>
>$dbh = DBI->connect("dbi:Oracle:my_db", "username", "password");
>
>if ( !defined $dbh) {
> die "Cannot connect to Oracle database: $DBI::errstr\n";
>}
>
>exit;
>
>I get the following error message:
>
>Cannot connect to Oracle database: ORA-03121: no interface driver connected -
>function not performed (DBD: login failed)
>
>I can connect via ODBC using these statements:
>
>use Win32::ODBC;
>$database = "DRIVER={Oracle ODBC Driver};DBQ=my_db;UID=username;PWD=password";
>$db = new Win32::ODBC($database)
>
>so I know my database connectivity is there,
>but I can't figure out what I am doing wrong with DBI. Any help you can
>provide would be greatly appreciated! Please email any replies as well as
>posting to this group.
Using DBI to connect to a remote (works for local too) database on our
Solaris system, I use :
$sid = 'foo1';
$user = 'scott';
$pass = 'tiger';
die "$DBI::errstr"
unless ( $dbh = DBI->connect($sid, $user, $pass, 'Oracle') );
--
We are quite confident that all of our systems are Year 2000
Compliant. However, we have over a two year backlog of Year 2000
Compliance forms to fill out, so according to our scheduling
database, you should hear back from us in June, 1900.
------------------------------
Date: Thu, 8 Apr 1999 22:55:04 -0400
From: "Ted" <thill@ij.net>
Subject: Re: Problems connecting to Oracle 8 from Perl using DBI
Message-Id: <NNXQvSjg#GA.94@rejz.ij.net>
Try:
tnsping80 my_db
if you get the ORA-3121, then check the entry for my_db in tnsnames.ora
Nick Kean wrote in message <7ejl42$iuv$1@newsource.ihug.co.nz>...
>In article <7edbpe$3ks$1@oanews.nswc.navy.mil>, Bill Morgan wrote:
>>I am running the latest version of Active State Perl under NT 4.0 and
trying
>>to connect to
>>an Oracle 8 database with DBI. Here is the code I am using:
>>
>>use DBI;
>>
>>$ENV{'ORACLE_HOME'} = "E:\ORANT";
>>$ENV{'ORACLE_SID'} = "ORCL";
>>
>>$dbh = DBI->connect("dbi:Oracle:my_db", "username", "password");
>>
>>if ( !defined $dbh) {
>> die "Cannot connect to Oracle database: $DBI::errstr\n";
>>}
>>
>>exit;
>>
>>I get the following error message:
>>
>>Cannot connect to Oracle database: ORA-03121: no interface driver
connected -
>>function not performed (DBD: login failed)
>>
>>I can connect via ODBC using these statements:
>>
>>use Win32::ODBC;
>>$database = "DRIVER={Oracle ODBC
Driver};DBQ=my_db;UID=username;PWD=password";
>>$db = new Win32::ODBC($database)
>>
>>so I know my database connectivity is there,
>>but I can't figure out what I am doing wrong with DBI. Any help you can
>>provide would be greatly appreciated! Please email any replies as well as
>>posting to this group.
>
> Using DBI to connect to a remote (works for local too) database on our
>Solaris system, I use :
>
>$sid = 'foo1';
>$user = 'scott';
>$pass = 'tiger';
>die "$DBI::errstr"
> unless ( $dbh = DBI->connect($sid, $user, $pass, 'Oracle') );
>
>--
>We are quite confident that all of our systems are Year 2000
>Compliant. However, we have over a two year backlog of Year 2000
>Compliance forms to fill out, so according to our scheduling
>database, you should hear back from us in June, 1900.
------------------------------
Date: Thu, 8 Apr 1999 23:16:59 -0400
From: "Charles E. Pelkey" <pelkeyc@geocities.com>
Subject: Re: RA/RAM, Plugin Handling with PERL (newbie)
Message-Id: <7ejrnt$s4h$1@samsara0.mindspring.com>
When using the "Location" header, you do not need to pass any other header
info.. so try:
#!/usr/bin/perl -Tw
print "location: http://www.url.com/clips/track1.ram\n\n";
exit;
--
----------------------------------------------------------------------------
---------------
Charles E. Pelkey
The "Shadow Web", C.P. Designs
ICQ: 8294384
e-mail: pelkeyc@geocities.com
http://www.geocities.com/TimesSquare/Alley/2920/
http://shadow-web.ddns.org/
----------------------------------------------------------------------------
---------------
Matt Williams wrote in message <370CDE36.A2A04455@yahoo.com>...
>Hi there!
>
>I'm taking a first few tottering steps with Perl/CGI programming.
>
>I attempting to write a script to mask the locations of real audio
>files. It will take the information passed to it from a link (of the
>tpye: href http://www.url.com/cgi-bin/mask.cgi?track=1>Track Title</a>),
>and then send the relevant .ram file back to the browser, which will
>then start the real audio player, which will then open up the right url
>and play the media clip. I started off simple, with this:
>
>#!/usr/local/bin/perl
>
>print "Content-type: audio/x-pn-realaudio\n\n";
>print "Location: http://www.url.com/clips/track1.ram\n\n";
>exit;
>
>Which quite happily opens the real audio player, but the player doesn't
>load the clip (it is there).
>
>Having fallen over at this stage, I figured I'd better understand where
>I was going wrong before attempting to proceed any further
>
>I've scoured the web for librarys, scripts, tutorials on handling
>plugins with perl, scoured the perl documentation and faqs to no avail.
>If there's a good tutorial out there for this kind of thing, please
>point me in the write direction, or any help you can offer.
>
>Many thanks,
>Matt :)
>
>
------------------------------
Date: Thu, 8 Apr 1999 18:23:33 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: SORT BY DATE
Message-Id: <MPG.1176f66d45bceb698986f@nntp.hpl.hp.com>
In article <370D4904.634E799@giss.nasa.gov> on Thu, 08 Apr 1999 20:25:40
-0400, Jay Glascoe <jglascoe@giss.nasa.gov> says...
> Bababozorg wrote:
> > can anyone please tell me how to sort my data by date.
> > my date is like this: 3-08-99
>
> presumably "3" is the month? I'll also point out,
> this is a bit late in the game to be writing years
> as two digit numbers.
Oh, here we go again. There is absolutely nothing wrong with
representing a year as a two-digit number, in applications where the
problem CONTEXT can determine the correct century unambiguously. Years
have 'always' been written that way in our culture, and they probably
always will be.
Other cultures have different methods, but follow the same principles.
For example, the current year according to the Jewish calendar is 5759,
but this is 'always' written as simply 759. No one is worrying about a
Y6K problem 241 years from now. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 09 Apr 1999 00:59:24 GMT
From: drgreer@qtiworld.com (Darren Greer)
Subject: Re: Trouble with DBI and Oracle - temp.mail2 (0/1)
Message-Id: <370d50b6.257029148@news.qgraph.com>
Attached is the output from the debugger....line by line...I warn
you...it is long. But if anyone can make some sense of it I would
greatly appreciate it.
Darren
On Wed, 07 Apr 1999 01:03:06 GMT, drgreer@qtiworld.com (Darren Greer)
wrote:
-->Sorry for the repost: I had the subject in the wrong field:
-->
-->
-->Howdy all....I am having problems with DBI and Oracle. Below is my
-->code, to access our Database, and perform a simple query. Following
-->the code, is the error I get.
-->
-->--------------------- CODE ----------------------
-->#!/usr/bin/perl -w
-->
-->use DBI;
-->
-->$ENV{ORACLE_HOME} = '/usr/oracle/7.3.4';
-->$ENV{TWO_TASK} = 'T:homer:QTI';
-->
-->my $dbh = DBI->connect('dbi:Oracle:','drgreer/drgreer@QTI','');
-->
-->$query = "SELECT partnumber FROM partmaster WHERE partno = '108755'";
-->
-->my $sth = $dbh->prepare($query) || die "Cant execute prepare
-->statement";
-->my $rc = $sth->execute || die "Cant execute statment: $DBI::errstr";
-->
-->print "$sth->{NAME}->[0]\n";
-->
-->while (@row = $sth->fetchrow_array) {
--> print "$row[0]\n";
-->}
-->
-->$sth->finish;
-->$dbh->disconnect || warn $sth->errstr;
-->--------------- END CODE --------------
-->
-->This is not much of an error, as it is more of a lock-up. This was
-->run from the debugger, and below, is the point where it locks up. The
-->debugger never gets past the "connect" line in the code. The
-->following is where my code locks up, and sites there eating a TON of
-->cpu. The process eventually has to be killed, to stop it. Any help
-->or insight would be greatly appreciated.
-->
-->------------------ ERROR -----------------
--> DB<1>
-->DBD::Oracle::dr::connect(/opt/perl5/lib/site_perl/DBD/Oracle.pm:206):
-->206: DBD::Oracle::db::_login($dbh, $dbname, $user, $auth)
-->207: or return undef;
--> DB<1>
-->---------------------------------------------------
-->
-->Darren
-->
------------------------------
Date: Fri, 9 Apr 1999 10:12:20 +0800
From: "AzJ.H}" <glzhang@263.net>
Subject: Re: Where to start with Perl
Message-Id: <7ejols$82m$1@cag.seu.edu.cn>
http://linux.ustc.edu.cn you will find some books
about perl
------------------------------
Date: Fri, 9 Apr 1999 10:14:02 +0800
From: "AzJ.H}" <glzhang@263.net>
Subject: Re: Why doesn't \n work
Message-Id: <7ejop8$84v$1@cag.seu.edu.cn>
Steven Shaw wrote in message <36fb9648.0@news.hcsys.com>...
>When executing my Perl script in IE or Netscape, the "\n" that I attach to
>my print statement will not skip a line.
add "<br>" in html?
>
>Steven Shaw
>
>
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 5335
**************************************
