[16485] in Perl-Users-Digest
Perl-Users Digest, Issue: 3897 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 3 03:05:22 2000
Date: Thu, 3 Aug 2000 00:05:10 -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: <965286309-v9-i3897@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 3 Aug 2000 Volume: 9 Number: 3897
Today's topics:
Re: A DOS box question <bart.lateur@skynet.be>
Re: CGI.pm cookie failure <godzilla@stomp.stomp.tokyo>
Re: Copying from the web: Problems with a script <jmaggard@va.mediaone.net>
Re: Copying from the web: Problems with a script <jmaggard@va.mediaone.net>
Re: DBI: Same data accessed twice? <pking@idirect.com>
Re: Delete records in 2 weeks time <jaurangNOjaSPAM@crosswinds.net.invalid>
Here's a tough one (relating to 500 error) jcrist@my-deja.com
Re: Impossible RegEx Problem <mauldin@netstorm.net>
Re: Impossible RegEx Problem <rickysregistration@hotmail.com>
Re: Impossible RegEx Problem <mauldin@netstorm.net>
Re: outputting a CGI script to another frame? (BUCK NAKED1)
pattern matching across two lines <muhala@my-deja.com>
Re: Preserving exit code through END subroutine (Rafael Garcia-Suarez)
Re: question about a Regular Expression <bart.lateur@skynet.be>
Re: returning an array <elephant@squirrelgroup.com>
Re: returning an array <muhala@my-deja.com>
Re: splitting on spaces (Keith Calvert Ivey)
Re: splitting on spaces (NP)
Re: splitting on spaces (Abigail)
Re: Upload File??? (Jens)
Re: Value of undefined variable in activeperl <klaus@whitehat.dk>
which free search script <mitzei@usa.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 03 Aug 2000 07:03:14 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: A DOS box question
Message-Id: <h46iosk5172cqht8o05j6stc10ftrbb0hu@4ax.com>
jason wrote:
>these 'solutions' are scarey .. are there really this many people around
>who don't know how to run a program other than double-clicking on an
>icon ?
Actually, I wonder what it would take to change the behaviour of opening
a .PL file by doubleclicking, so that it DOESN'T close the output window
when finished. Just like a .BAT file.
--
Bart.
------------------------------
Date: Wed, 02 Aug 2000 22:46:57 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: CGI.pm cookie failure
Message-Id: <39890751.D89FA1B9@stomp.stomp.tokyo>
Clinton A. Pierce wrote:
> Daniel Foster wrote:
(snipped main body)
> No -w? Bad programmer!
> No "use strict"? Bad programmer!
Are you suggesting warnings and strict
should be used at all times and all
programs should use these pragma hints
under all circumstances?
If so, I am quite tempted to eat your
lunch for being an extremely bad programmer.
Advice to always use these types of pragma
hints, advice to include these pragma hints
in all programs, is in direct contradiction
of standards in practice set by experienced
and knowledgable Perl programmers.
In fairness to you, I must ask, Are you
suggesting warnings and strict should be
used at all times and all programs should use
these pragma hints under all circumstances?
An affirmative answer will indicate to me
you are not aware of myriad penalities both
a programmer and a program pay for use of
pragma hints and, are not well qualified to
comment on use of pragma hints. I tend to
believe this is not the case based upon
your posting history.
My personal experience is a prudent comment
would indicate there is correct usage of
pragma hints and, incorrect. This seems more
wise than outright branding a person a "Bad
Programmer" when the case might be, you are
giving exceptionally bad advice via dogmatic
promulgation of Urban Cargo Cultist myths.
Godzilla!
--
Get your motor running. I will rock you.
http://la.znet.com/~callgirl3/bornwild.mid
------------------------------
Date: Thu, 03 Aug 2000 06:44:39 GMT
From: Jason Maggard <jmaggard@va.mediaone.net>
Subject: Re: Copying from the web: Problems with a script
Message-Id: <398914E7.1815C92F@va.mediaone.net>
Guess you wouldn't care to elaborate??
The script specifies a HTTP 'GET" request to retrieve the file, is binmode an
argument I pass?? I do not see it referenced... (except in the FTP man pages)
As for the rest, I apologize that my subject line was not up to your liking, but
my guess is that you still are not able to identify the problem. 12 lines
dedicated to a criticism of the subject line and no real attempt to assist with
the problem... I hope you program better.
And do not think that the subtle ironies of "nobull" are lost on me, looks to me
like you're all bull.
~Jason Maggard
nobull@mail.com wrote:
> Jason Maggard <jmaggard@va.mediaone.net> writes:
>
> > Subject: Copying from the web: Problems with a script
>
> "Problems with a script" tells us nothing.
>
> > A friend asked me for a copy for his windoze machine, but the files
> > get corrupted in the download process.
>
> "Copying from the web" is missleading. The script works on Unix so
> "Copying from the web" is probably not the problem.
>
> A better subject would be "Downloads get corrupted on Windoze but not Unix".
>
> If you'd put that as the subject then 95% of the population here would
> have been able to identify your problem simply by looking at the
> subject line.
>
> Files corrupted on Windoze? Think: "binmode".
>
> --
> \\ ( )
> . _\\__[oo
> .__/ \\ /\@
> . l___\\
> # ll l\\
> ###LL LL\\
------------------------------
Date: Thu, 03 Aug 2000 06:37:54 GMT
From: Jason Maggard <jmaggard@va.mediaone.net>
Subject: Re: Copying from the web: Problems with a script
Message-Id: <39891352.D1B25C8F@va.mediaone.net>
How does this affect the download process?? If I'm downloading with this script
on a windows machine... If it's the network transfer wouldn't all windows files
be corrupt?? IE not viewable by IE....
Zipping the files is not feasable, as this script is designed for use on websites
I don't control, and zipping them would be of no use once they're downloaded and
corrupt.
Thanks for the help...
~Jaosn Maggrd
Ryan Kinder wrote:
> Jason Maggard wrote:
>
> > Howdy everybody,
> >
> > I've written this script to get all the links from a web page and it
> > works fine on my Linux box. A friend asked me for a copy for his
> > windoze machine, but the files get corrupted in the download process.
> > Is there a workaround to this?? This is a real basic script, and I'm
> > not really up on the finer details of perl, so any help would be
> > appreciated. I guess now I know what Larry said, "There's more than one
> > way to do it, and that's good, because under Windows most of them don't
> > work."
>
> Someone can correct me if I'm wrong but in a network transfer characters are
> added at the end
> of every line (a CRLF character). The easy way is to go ahead and zip the
> file, that way it's a binary, and transfer it to
> the box (the later versions of winzip will handle a tar.gz or just a .gz
> file).
>
> As an alternative, you can download a copy of Ultraedit32 for Windows and use
> it to convert from a
> UNIX type format to a Windows based one (Windows uses CRLF at the end of
> everyline, and UNIX
> based systems use a newline...I think).
>
> Ryan Kinder
>
> -------------------------------------------------------------------------
> It might look like I'm doing nothing, but at the cellular level I'm quite busy
------------------------------
Date: Thu, 03 Aug 2000 05:29:00 GMT
From: Paul King <pking@idirect.com>
Subject: Re: DBI: Same data accessed twice?
Message-Id: <3989034A.1E2C14CF@idirect.com>
Jon Drukman wrote:
> On Wed, 02 Aug 2000 03:09:11 GMT, Paul King <pking@idirect.com> wrote:
> >The inner loop "foreach" cycles through the message parts, but it seems
> >as if
> >fetchrow_array() (part of Perl::DBI) fetches the same data twice that is
> >passed to the handle. Is this possible? What am I doing wrong here?
>
> try this instead.
>
> > my $sth2 = $dbh -> prepare (
> > "SELECT * FROM messages
> > WHERE (message_num_m = $message_num)"
> > ) or die "Can't prepare SELECT statement: $DBI::errstr\n";
>
> this is fine but you might want to investigate using a placeholder
> in the select instead of putting $message_num in directly. it's
> more flexible, particularly if you want to loop.
>
> also, don't you want to ORDER BY partnum?
Messages were placed in the db in order of partnum. So, it makes
sense that I would get them out in that order, since they should at
least come out in the same order I put them in. There will only ever
be one process writing to the database.
Thanks for your input.
Paul King
>
>
> also, using * is not a good idea because you are now dependent on
> the order in which columns were defined, and if someone drops and
> recreates your table, they may be in a different order, immediately
> breaking your script.
>
> i would probably do the whole thing like this (i am guessing at
> the names of your columns):
>
> my $ref=selectall_arrayref(
> 'SELECT clientnum,partnum,of_total,message
> FROM messages WHERE message_num_m = ? ORDER BY $partnum',
> undef, $message_num);
>
> for (@$ref) {
> print <<ROW;
> For this row:
> clientnum = $_->[0]
> partnum = $_->[1]
> of_total = $_->[2]
> message = $_->[3]
> ROW
> }
>
> if you don't like all those $_->[0] constructs, you can do:
>
> my ($clientnum,$partnum,$oftotal,$message) = @{$_};
>
> at the top of the block and refer to those variables instead.
>
> -jsd-
------------------------------
Date: Wed, 02 Aug 2000 22:15:37 -0700
From: Taurean <jaurangNOjaSPAM@crosswinds.net.invalid>
Subject: Re: Delete records in 2 weeks time
Message-Id: <11a693c3.17c17de5@usw-ex0108-061.remarq.com>
>trwww@my-deja.com wrote:
>($records_seconds = $_) =~ s/.*Reference: (\d+).*/$1/;
Keith C. Ivey
>($records_seconds) = /Reference: (\d+)/;
I've tried both methods and only trwww's code worked. I
still had one problem though. I can't rename the new file
name to the old file name. My code are as follows:
#!/usr/local/bin/perl -w
$base ='somepath';
require('somepath\cgi-lib.pl');
$dbold='03_1';
$dbnew='03_2';
$dbbak='03_3';
.
.
.
open(old, "<$base\\$dbold") or my_die("Error: Can't open
$base\\$dbold",$!);
open(new, ">$base\\$dbnew") or my_die("Error: Can't open
$base\\$dbnew",$!);
.
.
.
rename('$base\\$dbold', '$base\\$dbnew') or my_die("Error:
Can't rename $base\\$dbold",$!);
rename('$base\\$dbnew', '$base\\$dbold') or my_die("Error:
Can't rename $base\\$dbnew",$!);
I've even tried using a backup file:
rename('$base\\$dbold', '$base\\$dbbak') or my_die("Error:
Can't rename $base\\$dbold",$!);
rename('$base\\$dbnew', '$base\\$dbold') or my_die("Error:
Can't rename $base\\$dbnew",$!);
But to no avail. What's wrong with my rename code? TIA.
* Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping. Smart is Beautiful
------------------------------
Date: Thu, 03 Aug 2000 06:37:19 GMT
From: jcrist@my-deja.com
Subject: Here's a tough one (relating to 500 error)
Message-Id: <8mb3v0$60t$1@nnrp1.deja.com>
This is a common problem, but this iteration of it has me baffled.
I have a Perl script with very long lines in it. I edit it using
Windows Word Pad, adding a few lines here and there and deleting a
space or two from the one of the really long lines (like a couple
thousand characters long - the script had all the line feeds removed so
all the lines run together but it still runs okay). I upload to the
UNIX Web Server in ASCII mode. It runs just fine.
Now I edit it again and delete some of the code (more than just a space
or two) from one of those really long lines. Upload to the server in
ASCII mode. I get a 500 Internal Server Error now. Telnet in and run
perl -c scriptname, syntax okay. Run perl scriptname or ./scriptname
from shell, script runs okay. Check permission, 755, okay. Run Perl -
w scriptname, no major warnings that seem would cause a problem. Still
error 500 from web browser.
I can't load and resave in PICO because it wraps the lines and screws
everything up. Besides, perl -c would say Illegal character \015
(carriage return) at scriptname line x.
Any suggestions?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 03 Aug 2000 04:39:23 GMT
From: Jim Mauldin <mauldin@netstorm.net>
Subject: Re: Impossible RegEx Problem
Message-Id: <3988F6FA.32BD40C1@netstorm.net>
Earthlink News wrote:
>
> Not quite... you see, $cool *is* a variable in the script and the eval
> statements referenced earlier *do* replace $cool with the value of the
> scalar $cool (in this case, $cool == 'cool').
> >
> > $parameter = 's%Rick%Rick is $cool%g'; # rexep from config file
> > $cool = 'a dick'; # assignment within the script
> > $parameter =~ s/\$cool/$cool/; # replace substr '$cool' with value of
> > $cool
> > $_ = q(As far as I'm concerned Rick and someone to avoid); # string to
> > search
> > eval ($parameter);
> > print;
> Not quite; the eval ($parameter) does short work of this. So the logic goes
> something like this:
You __didn't__ test my code because it gives you what you want. Now
let's look at yours line by line.
> ### In config file:
> parameter: "s%Rick%Rick is $cool%g"
You must mean
# parameter: "s%Rick%Rick is $cool%g"
perl -w gives a "Scalar found where operator expected" error until you
add the missing ; at the end of the line, in which case it returns a
"Useless use of string in void context" warning. So comment it out.
> ### In the script:
> # Read in config file and assign parameters to local variables:
> $p = 'parameter';
What's $p? You never use it again.
> $$p = '"s%Rick%Rick is $cool%g"';
Stranger still. Normally $$p would dereference a reference, but no
reference has been created so Perl treats this as a valid scalar
variable name, to my surprise. OK, so be it, but what are you trying to
do?
> $cool = 'cool but Jim is an asswipe';
perl -w gives a "Name main::cool used only once: possible typo"
warning. This should tell you something. You have assigned a value to
it, but you never use it again.
> $doc = 'What do you think about the posters? Rick';
> # Here's where the problem starts:
> $doc =~ eval($$p);
> print "$doc\n";
> # This *should* return
> What do you think about the posters? Rick is cool but Jim is an asswipe
But it doesn't because $$p contains - literally, character for character
- "s%Rick%Rick is $cool%g" (including the quotes). Which is what? - a
bunch of characters, not the regex you want. Furthermore, even if you
succeed in eval-ing a proper regex, the way you've stated it, it would
eval $_, then return that value and try to do a search on doc using
whatever eval returned as a regex. Not what you want, I think, and way
too confused.
Test my code! and you'll see that it does what you say you want. Aside
from the numerous glitches in your work, from what I can tell your
problem is still that you want to replace the placeholder '$cool' with
the value contained in the variable $cool.
BTW I see from your headers that your name is probably Rick. Didn't
mean to insult you.
-- Jim
------------------------------
Date: Thu, 03 Aug 2000 05:29:16 GMT
From: "Earthlink News" <rickysregistration@hotmail.com>
Subject: Re: Impossible RegEx Problem
Message-Id: <Mq7i5.5757$Z6.236490@newsread1.prod.itd.earthlink.net>
Jim Mauldin <mauldin@netstorm.net> wrote in message
news:3988F6FA.32BD40C1@netstorm.net...
> Earthlink News wrote:
> > ### In config file:
> > parameter: "s%Rick%Rick is $cool%g"
>
> You must mean
> # parameter: "s%Rick%Rick is $cool%g"
Hi Jim,
Not quite; this line is an excerpt from the config file which is just a
straight text file that my code parses. Basically, my code goes through the
config file and takes anything before the : to be the name of the variable
and anything after the : (+ spaces) to be the value of that parameter. So,
in my Perl script, the parameters defined in the config file would result
in:
# In Perl script:
# name of variable
$p = 'parameter';
# $$p is the same as $parameter (used elsewhere in the script)
$$p = '"s%Rick%Rick is $cool%g"';
I think I'm somewhat to blame for the confusion because I forgot to mention
that the code I was including was just pseudo-code, and not actual
executable code, in order to explain what I was trying to do. This code is
executable, though, so you should be able to recreate the problem. So now
that the script has $$p set to the correct regex (note the single quotes
surrounding $$p's value), I'd like it to actually make that substitution
with:
# The substitution phrase:
$cool = 'one cool cat';
# String I'd like to do the substitution on (retrieved from the web):
$doc = 'Rick';
But here is where the problems start; I've tried different combinations of
evals and /e's (I'm including a couple below) but none seem to work. The
result I'd like is for $doc == 'Rick is one cool cat' but I keep getting
$doc == 'Rick' no matter which of the following I try:
# Check:
# This correctly returns: s%Rick%Rick is one cool cat%g
print eval($$p);
# Try different substitutions:
$doc =~ eval($$p);
eval($doc =~ $parameter);
eval($doc =~ eval($parameter));
print "\n$doc\n";
> bunch of characters, not the regex you want. Furthermore, even if you
> succeed in eval-ing a proper regex, the way you've stated it, it would
> eval $_, then return that value and try to do a search on doc using
Good point! That's why I tried the other sub schemes, too... but none of
them seem to work either. No matter which method is employed, the print
always returns: Rick
> BTW I see from your headers that your name is probably Rick. Didn't
> mean to insult you.
No worries. :) I'm using a computer at a remote location (unfortunately,
I'm forced to use M$ Outlook) and didn't bother setting the ID string
correctly. Thanks for your help, though!
Regards,
Rick.
------------------------------
Date: Thu, 03 Aug 2000 06:47:36 GMT
From: Jim Mauldin <mauldin@netstorm.net>
Subject: Re: Impossible RegEx Problem
Message-Id: <39891509.21E21563@netstorm.net>
Earthlink News wrote:
>
> Thanks for your help, though!
>
I've given you a workable solution twice, but since you refuse to test
or study it (or test your own code)
*PLONK*
------------------------------
Date: Wed, 2 Aug 2000 23:39:40 -0500 (CDT)
From: dennis100@webtv.net (BUCK NAKED1)
Subject: Re: outputting a CGI script to another frame?
Message-Id: <17200-3988F78C-53@storefull-242.iap.bryant.webtv.net>
>>jeff@yoak.com (Jeff=A0Yoak)
>>In article >>8mae0o$n06$1@nnrp1.deja.com, >>j555@my-deja.com wrote:
>>Hi, I've got a search mechanism in
>one frame (a form) and I'd like its output >>to go to another frame.
Can someone >>tell me how I go about doing that?
>This really doesn't have anything to
>do with Perl. You should consider an >HTML newsgroup if the
documentation >and FAQ that are available for HTML >don't address this.
>Cheers,
>Jeff
Hmmm.... this calls for extraction and returning input. HTML is static,
and does not do that. It sounds like either a CGI or Perl problem to me.
Maybe someone can direct you. I don't know Perl well enough to say, but
I do know HTML, and that HTML will not do it. --Dennis
------------------------------
Date: Thu, 03 Aug 2000 06:40:01 GMT
From: Nitin <muhala@my-deja.com>
Subject: pattern matching across two lines
Message-Id: <8mb442$61l$1@nnrp1.deja.com>
I have text as follows:
foo^M
bar
in several files. I need to replace this with:
foobar
How can I match patterns across two lines?
Thanks,
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 03 Aug 2000 06:59:52 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Preserving exit code through END subroutine
Message-Id: <slrn8oi6ct.3fc.rgarciasuarez@rafael.kazibao.net>
Christian Kaufhold wrote in comp.lang.perl.misc:
>John Fenk <fenkNOfeSPAM@agora.rdrop.com.invalid> wrote:
>> #!/usr/local/bin/perl
>> exit 50;
>> END { system "ls"; }
>>
>> exits with return code of 0.
>
>That is because "system" clobbers $?.
>
>
>> perl 5.005_03 on Solaris if it matters.
>>
>> Is this a bug or a feature? Is there an easy way of preserving
>> the exit code through the END subroutine? I had expected the
>> exit code to be 50 unless I had another exit statement in the END
>> subroutine.
>
>
>See perldoc perlvar about $? and END blocks.
Thus the above returns an exit code of 50:
exit 50;
END { local $?; system 'ls'; }
--
Rafael Garcia-Suarez
------------------------------
Date: Thu, 03 Aug 2000 06:58:06 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: question about a Regular Expression
Message-Id: <vm5iossf9e3vuk16cdp8ttgppf9cafnrru@4ax.com>
Philip Taylor wrote:
>> I would write
>>
>> if (/^\s* \d\d? \s*-\s* \d\d? \s*$/x) {
>> ...;
>> }
>
>What does the x on the end do?
Ignore whitespace (including newlines) and Perl style comments inside
the regex. Of course, for the latter, you need a multiline regex.
$_ = 'aaa bb ab abbb';
/( # grab
a + # a's
\ * # any spaces
b + # b's
) # end grab
/x and print "<$1>\n";
--
Bart.
------------------------------
Date: Thu, 03 Aug 2000 05:55:26 GMT
From: jason <elephant@squirrelgroup.com>
Subject: Re: returning an array
Message-Id: <MPG.13f3a6b151aacb8a9896bc@news>
Blair Heuer writes ..
>A script I am writing uses a database to handle all data and to simplify
>coding, I decided to use a function for getting the data to save on space
>and readability. The problem is, when I get the data it is returned in an
>array of hashes, but I can't figure out how to return an array. Using:
><code> return @return; </code> only returns the number of elements in the
>array. Using <code> return "@return"; </code> returns the value flat as a
>string, not allowing for more than one data item to be loaded.
>
>So the question: How do I return an array? Should I use references somehow?
>Also, would returning a hash follow the same methods.
an array can have two values depending on whether it is evaluated in
LIST or SCALAR context .. forget the subroutine stuff because it has
nothing to do with that .. the subroutine is correctly returning the
array .. but then the array is being evaluated in three different
contexts
you may as well test with
my @values = qw(one two three four);
my $scalar = @values; # scalar context - equals number of elements
my @array = @values; # list context - equals list of elements
my %hash = @values; # list context - equals list of elements
then read
perldoc perldata
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Thu, 03 Aug 2000 06:49:35 GMT
From: Nitin <muhala@my-deja.com>
Subject: Re: returning an array
Message-Id: <8mb4lv$6d4$1@nnrp1.deja.com>
try return (@return);
-nitin
In article <JW5i5.4588$0W4.156550@newsread2.prod.itd.earthlink.net>,
"Blair Heuer" <ab@cd.com> wrote:
> A script I am writing uses a database to handle all data and to
simplify
> coding, I decided to use a function for getting the data to save on
space
> and readability. The problem is, when I get the data it is returned
in an
> array of hashes, but I can't figure out how to return an array. Using:
> <code> return @return; </code> only returns the number of elements in
the
> array. Using <code> return "@return"; </code> returns the value flat
as a
> string, not allowing for more than one data item to be loaded.
>
> So the question: How do I return an array? Should I use references
somehow?
> Also, would returning a hash follow the same methods.
>
> Here is the code used (it still needs to handle differentiating
between
> returning an array or hash, but it should only return an array of at
least
> one element):
>
> <code>
>
> # Get Data Routine
> sub gd() {
> my ( $table, $select, $where ) = @_;
> my ( @return, $load );
>
> $load = $db->prepare( "SELECT $select FROM $table WHERE
$where;" );
> $load->execute;
>
> if ( $select eq '*' or $select =~ /,/) {
> while ( $data = $load->fetchrow_hashref ) { push ( @return,
> $data ); }
> } else { $return[0] = $load->fetchrow_array; }
>
> $load->finish;
>
> return @return; # Here is the trouble spot
>
> }
>
> # Sample Calls
> $t{'board_last'} = &gd( 'posts', 'max(post_date)',
> "board_id=$t{'board_id'}" );
> @posts = &gd( 'posts', '*', "board_id=$t{'board_id'} AND
> post_date='$t{'board_last'}';" );
> %post = &gd( 'posts', '*', "board_id=$t{'board_id'} AND
> topic_id=$t{'topic_id'} AND post_id=$t{'post_id'};" );
>
> </code>
>
> Thanks a ton,
> Blair
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 03 Aug 2000 03:57:18 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: splitting on spaces
Message-Id: <3994ebaf.13592179@news.newsguy.com>
jason <elephant@squirrelgroup.com> wrote:
>I'm not commenting on that .. because I do think that it's a little
>rough to expect someone to be aware that interleaved posting or bottom-
>posting is the accepted way to post on usenet .. because there is no
>clear mention in the FAQs that I've seen either
I think the problem is that jeopardy quoting is a relatively new
thing in the history of Usenet. It's only since substantial
numbers of people have started using inappropriate programs
(such as Microsoft Outlook and Netscape Navigator) as
newsreaders that it and other formatting problems have been
common. So cautions against jeopardy quoting haven't found
their way into conservative documents such as those posted on
news.announce.newusers.
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Thu, 03 Aug 2000 05:27:00 GMT
From: nvp@spamnothanks.speakeasy.org (NP)
Subject: Re: splitting on spaces
Message-Id: <Eo7i5.191397$t91.1693679@news4.giganews.com>
On Thu, 03 Aug 2000 03:57:18 GMT, Keith Calvert Ivey <kcivey@cpcug.org> wrote:
:
: I think the problem is that jeopardy quoting is a relatively new
: thing in the history of Usenet. It's only since substantial
: numbers of people have started using inappropriate programs
Okay, I just found the news.announce.* doc that talks about where
quoted materials should appear in an article. It's the "Emily Post"
document. On the other hand, that still doesn't explain who coined
the "jeopardy" phrase. But in the grand scheme of things, I suppose
that it doesn't matter, since Emily can't be wrong. :-)
--
Nate II
------------------------------
Date: 03 Aug 2000 06:39:09 GMT
From: abigail@foad.org (Abigail)
Subject: Re: splitting on spaces
Message-Id: <slrn8oi4ru.6n1.abigail@alexandra.foad.org>
jason (elephant@squirrelgroup.com) wrote on MMDXXIX September MCMXCIII in
<URL:news:MPG.13f381f58d444fe29896ba@news>:
`'
`' with that as my only evidence I would propose that this group does not
`' judge the jeopardists harshly .. nor does it expect people to get it
`' right first time .. people don't get plonked for jeopardising (I'm
`' enjoying these jeopardy based words immensely) as they certainly do for
`' asking FAQs and OT questions (has anyone coined OTQ yet ?)
Speak for yourself. I generally plonk jeopardists on their first offence.
Abigail
--
$; # A lone dollar?
=$"; # Pod?
$; # The return of the lone dollar?
{Just=>another=>Perl=>Hacker=>} # Bare block?
=$/; # More pod?
print%; # No right operand for %?
------------------------------
Date: Thu, 03 Aug 2000 08:32:58 +0200
From: "Ellegiers, J. M. (Jens)" <jellegie@ford.com>
Subject: Re: Upload File???
Message-Id: <3989121A.AA758D5A@ford.com>
Hi,
"Alex T." wrote:
>
> Have you got anything similar to work? If you tried you would see what the
> problem is.
>
What happens there?
I have that running ( Perl 5.005_02 ). A form with a file input field, a
textarea, some text fields and some hidden fields without any problem.
> Alex
>
> nobull@mail.com wrote:
>
> > Abel Almazan <abel@inlander.es> writes:
> >
> > > I need to upload a file and i have a perl that do that, but...
> > >
> > > i need to retrieve more information from the form (like description,
> > > etc..) and i don't know how to get this info.
> >
> > I assume you mean this information is entered in other fields in the
> > same form as contains the file upload field?
> >
> > > normallly i use CGI.pm and param('<name of the field>'), but i don't
> > > hope this work this time.
> >
> > Why not?
> >
> > --
> > \\ ( )
> > . _\\__[oo
> > .__/ \\ /\@
> > . l___\\
> > # ll l\\
> > ###LL LL\\
--
Viele Gruesse, regards, saludos
Jens Ellegiers
---------------------------------------------------------------
FORD-Werke AG, Spessartstrasse, 50725 Koeln
Jens Ellegiers Email: jellegie@ford.com /"\
Engineer (I-Engine CAE) Phone: +49-221-90-31467 \ /
Mail Sym: D-ME/PN-S Fax : +49-221-90-33025 X
ASCII Ribbon campaign against HTML E-mail & Usenet News >------> / \
------------------------------
Date: Thu, 3 Aug 2000 09:00:21 +0200
From: "Klaus Lyngsoe" <klaus@whitehat.dk>
Subject: Re: Value of undefined variable in activeperl
Message-Id: <rL8i5.39$F71.807@news.get2net.dk>
Thanks Keith !
You are the greatest - just saved me from asking 1700 users to change their
password :)
/Klaus
"Keith Calvert Ivey" <kcivey@cpcug.org> wrote in message
news:398fca3a.5025026@news.newsguy.com...
> "Klaus Lyngsoe" <klaus@whitehat.dk> wrote:
>
> >I have crypted my users password like this:
> >$cryptpass = crypt ($password, $salt);
> >
> >The problem is that I did not give $salt any value before using it to
> >encrypt the password. It works fine in active perl, but returns
$cryptpass
> >with no value on the linux-server. I believe it means that an undefined
$var
> >has a value in activeperl.
> >
> >Can anybody help me out and tell me what that value of an undefined $salt
in
> >activeperl is ?
>
> C:\TEMP>perl -e"print crypt('foo', undef)"
> AAWTPsRihC6Ok
> C:\TEMP>perl -e"print crypt('barbaz', undef)"
> AAlSlrltM/onw
> C:\TEMP>perl -e"print crypt('barbaz', 'AA')"
> AAlSlrltM/onw
>
> Looks like it's "AA" -- the salt is the first two characters of
> the encrypted string.
>
> --
> Keith C. Ivey <kcivey@cpcug.org>
> Washington, DC
------------------------------
Date: Thu, 3 Aug 2000 08:33:51 +0200
From: "Mitzei" <mitzei@usa.net>
Subject: which free search script
Message-Id: <Wk8i5.9$Xi3.469@nreader1.kpnqwest.net>
Hi,
I am looking for a free script for searching my site. I should fill the
following requirements:
*) indexing database
*) work with META-tags (description and keywords) and full text
*) generate a report-file with the keywords searched
If you are using META-tags, are the tag-names case-sensitive? i.e: I am
indexing the keywords and in my .html-files the tags are named "Keywords"
and sometimes "keywords" or META and meta.
I already found one script, but this does not work properly, if my
"search-field" is in a frame and was not customizable.
I would be glad if somebody could mail me such a script or tell me an URL
for downloading it.
tia
Alex Mitterer
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3897
**************************************
