y dealing with
people who know their way around.
Anyway, I know this thread is supposed to be dead, but since it refuses
to die, I felt like putting in my two cents- sorry, admin, and everyone
who wants it to go away.
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
covers this and other
questions that get asked a lot and aren't in the Perl faq :).
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
t of view) to use iterative constructs even in places where recursion is
more natural, but tail-call optimization would be required?
Thanks
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
n value is use it in a sql
statement it would be reasonable to write a subroutine that returned a piece
of that sql statement as a string (which would be a little (but maybe not
much) more complicated than just concatenating the fieldnames), since that's
all you will need.
Tagore Smith
--
To
ure how you would do this in Perl.
Thanks
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
in the set. The d means to
delete any characters for which you haven't given a translation (and in the
tr above you aren't giving any translations). So your tr means delete any
characters in $name that aren't in the set of characters given between the
first two / characters. I think
ou subscribed to beginners-cgi? It is specifically for cgi (in
Perl).
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
but I agree that it is good form to close the tags.
Since recent web servers and browsers increasingly use compression, and
repeated elements compress well, bandwidth is becoming less of an issue.
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
If that's the case the following checks to see if the key
$user exists and then gets the values in the associated hash.
if (defined(%{$users{$user}})){
while((my $key, my $value)=each(%{$users{$user}})){
print "$key: $value\n";
}
}
else {
print "No match for $user.";
}
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
pdf. You can find it at:
http://cookies.lcs.mit.edu/
Sorry for posting twice, but I think this is worth reading if you are doing user
authentication, and it's pretty entertaining as well.
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [
hentication well. One of the things it talks about is the
weakness of the authentication scheme at the Wall Street Journal's web page
caused by a misunderstanding of how crypt works.
They do propose a stronger authentication scheme.
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Ahmed Moustafa wrote:
> Tagore Smith wrote:
>
> > Ahmed Moustafa wrote:
> >
> >
> >>So, how can a new different process by forked? Or, how a function be
> >>called and the next step execute without waiting for the previous
> >>function to te
use exec to execute another process which is
not a "clone" of the parent.
See perldoc -f fork and perldoc -f exec.
Out of curiosity, why do you want to do this?
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Jeff 'japhy' Pinyan wrote:
>
> $string =~ s/(.{1,78})\s/$1\n/g;
>
I played around with this a bit and came up with something similar:
$line=~ s/(.{1,78})(\Z|\s)/$1\n/g;
I think
$string =~ s/(.{1,78})\s/$1\n/g;
assumes that the string ends in whitespace.
Tag
new MainWindow;
> $menubar= $main->Frame(-relief=>"raised",
>-borderwidth=>2);
>
> $filebutton=$menubar->Menubutton;(-text="File",
> -underline=>0);
You have a semicolon betwen Menubutton and (-text etc.), and the = should be
=>.
Also,
21;
my $shortdescription='short sleeved t-shirt';
$products{$short}= {
number => $shortnum,
description => $shortdescription,
};
There are, of course, other ways to write this. What's going on is that each
value in %products is a reference to an anonymous hash. Perl doesn't really
have hashes of hashes- it has hashes of references to hashes.
Tagore Smith
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
he playedCards select box.
>
> open (PLAYED,"played.txt");
> @playedCards = ;
> close PLAYED;
>
> if (playedCardsCheckbox){
>
> print param("playedCardsCheckbox");
> foreach my $item (param("playedCardsCheckbox")){
> print @pl
Jeremy Vinding wrote:
> duh... thx
> of course, the results still favor sort:
>
> Benchmark: timing 100 iterations of for 10_000 elems, for 20 elems,
sort
> 10_000 elems, sort 20 elems...
> for 10_000 elems: 7 wallclock secs ( 5.11 usr + 0.02 sys = 5.13 CPU) @
> 194931.77/s (n=100)
> f
18 matches
Mail list logo
