[19209] in Perl-Users-Digest
Perl-Users Digest, Issue: 1404 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 30 06:06:15 2001
Date: Mon, 30 Jul 2001 03:05:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <996487508-v10-i1404@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 30 Jul 2001 Volume: 10 Number: 1404
Today's topics:
Re: CGI-BIN doesnt execute scripts (David Efflandt)
Re: Comma to separate numeric string (thousandth separa <gbeymk@sgh.com.sg>
Re: DBI error <carlos@plant.student.utwente.nl>
Re: DBI error <ilya@martynov.org>
Re: DBI:vvp-How to display sql table results? <ilya@martynov.org>
Re: differentiating between a file and a directory <bart.lateur@skynet.be>
Re: differentiating between a file and a directory <bart.lateur@skynet.be>
Re: Entire File Contents from Command line <krahnj@acm.org>
Re: Entire File Contents from Command line <krahnj@acm.org>
FAQ: How do I pad a string with blanks or pad a number <faq@denver.pm.org>
Re: Finding keywords in text files <goldbb2@earthlink.net>
Re: How to sort old mailboxes (Marco F)
Re: How to sort old mailboxes <Tassilo.Parseval@post.rwth-aachen.de>
Is a function/class library for processing of SMTP-mail <elf@messer.de>
Re: Is a function/class library for processing of SMTP- <petasis@iit.demokritos.gr>
Lanaguage files <zhuangli@liv.ac.uk>
Re: local and tie (Anno Siegel)
PERL compiler...... <sky@mail.lviv.ua>
question about CGI.PM~~~ help <swansun@kali.com.cn>
Re: Stripping extention from a filename in a string (Yves Orton)
Re: Stripping extention from a filename in a string (Yves Orton)
Re: suid support in Perl <somewhere@in.paradise.net>
Verify upload is completed <gbeymk@sgh.com.sg>
where is poetry.ps? <t98675nk@sfc.keio.ac.jp>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 30 Jul 2001 04:33:55 +0000 (UTC)
From: see-sig@from.invalid (David Efflandt)
Subject: Re: CGI-BIN doesnt execute scripts
Message-Id: <slrn9m9otj.gq0.see-sig@typhoon.xnet.com>
On Sun, 29 Jul 2001 09:53:08 -0700, Mr. Ed <springb2k@yahoo.com> wrote:
> I have an issue with a project manager that centers around if his Unix
> server is configured right. I have scripts in the cgi-bin that have all the
> correct chmod permissions. That scripts do not execute. I cannot even get an
> html webpage to show up (the error sez Page Not Found) is it sits in that
> cgi-bin.
Not that this has anything to do with Perl (there is a cgi newsgroup), but
everything in a proper cgi-bin is considered CGI, so .html not working
there looks perfectly normal. Some potential problems:
FTP uploading a script (or text data) from Windows to Unix as binary will
NOT work (line endings are different). Upload scripts as ASCII text.
Some systems run CGI as you and will refuse to run CGI if script or
directory permission is greater than 755.
Then there a are things like failing to print proper headers before you
print anything else. Get a simple script working before trying anything
complicated and make sure it runs from the shell first if you can
(./scriptname.cgi from telnet or ssh).
--
David Efflandt (Reply-To is valid) http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Mon, 30 Jul 2001 14:29:07 +0800
From: YMK <gbeymk@sgh.com.sg>
Subject: Re: Comma to separate numeric string (thousandth separator)
Message-Id: <3B64FEB3.EE0E6DAB@sgh.com.sg>
John, Thank you.
"John W. Krahn" wrote:
>
> YMK wrote:
> >
> > I am using Perl version 5.005_03 built for sparc-linux !
> >
> > I thought join(",",split(/(\d{1,3}){\d{3})$/)) could do the job.
> >
> > But I got the following result:
> >
> > 1 => 1
> > 12 => 12
> > 123 => 1231
> > 1234 => ,1,234
> > 12345 => ,12,345
> > 123456 => ,123,456
> > 1234567 => 1,234,567
> > 12345678 => 12,345,678
> > 123456789 => 123,456,789
> > 1234567890 => 1234,567,890
> >
> > Could someone enlighten me ?
>
> Yes, this is a Frequently Asked Question (perlfaq5)
>
> perldoc -q "numbers with commas"
>
> John
> --
> use Perl;
> program
> fulfillment
------------------------------
Date: Mon, 30 Jul 2001 09:56:02 +0200
From: "carlos" <carlos@plant.student.utwente.nl>
Subject: Re: DBI error
Message-Id: <9k33uj$7r0$1@dinkel.civ.utwente.nl>
"Ilya Martynov" <ilya@martynov.org> wrote in message
news:8766cbeax7.fsf@abra.ru...
>
> You do not need ';' in DBI in SQL query.
>
Check! thanx a lot
I knew it wasnt neccesary to put the semicolon there, but why it it freaking
out?
--
carl0s
------------------------------
Date: 30 Jul 2001 12:11:38 +0400
From: Ilya Martynov <ilya@martynov.org>
Subject: Re: DBI error
Message-Id: <87r8uybzut.fsf@abra.ru>
>> You do not need ';' in DBI in SQL query.
>>
c> Check! thanx a lot
c> I knew it wasnt neccesary to put the semicolon there, but why it it freaking
c> out?
';' is a separator of queries supported by some sql clients. They use
it to separate queries before sending them to server. Server doesn't
know what is ';' - it works on the level of single query and ';' is
illegal char in query.
DBI just sends single query to server as it is. It doesn't know that
';' is some special char so it doesn't removes it from query sent to
server.
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Ilya Martynov (http://martynov.org/) |
| GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 |
| AGAVA Software Company (http://www.agava.com/) |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
------------------------------
Date: 30 Jul 2001 12:04:48 +0400
From: Ilya Martynov <ilya@martynov.org>
Subject: Re: DBI:vvp-How to display sql table results?
Message-Id: <87vgkac067.fsf@abra.ru>
>> Hello,
>>
>> I am connected to an Informix database. I want to be able to query a
>> table and output to a web page with NEXT and PREVIOUS buttons so they
>> can scroll through the data record by record. Not getting all the
>> data dumped out on the page.
>>
>> ie.
>>
>> NAME [john]
>> JOB [math]
>>
>> -------
>>
>> (next record after next button is pressed)
>>
>> NAME [mary]
>> JOB [spelling]
BG> Unfortunatly, there is no generic way [with DBI.pm] to tell the database
BG> to seek to the Nth record of a select statement, except by doing the
BG> select, and discarding the first N-1 items. Informix may have such a
BG> method, but I've never used informix nor read the docs (that's your job)
I don't know about Informix but many SQL databases support LIMIT N, M
clause in SELECT query which allows to select M records from N
position. Read docs if Informix supports it.
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Ilya Martynov (http://martynov.org/) |
| GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 |
| AGAVA Software Company (http://www.agava.com/) |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
------------------------------
Date: Mon, 30 Jul 2001 08:53:08 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: differentiating between a file and a directory
Message-Id: <s38amt06ujdgtvnv5nvshleuboej7nu8cm@4ax.com>
ananth wrote:
>My objective is to keep searching for files with a particular
>extension(.mag) in a specified directory and its sub-directories.
>Is there any way to distinguish a file from a directory ?
Yes.
-f $path
returns true for a file, and
-d $path
returns true for a directory.
With "perldoc -f -X" you can find out more about it. Or, use the
perlfunc help file, and search for "-X".
--
Bart.
------------------------------
Date: Mon, 30 Jul 2001 10:00:31 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: differentiating between a file and a directory
Message-Id: <n5camtcgd9v2bp7mqp073qa5rpv3v2f9i4@4ax.com>
ananth wrote:
>My objective is to keep searching for files with a particular
>extension(.mag) in a specified directory and its sub-directories.
>Is there any way to distinguish a file from a directory ?
Yes.
-f $path
returns true for a file, and
-d $path
returns true for a directory.
With "perldoc -f -X" you can find out more about it. Or, use the
perlfunc help file, and search for "-X".
--
Bart.
------------------------------
Date: Mon, 30 Jul 2001 08:59:27 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Entire File Contents from Command line
Message-Id: <3B652229.F8F44532@acm.org>
Chandramohan Neelakantan wrote:
>
> >the OP said 'from the command line'. this gives us the opportunity to
> >use the <> operator
> > $ perl -e'@x=<>;' filename
> >
> >if he meant the variable to be a scalar, then:
> > $ perl -e'$/=undef;$x=<>;' filename
> >
> >gnari
>
> Thank you very much ....the second solution was what I was looking for.
> But Im running into problems again.
>
> I had close to 50 files in a directory and I had to append the
> '#!/usr/bin/perl' line to all of them. This is what I tried ...
>
> perl -p -i -e '$/=undef;s/(.*)/#!\/usr\/bin\/perl\n$1/;' `find . -type f'
>
> Some of the files had one '#!/usr/bin/perl' line while some had as many as
> three. Some of the files had the line somewhere in between too.
> I cannot understand why this is happening.Any clarification on this would be
> appreciated.
perl -pie'$.==1&&!/^#!/&&!m{/perl }&&print"#!/usr/bin/perl\n"' `find .
-type f'
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 30 Jul 2001 09:02:41 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Entire File Contents from Command line
Message-Id: <3B6522EB.F585EF4@acm.org>
Chandramohan Neelakantan wrote:
>
> >the OP said 'from the command line'. this gives us the opportunity to
> >use the <> operator
> > $ perl -e'@x=<>;' filename
> >
> >if he meant the variable to be a scalar, then:
> > $ perl -e'$/=undef;$x=<>;' filename
> >
> >gnari
>
> Thank you very much ....the second solution was what I was looking for.
> But Im running into problems again.
>
> I had close to 50 files in a directory and I had to append the
> '#!/usr/bin/perl' line to all of them. This is what I tried ...
>
> perl -p -i -e '$/=undef;s/(.*)/#!\/usr\/bin\/perl\n$1/;' `find . -type f'
>
> Some of the files had one '#!/usr/bin/perl' line while some had as many as
> three. Some of the files had the line somewhere in between too.
> I cannot understand why this is happening.Any clarification on this would be
> appreciated.
perl -pie'$.==1&&!/^#!/&&!m{/perl\s}&&print"#!/usr/bin/perl\n"' `find .
-type f'
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 30 Jul 2001 06:18:57 GMT
From: PerlFAQ Server <faq@denver.pm.org>
Subject: FAQ: How do I pad a string with blanks or pad a number with zeroes?
Message-Id: <l%697.160$os9.195119616@news.frii.net>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with every Standard Distribution of
Perl.
+
How do I pad a string with blanks or pad a number with zeroes?
(This answer contributed by Uri Guttman, with kibitzing from Bart
Lateur.)
In the following examples, "$pad_len" is the length to which you wish to
pad the string, "$text" or "$num" contains the string to be padded, and
"$pad_char" contains the padding character. You can use a single
character string constant instead of the "$pad_char" variable if you
know what it is in advance. And in the same way you can use an integer
in place of "$pad_len" if you know the pad length in advance.
The simplest method uses the "sprintf" function. It can pad on the left
or right with blanks and on the left with zeroes and it will not
truncate the result. The "pack" function can only pad strings on the
right with blanks and it will truncate the result to a maximum length of
"$pad_len".
# Left padding a string with blanks (no truncation):
$padded = sprintf("%${pad_len}s", $text);
# Right padding a string with blanks (no truncation):
$padded = sprintf("%-${pad_len}s", $text);
# Left padding a number with 0 (no truncation):
$padded = sprintf("%0${pad_len}d", $num);
# Right padding a string with blanks using pack (will truncate):
$padded = pack("A$pad_len",$text);
If you need to pad with a character other than blank or zero you can use
one of the following methods. They all generate a pad string with the
"x" operator and combine that with "$text". These methods do not
truncate "$text".
Left and right padding with any character, creating a new string:
$padded = $pad_char x ( $pad_len - length( $text ) ) . $text;
$padded = $text . $pad_char x ( $pad_len - length( $text ) );
Left and right padding with any character, modifying "$text" directly:
substr( $text, 0, 0 ) = $pad_char x ( $pad_len - length( $text ) );
$text .= $pad_char x ( $pad_len - length( $text ) );
-
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Answers to questions about LOTS of stuff, mostly not related to
Perl, can be found by pointing your news client to
news:news.answers
or to the many thousands of other useful Usenet news groups.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-1999 Tom Christiansen and Nathan
Torkington. All rights reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
04.31
--
This space intentionally left blank
------------------------------
Date: Mon, 30 Jul 2001 00:34:23 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Finding keywords in text files
Message-Id: <3B64E3CF.3BD8E25@earthlink.net>
shaz wrote:
>
> I was wondering if anyone might know where I can find a script that
> can look at a text file and produce the keyword (based on no of
> occurances)?
>
> I have begun to write the code myself, but am finding it more
> difficult than I thought.
>
> Any help would be appreciated.
my %counts;
while( <$filehandle> ) {
# "who did that?" becomes:
foreach(split /\s+/) {
$_ = lc $_;
# ("who" "did" "that?")
++$counts{$_};
# Also add "that"
++$counts{$_} for(split /\W/) if( /\W/ );
}
}
delete @counts{qw(a is or of it the and)}; # delete "stopwords"
#delete @counts{grep {length $_ >= 3} keys %counts};
my @keywords = sort { $counts{$b} <=> $counts{$a} } keys %counts;
print "top 20 keywords: @keywords[0..19]\n";
--
I need more taglines. This one is getting old.
------------------------------
Date: 30 Jul 2001 01:31:15 -0700
From: web_fm_1@libero.it (Marco F)
Subject: Re: How to sort old mailboxes
Message-Id: <f97f0f80.0107300024.24acf000@posting.google.com>
Tassilo von Parseval <Tassilo.Parseval@post.rwth-aachen.de> wrote in message news:<3B644B80.3090705@post.rwth-aachen.de>...
> Marco F wrote:
>
> >Hello everybody.
> >
> >I have already looked around in CPAN and newsgroup archives without
> >success, as almost all scripts and documentation available are there
> >to send email or manage incoming message, not to put order in an
> >existing (completely messed up) collection of mailboxes.
> >
> [...]
>
> As Tony Curtis said, go for Mail::Box. It automatically filters out
> duplicates, so there is no work left for you. As for grepping mails from
> a mailbox, you'll find a little script by me called takemail inside the
> package. If you wait a few more days, Mark Overmeer......
Sound promising! OK, I'll wait for the next version of Mail::Box. There is
one side of the problem I didn't mention though: does this module by itself
also manage attachments? Keep in mind that I want to use it only to
remove duplicates and move whole messages from folder to folder, attachments
included, but without opening/processing them in any way.
Thank you all for your time,
Marco
------------------------------
Date: Mon, 30 Jul 2001 11:14:34 +0200
From: Tassilo von Parseval <Tassilo.Parseval@post.rwth-aachen.de>
Subject: Re: How to sort old mailboxes
Message-Id: <3B65257A.4080406@post.rwth-aachen.de>
Marco F wrote:
>>As Tony Curtis said, go for Mail::Box. It automatically filters out
>>duplicates, so there is no work left for you. As for grepping mails from
>>a mailbox, you'll find a little script by me called takemail inside the
>>package. If you wait a few more days, Mark Overmeer......
>>
>
>Sound promising! OK, I'll wait for the next version of Mail::Box. There is
>
You don't need to wait. The current version (1.318) already contains
this script. The new one has additional features, such as splitting a
mailbox into multiple ones on certain conditions etc. But the current
takemail will probably do for you.
>
>one side of the problem I didn't mention though: does this module by itself
>also manage attachments? Keep in mind that I want to use it only to
>remove duplicates and move whole messages from folder to folder, attachments
>included, but without opening/processing them in any way.
>
If you mean whether Mail::Box is not touching attachements, yes.
Mail::Box wont touch any of these.
But if you mean that you perhaps would want to extract them easily, you
might want to have a look at Mail::MboxParser. It is not as
feature-reach as Mail:.Box but less complex in usage and, as said, quite
handy when it comes to attachements.
Tassilo
--
A man gazing at the stars is proverbially at the mercy of the puddles
in the road.
-- Alexander Smith
------------------------------
Date: Mon, 30 Jul 2001 09:42:28 +0100
From: "Markus Elfring" <elf@messer.de>
Subject: Is a function/class library for processing of SMTP-mails available?
Message-Id: <9k333q$264$1@news.messer.de>
I have found a useful module
(http://search.cpan.org/search?module=Mail::Audit,
http://simon-cozens.org/writings/mail-audit.html) for Perl now.
Does anybody know a similar library for other programming languages?
------------------------------
Date: Mon, 30 Jul 2001 11:42:58 +0300
From: Petasis George <petasis@iit.demokritos.gr>
Subject: Re: Is a function/class library for processing of SMTP-mails available?
Message-Id: <3B651E12.A08F2FB2@iit.demokritos.gr>
Markus Elfring wrote:
>
> I have found a useful module
> (http://search.cpan.org/search?module=Mail::Audit,
> http://simon-cozens.org/writings/mail-audit.html) for Perl now.
> Does anybody know a similar library for other programming languages?
There is an smtp & mime package in tcllib 0.8. You can try that...
George
------------------------------
Date: 30 Jul 2001 09:07:00 GMT
From: zhuangli <zhuangli@liv.ac.uk>
Subject: Lanaguage files
Message-Id: <9k383k$2ui$1@news.liv.ac.uk>
Recent experience with Perl on a web site has seen the following on the web
error log files. I don't know much about Perl. Could someone tell me what
are those files and where can I download them?
Thank you
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_dbm_lang_util.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_settings.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_admin_config.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_admin_helpdesk.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_ap_admin.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_global.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_dbm_lang_util.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_settings.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_admin_config.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_global.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_dbm_lang_util.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_settings.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_admin_config.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_admin_helpdesk.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_ap_admin.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_admin_helpdesk.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_ap_admin.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_global.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_dbm_lang_util.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_settings.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_admin_config.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_lp_admin_helpdesk.txt--
--NO SUCH LANGUAGE FILE: ../lib/language//_ap_admin.txt--
------------------------------
Date: 30 Jul 2001 07:21:35 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: local and tie
Message-Id: <9k31tv$m1l$1@mamenchi.zrz.TU-Berlin.DE>
According to Ilmari Karonen <usenet11530@itz.pp.sci.fi>:
> In article <9jrgn4$evj$1@mamenchi.zrz.TU-Berlin.DE>, Anno Siegel wrote:
> >
> >[1] I intend to tie $SIG{ __WARN__} and $SIG{ __DIE__} in such a
> > way that, in addition to the coderef a user stores there,
> > certain (logging-) activities also happen. Storing to the
> > tied location would squirrel away the handler in the tied
> > object. Reading would always return the same subref, a closure
> > that does some logging and then calls the user's handler.
> > In most cases, an unsuspecting program that uses one of these
> > handlers would continue to work, but it would fail badly if
> > a user tried (as they should) to make the change local.
>
> Well, it would also fail if I "localized" the tied variable manually:
>
> tie $SIG{__DIE__}, 'Tie::Whatever';
>
> {
> my $die = $SIG{__DIE__};
> $SIG{__DIE__} = sub { ... };
>
> # ...
>
> $SIG{__DIE__} = $die;
> }
Quite true.
> I'd suggest working around the problem by creating a new anonymous sub
> at every STORE, and by having the module recognize the subs it creates
> and storing those unchanged. (You could bless the sub, perhaps.)
That's what I ended up doing. That way a tied variable can recognize
its own products and can behave accordingly when someone writes one
back.
> What *I* would really like is if tied scalars could somehow atomically
> handle the assignment variants of operators. That would let me fix a
> minor but irritating bug in Time::Stopwatch.
I remember having been bitten by that too.
Anno
------------------------------
Date: Mon, 30 Jul 2001 09:42:22 +0300
From: Kolorove Nebo <sky@mail.lviv.ua>
Subject: PERL compiler......
Message-Id: <3B6501CE.8C421EDA@mail.lviv.ua>
Is there any PERL compiler to build exe files from perl files on win32
platforms?
Thanks...
------------------------------
Date: Mon, 30 Jul 2001 16:55:32 +0800
From: "swansun" <swansun@kali.com.cn>
Subject: question about CGI.PM~~~ help
Message-Id: <9k37dm$a8a$1@mail.cn99.com>
i'm using the CGI.PM to write a perl script
to upload files now,and it work!
but i want to know how can i know the size of the uploaded file?
who can help me? thanks~~~
------------------------------
Date: 30 Jul 2001 02:34:20 -0700
From: demerphq@hotmail.com (Yves Orton)
Subject: Re: Stripping extention from a filename in a string
Message-Id: <74f348f7.0107300134.c52e26e@posting.google.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> vented her spleen in message
news:<3B61A9C4.CB1042C5@stomp.stomp.tokyo>...
> Yves Orton AKA The CLPM Troll wrote:
>
> > Jason LaPenta wrote:
>
> (snipped)
>
> > Response 3:
> > Godzilla! (godzilla@stomp.stomp.tokyo) wrote:
>
> > >substr ($filename, rindex ($filename, "."), 4, "");
>
> > This one is a terrible solution. If you insert the filename
> > "filename.text" into the filename list provided by godzilla you will
> > see the output (for this filename) is:'filenamet' which is definitely
> > wrong. DONT use this one.
>
>
> Yours is a very lame and very poorly veiled troll article.
>
>
> Godzilla!
Godzilla, I have followed your postings for a while. Your comments
are usually egotistical, agressive and condescending. Unlike you most
people that post here at least have the humilty to gracefully admit
when they have made a mistake or oversight.
Why do I have a feeling that people picked on you quite a bit in the
school-yard?
Please feel free to post more of your bad attitude and inaccurate
solutions so that I and others can have something good to laugh about.
Yours affectionately,
Yves
~The Friendly Troll~
------------------------------
Date: 30 Jul 2001 02:40:11 -0700
From: demerphq@hotmail.com (Yves Orton)
Subject: Re: Stripping extention from a filename in a string
Message-Id: <74f348f7.0107300140.686740b3@posting.google.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> scrawled in crayon in message
news:<3B648462.79546BE4@stomp.stomp.tokyo>...
> Mario Rizzuti AKA The CLPM Troll wrote:
>
> > Godzilla! wrote:
<A Bunch of crap. Sigh. As usual.>
> print "Lame Brain Troll! " x 10**1000000;
Have you tested this code darling lizard brain? Has it stopped
running yet? Oh you mean you haven't got the time?
Your vitriol is only interesting insofar as it is amusing to see a
grown woman act like a two year old.
Keep posting luv, I need a good laugh in the morning.
Yves
------------------------------
Date: Mon, 30 Jul 2001 14:04:21 +1000
From: "Tintin" <somewhere@in.paradise.net>
Subject: Re: suid support in Perl
Message-Id: <g3597.19$K42.443504@news.interact.net.au>
"Jorge Godoy" <godoy@conectiva.com> wrote in message
news:m3bsm3p3ay.fsf@dagon.conectiva...
> "Tintin" <somewhere@in.paradise.net> writes:
>
> > I'm running Mandrake 8.0 that had a RPM version of Perl 5.6.0 installed.
I
> > was using a script that had sgid bit set (to read mail). I then
manually
> > installed Perl 5.6.1 and the sgid bit was being ignored.
> >
> > What could cause this?
>
> Your perl binary is without the SUID/SGID bit set.
I've never come across any installations that have the suid or sgid bit set
on the perl binary. That would be a huge security hole.
Both /usr/bin/perl (5.6.0) and /usr/local/bin/perl (5.6.1) have perms of
755.
> Please note that there's a 'suidperl' to handle these cases. Don't
> make 'perl' SUID/SGID or you might have several security problems.
I'm aware of suidperl, but I am still no closer to knowing why sgid scripts
work with one version of perl and no the other.
------------------------------
Date: Mon, 30 Jul 2001 16:04:39 +0800
From: YMK <gbeymk@sgh.com.sg>
Subject: Verify upload is completed
Message-Id: <3B651517.CA841516@sgh.com.sg>
Hi !
I am doing the following:
1. upload or copy a file to a "raw_file" folder in Linux
2. a script to 1st verify the file size every 5 seconds
if there is no change in file size, assume the upload is completed
process the file and remove it from "raw_file" folder
I don't know whether there is other better way to do it ?
Anyway, it serve me right in Linux environment !
But when I tried it on Windows NT 4.0, it does not work !
Windows NT always show the full file size even upload is just started.
Is there anyway to verify whether upload or copy is completed ?
I also tried the script on Windows 95, this time before the upload is
completed,
file size is always zero !
Appreciate any advise.
Thank you.
------------------------------
Date: Mon, 30 Jul 2001 17:07:01 +0900
From: "miyahara makoto" <t98675nk@sfc.keio.ac.jp>
Subject: where is poetry.ps?
Message-Id: <9k3442$pg9$1@news.sfc.keio.ac.jp>
hi
now I'm searching for sharon's report about perl poem
"poetry.ps"."Programming Perl" wrote it's on
www.perl.com/CPAN/misc/poetry.ps but I can't
find any copies there.
please let me know where it is.
------------------------------
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.
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 V10 Issue 1404
***************************************
