[16412] in Perl-Users-Digest
Perl-Users Digest, Issue: 3824 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 27 18:10:43 2000
Date: Thu, 27 Jul 2000 15:10:30 -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: <964735830-v9-i3824@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 27 Jul 2000 Volume: 9 Number: 3824
Today's topics:
for and foreach difference??? <keith@netcentral.net>
Re: for and foreach difference??? (Andrew J. Perrin)
Re: for and foreach difference??? <lauren_smith13@hotmail.com>
Help with CGI/expect.pmkjjjjjj script please. <skil@my-deja.com>
home-grown encryption <zkent@mail.com>
Re: home-grown encryption <lauren_smith13@hotmail.com>
Re: home-grown encryption <lr@hpl.hp.com>
How to use "touch" in perl (Otto Wyss)
Re: How to use "touch" in perl (Greg Bacon)
Re: How to use "touch" in perl (Abigail)
Linked list etc. (Pjtg0707)
Linux, Perl and parallelport <jonny.snell@telia.com>
newb Q, Our perl guy left!! <jtoy@tcgfinancial.com>
Re: newb Q, Our perl guy left!! (Greg Bacon)
Re: newb Q, Our perl guy left!! <jtoy@tcgfinancial.com>
Re: newb Q, Our perl guy left!! <jtoy@tcgfinancial.com>
Re: newb Q, Our perl guy left!! (Greg Bacon)
Re: newb Q, Our perl guy left!! (Greg Bacon)
Re: newb Q, Our perl guy left!! rbfitzpa@my-deja.com
Re: newb Q, Our perl guy left!! (Craig Berry)
Re: newb Q, Our perl guy left!! <jtoy@tcgfinancial.com>
Re: newb Q, Our perl guy left!! <jtoy@tcgfinancial.com>
Re: newb Q, Our perl guy left!! <jtoy@tcgfinancial.com>
Re: newb Q, Our perl guy left!! <jtoy@tcgfinancial.com>
Re: newb Q, Our perl guy left!! <russ_jones@rac.ray.com>
Re: newb Q, Our perl guy left!! <jtoy@tcgfinancial.com>
Re: newb Q, Our perl guy left!! <jtoy@tcgfinancial.com>
Re: newb Q, Our perl guy left!! (Abigail)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 27 Jul 2000 18:27:58 GMT
From: kj <keith@netcentral.net>
Subject: for and foreach difference???
Message-Id: <8lpuv7$ugt$1@nnrp1.deja.com>
I had the following code and it didn't work:
<code>
#!/usr/bin/perl
use strict;
my ($cid,$iid,$sid,$pid,@items);
while(<DATA>){
chomp;
($cid,$iid,$sid,$pid) = split(/,/);
push(@items, {'cid' => $cid,'iid' => $iid,'sid' => $sid,'pid'
=> $pid});
}
foreach(@items){
print "$items[$_]{'iid'}\t$items[$_]{'pid'}\n";
}
no strict 'subs';
__DATA__
1,1,3,45
2,1,3,45
3,2,3,45
4,5,6,4
6,6,6,6
</code>
When I replaced the foreach with the following for, the script worked
as I expected.
<code>
for(0 .. $#items){
print "$items[$_]{'iid'}\t$items[$_]{'pid'}\n";
}
</code>
What is causing "foreach(@items)" to not function like ("for(0 ..
$#items)"?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 27 Jul 2000 14:58:19 -0400
From: aperrin@demog.berkeley.edu (Andrew J. Perrin)
Subject: Re: for and foreach difference???
Message-Id: <uittrs8ms.fsf@demog.berkeley.edu>
kj <keith@netcentral.net> writes:
> I had the following code and it didn't work:
[snip]
>
> foreach(@items){
> print "$items[$_]{'iid'}\t$items[$_]{'pid'}\n";
> }
[snip]
>
> When I replaced the foreach with the following for, the script worked
> as I expected.
> <code>
> for(0 .. $#items){
> print "$items[$_]{'iid'}\t$items[$_]{'pid'}\n";
> }
> </code>
>
> What is causing "foreach(@items)" to not function like ("for(0 ..
> $#items)"?
Hint: your subject line is wrong, it has nothing to do with any
(nonexistent) difference between for and foreach.
To wit:
main::(-e:1): 1
DB<1> @items=qw(apple orange banana bear)
DB<2> print "$_\n" for @items;
apple
orange
banana
bear
DB<3> print "$_\n" for (0..$#items);
0
1
2
3
DB<4> print "$_\n" foreach @items;
apple
orange
banana
bear
DB<5> print "$_\n" foreach (0..$#items);
0
1
2
3
Does that explain it?
--
--------------------------------------------------------------
Andrew J. Perrin - UC Berkeley, Sociology & Demography
Consulting: Solaris-Linux-NT-Samba-Perl-MS Access-Postgres
andrewperrin@netscape.net - http://demog.berkeley.edu/~aperrin
--------------------------------------------------------------
------------------------------
Date: Thu, 27 Jul 2000 12:21:32 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: for and foreach difference???
Message-Id: <8lq21v$hrl$1@brokaw.wa.com>
kj <keith@netcentral.net> wrote in message
news:8lpuv7$ugt$1@nnrp1.deja.com...
> I had the following code and it didn't work:
>
> foreach(@items){
> print "$items[$_]{'iid'}\t$items[$_]{'pid'}\n";
> }
>
> When I replaced the foreach with the following for, the script worked
> as I expected.
> for(0 .. $#items){
> print "$items[$_]{'iid'}\t$items[$_]{'pid'}\n";
> }
>
> What is causing "foreach(@items)" to not function like ("for(0 ..
> $#items)"?
Have you read the documentation for for/foreach?
For and foreach are the same. The difference is only for programmers
reading the code, the compiler turns it them into the same command.
The reason for their existence is to cycle through the list they are
provided. If you provide a variable for them to put the current value into,
they will.
for my $value (@array) { $value }
for (@array) { $value = $_; }
for my $index (0..$#array) { $value = $array[$index]; }
for (0..$#array) { $value = $array[$_]; }
These are examples of assigning each item in your @array to the scalar
$value. But if you had read perlsyn, you would have known that.
perldoc perlsyn
Lauren
------------------------------
Date: Thu, 27 Jul 2000 18:37:38 GMT
From: skil <skil@my-deja.com>
Subject: Help with CGI/expect.pmkjjjjjj script please.
Message-Id: <8lpvhi$v0t$1@nnrp1.deja.com>
I am having a very difficult time trying to avoid having the output from
my expect subrouting being displayed in html. It is a very simple
script and it works on the command line just fine, but when I put it
into html I get many errors from malformed headers to the expect script
not completing. Please take a look at it and pass along any suggestions
that you might have.
Thanks.
#!/usr/bin/perl
use Expect;
genpass();
$user="test";
print "Content-type: text/html\n\n";
print <<EOF;
<HTML>
<HEAD><TITLE>User password reset</TITLE></HEAD>
<BODY TEXT="white" BGCOLOR="black">
<BR><BR><BR><BR><BR><BR><BR><BR>
<center>The user selected was: $user</center>
<BR><BR>
<center>The new password is: $password</center>
</BODY>
</HTML>
EOF
changepass();
sub genpass {
#Generate random password;
@chars=(0..9,"A".."Z","a".."z",qw/! @ # $ % ^ & * ( ) _ +/);
$password=join('',@chars[map{rand @chars}(1..8)]);
}
#this is only for testing purposes, sudo is locked down to only being
#able to change one particular test users password
sub changepass {
$PASSWD='/usr/local/bin/sudo /usr/bin/passwd';
$chgpass=Expect->spawn($PASSWD,$user);
$chgpass->log_stdout(0);
$chgpass->expect(5,'-re','word:*\s$')||(die"Never got password
prompt\n");
print $chgpass "$password\r";
$chgpass->expect(5,'-re','gain:\s*$')||(die"Never got confirm
prompt\n");
print $chgpass "$password\r";
$prompt='.*\s$';
$chgpass->expect(1,'-re',$prompt)||(die "Never got prompt on
host\n");
$chgpass->soft_close();
}
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 27 Jul 2000 15:35:55 -0400
From: Zachary Kent <zkent@mail.com>
Subject: home-grown encryption
Message-Id: <39808F1B.437CB0BC@mail.com>
I have created a simple encryption routine to encrypt social security
numbers collected on a website I have developed. I tried and tested the
routine many times, but apparently there is something wrong. Every now
and again, I get a record that does not contain all of the original
digits. I must be running into a rounding error.
The basic idea is to create an aplhanumeric key, convert that key to
ascii equivalents to get an array numbers, and use the elements of that
array to perform a series of mathematical somersaults on the SSN to
jumble the SSN. In theory, I can then take the resulting number, run the
series of steps backwards and end up with the original SSN. It works...
99% of the time. I have never done much more than simple math with perl
and would appreciate any insight to the error here or any alternative.
Thanks,
Zach
sub encrypt_ssn {
$debug = 0;
my ($ssn) = @_;
$key = DeMoiB1; #uniqe seed
$ssn =~ s/-//g; #remove dashes
$ssn =~ s/ //g; #remove spaces
# Make sure that only numbers exist
if(!($ssn =~ /^[0-9]*$/))
{
&error("Invalid Characters in Social Security Number.");
exit;
}
# Check for correct number of digits..
$len = length($ssn);
if(length($ssn) != 9)
{
&error("Incorrect Number of Digits for SSN. There should
be
9");
exit;
}
@key = split(//,$key);
# debug routine
if ($debug) {
print "\n\nKey Assignments:\n";
foreach $char (a...z,0...9) {
$ucchar = uc($char);
print "\n$char = ".ord($char)."\t$ucchar =
".ord($ucchar);
}
}
#convert the key into ascii equivalents
# Note: I think this is where my problem lies
foreach $char (@key) {
$c = ord($char);
push (@asciikey, $c);
}
# Run 6 calcualtions based on the new @asciikey array
# elements.
#step 1
$ssn = $ssn+($asciikey[0]*$asciikey[5]);
#step 2
$ssn = $ssn-$asciikey[1];
#step 3
$ssn = $ssn/$asciikey[2];
#step 4
$ssn = $ssn*$asciikey[3];
#step 5
$ssn = $ssn/$asciikey[4];
#step 6
$ssn = $ssn+2*$asciikey[5];
return $ssn;
}
------------------------------
Date: Thu, 27 Jul 2000 13:23:32 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: home-grown encryption
Message-Id: <8lq5m9$jkh$1@brokaw.wa.com>
Zachary Kent <zkent@mail.com> wrote in message
news:39808F1B.437CB0BC@mail.com...
> I have created a simple encryption routine to encrypt social security
> numbers collected on a website I have developed. I tried and tested the
> routine many times, but apparently there is something wrong. Every now
> and again, I get a record that does not contain all of the original
> digits. I must be running into a rounding error.
<off-topic> I'm wary of sites that want my SSN. Do you *really* need it?
Is there another way to do what you want without an SSN?
</off-topic>
For what values does your script fail?
What does your unencryption routine look like? Possibly the problem lies
there.
Lauren
------------------------------
Date: Thu, 27 Jul 2000 14:21:01 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: home-grown encryption
Message-Id: <MPG.13ea479bfb14291a98abf9@nntp.hpl.hp.com>
In article <39808F1B.437CB0BC@mail.com> on Thu, 27 Jul 2000 15:35:55 -
0400, Zachary Kent <zkent@mail.com> says...
> I have created a simple encryption routine to encrypt social security
> numbers collected on a website I have developed. I tried and tested the
> routine many times, but apparently there is something wrong. Every now
> and again, I get a record that does not contain all of the original
> digits. I must be running into a rounding error.
You are probably running into a result that is less than 100_000_000.
Try
sprintf '%.9d' => $result
...
> sub encrypt_ssn {
> $debug = 0;
> my ($ssn) = @_;
>
> $key = DeMoiB1; #uniqe seed
I doubt that that is a call to a previously declared subroutine, so it
must be a bareword. Please use 'use strict;', and don't use barewords.
> $ssn =~ s/-//g; #remove dashes
> $ssn =~ s/ //g; #remove spaces
$ssn =~ tr/- //d;
Or, even better,
$ssn =~ tr/0-9//cd;
and you won't have to test for non-digits, because there won't be any.
> # Make sure that only numbers exist
> if(!($ssn =~ /^[0-9]*$/))
if ($ssn =~ /\D/) {
> {
> &error("Invalid Characters in Social Security Number.");
> exit;
> }
>
> # Check for correct number of digits..
> $len = length($ssn);
$len is never used.
> if(length($ssn) != 9)
> {
> &error("Incorrect Number of Digits for SSN. There should
> be
> 9");
> exit;
> }
>
> @key = split(//,$key);
Superfluous. See below.
> # debug routine
> if ($debug) {
> print "\n\nKey Assignments:\n";
> foreach $char (a...z,0...9) {
More barewords; wrong range operator.
> $ucchar = uc($char);
> print "\n$char = ".ord($char)."\t$ucchar =
> ".ord($ucchar);
> }
> }
>
> #convert the key into ascii equivalents
> # Note: I think this is where my problem lies
I don't.
> foreach $char (@key) {
> $c = ord($char);
> push (@asciikey, $c);
> }
my @asciikey = unpack 'C*' => $key;
> # Run 6 calcualtions based on the new @asciikey array
> # elements.
>
> #step 1
> $ssn = $ssn+($asciikey[0]*$asciikey[5]);
$ssn += ... (and similarly below)
> #step 2
> $ssn = $ssn-$asciikey[1];
>
> #step 3
> $ssn = $ssn/$asciikey[2];
Now you no longer have an integer!
> #step 4
> $ssn = $ssn*$asciikey[3];
>
> #step 5
> $ssn = $ssn/$asciikey[4];
>
> #step 6
> $ssn = $ssn+2*$asciikey[5];
Without looking at the validity of your algorithm, I would worry about
fractions and too small an integer part. See above for one approach,
not guaranteed.
> return $ssn;
> }
Have you looked at the proven encryption modules available on CPAN?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 27 Jul 2000 22:41:41 +0200
From: otto.wyss@bluewin.ch (Otto Wyss)
Subject: How to use "touch" in perl
Message-Id: <1eeg96o.10h3f3e1uhjkxsN%otto.wyss@bluewin.ch>
I'd like to set the modification time of files to the value of a
reference file. While in a shell I could use touch, i.e.
touch -r foo bar
How can I accomplish this in perl? It seems I'm to stupid to figure out
how to call touch in perl or to find the right built-in function.
O. Wyss
------------------------------
Date: Thu, 27 Jul 2000 20:41:35 GMT
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: How to use "touch" in perl
Message-Id: <so17jvgb3j124@corp.supernews.com>
In article <1eeg96o.10h3f3e1uhjkxsN%otto.wyss@bluewin.ch>,
Otto Wyss <otto.wyss@bluewin.ch> wrote:
: I'd like to set the modification time of files to the value of a
: reference file. While in a shell I could use touch, i.e.
:
: touch -r foo bar
:
: How can I accomplish this in perl? It seems I'm to stupid to figure out
: how to call touch in perl or to find the right built-in function.
Read at the documentation for the system() operator in the perlfunc
manpage.
Greg
--
When I was studying programming, one of my classmates was having serious
troubles with his program. When he asked me for help, I leaned over his
screen and saw all of his code in comments. The reason: "Well, it compiles
much faster that way." -- From "Computer Stupidities"
------------------------------
Date: 27 Jul 2000 17:59:04 EDT
From: abigail@foad.org (Abigail)
Subject: Re: How to use "touch" in perl
Message-Id: <slrn8o1c51.vcg.abigail@alexandra.foad.org>
Otto Wyss (otto.wyss@bluewin.ch) wrote on MMDXXII September MCMXCIII in
<URL:news:1eeg96o.10h3f3e1uhjkxsN%otto.wyss@bluewin.ch>:
:} I'd like to set the modification time of files to the value of a
:} reference file. While in a shell I could use touch, i.e.
:}
:} touch -r foo bar
:}
:} How can I accomplish this in perl? It seems I'm to stupid to figure out
:} how to call touch in perl or to find the right built-in function.
utime
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
------------------------------
Date: Thu, 27 Jul 2000 21:39:48 GMT
From: Pjtg0707@Netscape.net (Pjtg0707)
Subject: Linked list etc.
Message-Id: <so1b14a43j1105@corp.supernews.com>
Is there any resources on the web where I can get to to either look at some
codes or get a module for setting up linked lists and buffers? I've searched
CPAN under linked list and came up empty.
I have some stock ticker data I'd like to read in, arrange them in correct
temperal order in a hash table ( hash in a hash in a hash etc...).
------------------------------
Date: Thu, 27 Jul 2000 20:06:04 GMT
From: Jonny Snell <jonny.snell@telia.com>
Subject: Linux, Perl and parallelport
Message-Id: <39809612.659C2E85@telia.com>
Hello!
I like radio controlled model airplanes.
We use NiCad and Nickel-Metal-Hydrid batteries to our radio equipment.
I need to test the batteries from time to time.
I found a building project on
http://home.c2i.net/proxxon/btest.html
with software in Basic to do this.
But I would like to do it on Linux with Perl/Tk and use the
parallelport.
I would like information how Perl can interact with the paralellport.
With simple commands like OUT and INP as in Basic!!!
I would like program examples as well.
Best regards
/Jonny
------------------------------
Date: Thu, 27 Jul 2000 16:09:46 -0400
From: jtoy <jtoy@tcgfinancial.com>
Subject: newb Q, Our perl guy left!!
Message-Id: <39809709.D6FB64C3@tcgfinancial.com>
I don't know any perl and our perl guy just left so I need a little
help.We have a script at work for email that collects from a form and
sends the data via email. We need to make it so the email that is sent
to us in the form shows the variable and then 21 spaces dont the line,
shows the user input:(example below)
name1: variable:
name2: variable:
name3: variable:
Here is the code that I think needs to be fixed.
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
if (defined($Config{$name})) {
$Config{$name} = $value;
}
else {
if ($Form{$name} && $value) {
$Form{$name} = "$Form{$name}, $value";
}
elsif ($value) {
push(@Field_Order,$name);
$Form{$name} = $value;
}
}
}
$Config{'required'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'required'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'env_report'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'env_report'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'print_config'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'print_config'} =~ s/(\s+)?\n+(\s+)?//g;
@Required = split(/,/,$Config{'required'});
@Env_Report = split(/,/,$Config{'env_report'});
@Print_Config = split(/,/,$Config{'print_config'});
}
If you need more of the code, please ask me and I'll post the whole
thing. This is what are emails currently look like:
firstname: John
lastname: SMith
adr1: 100 Hell
city: Mexico
state: MA
zip: 02324
phone: 6134234
fax: 614354354
Thanks
Jason Toy
toyboy@toy.eyep.net
jtoy@tcgfinancial.com
http://toy.eyep.net
------------------------------
Date: Thu, 27 Jul 2000 20:16:51 GMT
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <so165jci3j1129@corp.supernews.com>
In article <39809709.D6FB64C3@tcgfinancial.com>,
jtoy <toyboy@toy.eyep.net> wrote:
: I don't know any perl and our perl guy just left so I need a little
: help.
comp.lang.perl.misc isn't a helpdesk. You should hire a consultant.
Greg
--
Now let us retract the foreskin of misconception and apply the wire brush of
enlightenment.
-- Geoff Miller
------------------------------
Date: Thu, 27 Jul 2000 16:55:25 -0400
From: jtoy <jtoy@tcgfinancial.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3980A1BD.A3E7C6EB@tcgfinancial.com>
Man, suck my dick
Greg Bacon wrote:
> In article <39809709.D6FB64C3@tcgfinancial.com>,
> jtoy <toyboy@toy.eyep.net> wrote:
>
> : I don't know any perl and our perl guy just left so I need a little
> : help.
>
> comp.lang.perl.misc isn't a helpdesk. You should hire a consultant.
>
> Greg
> --
> Now let us retract the foreskin of misconception and apply the wire brush of
> enlightenment.
> -- Geoff Miller
--
Jason Toy
toyboy@toy.eyep.net
jtoy@tcgfinancial.com
http://toy.eyep.net
------------------------------
Date: Thu, 27 Jul 2000 16:56:38 -0400
From: jtoy <jtoy@tcgfinancial.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3980A206.CA85F4E1@tcgfinancial.com>
Oh and BTW, why do 90% of the posts say either help, new Q, ???, or some other
help desk related stuff?
Greg Bacon wrote:
> In article <39809709.D6FB64C3@tcgfinancial.com>,
> jtoy <toyboy@toy.eyep.net> wrote:
>
> : I don't know any perl and our perl guy just left so I need a little
> : help.
>
> comp.lang.perl.misc isn't a helpdesk. You should hire a consultant.
>
> Greg
> --
> Now let us retract the foreskin of misconception and apply the wire brush of
> enlightenment.
> -- Geoff Miller
--
Jason Toy
toyboy@toy.eyep.net
jtoy@tcgfinancial.com
http://toy.eyep.net
------------------------------
Date: Thu, 27 Jul 2000 20:51:47 GMT
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <so1873773j122@corp.supernews.com>
[Unjeopardized]
In article <3980A1BD.A3E7C6EB@tcgfinancial.com>,
jtoy <toyboy@toy.eyep.net> wrote:
: Greg Bacon wrote:
:
: > comp.lang.perl.misc isn't a helpdesk. You should hire a consultant.
:
: Man, suck my dick
Hmm..
% grep -i fellatio ~/ratecard | wc -l
0
Your terms are unacceptable.
Greg
--
Comfort rides shotgun with the temporary.
-- Daniel Weinshenker
------------------------------
Date: Thu, 27 Jul 2000 20:56:21 GMT
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <so18flgd3j122@corp.supernews.com>
[Unjeopardized]
In article <3980A206.CA85F4E1@tcgfinancial.com>,
jtoy <toyboy@toy.eyep.net> wrote:
: Greg Bacon wrote:
:
: > comp.lang.perl.misc isn't a helpdesk. You should hire a consultant.
:
: Oh and BTW, why do 90% of the posts say either help, new Q, ???, or
: some other help desk related stuff?
Ever heard of the argumentum ad populum fallacy?
<URL:http://www.intrepidsoftware.com/fallacy/pop.htm>
Greg
--
In the land of the dark the Ship of the Sun is driven by the Grateful Dead.
-- Egyptian Book of the Dead
------------------------------
Date: Thu, 27 Jul 2000 20:51:55 GMT
From: rbfitzpa@my-deja.com
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <8lq7d9$5dl$1@nnrp1.deja.com>
In article <so165jci3j1129@corp.supernews.com>,
Greg Bacon <gbacon@hiwaay.net> wrote:
> In article <39809709.D6FB64C3@tcgfinancial.com>,
> jtoy <toyboy@toy.eyep.net> wrote:
>
> : I don't know any perl and our perl guy just left so I need a little
> : help.
>
> comp.lang.perl.misc isn't a helpdesk. You should hire a consultant.
>
> Greg
> --
> Now let us retract the foreskin of misconception and apply the wire
brush of
> enlightenment.
> -- Geoff Miller
>
Greg,
Did you have any friends when you were growing up? Or are you trying to
impress the people here that you know the answer but don't want to share
it?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 27 Jul 2000 21:00:09 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <so18mpfu3j134@corp.supernews.com>
jtoy (jtoy@tcgfinancial.com) wrote:
: Oh and BTW, why do 90% of the posts say either help, new Q, ???, or some other
: help desk related stuff?
Because 90% of people don't have a clue. Like you, judging from the post
just before this. Plonk-o-rama.
--
| Craig Berry - http://www.cinenet.net/users/cberry/home.html
--*-- "Turning and turning in the widening gyre
| The falcon cannot hear the falconer." - Yeats, "The Second Coming"
------------------------------
Date: Thu, 27 Jul 2000 17:18:48 -0400
From: jtoy <jtoy@tcgfinancial.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3980A738.C45AD401@tcgfinancial.com>
You are right smartass, I don't have a clue, and as I expressed in my first post(did
you read it?!?!??!?) I don't use perl, and I don't intend on using perl, so it is
right to say I don't have a clue just as it is right for me to me say your white ass
don't know any Chinese or some other stupid comment like yours. Opps, I guess I'm
wrong, according to your post, you didn't read the first one, well, that makes you
even more stupid for jumping into something and saying that. Plonk-o-rama
Craig Berry wrote:
> jtoy (jtoy@tcgfinancial.com) wrote:
> : Oh and BTW, why do 90% of the posts say either help, new Q, ???, or some other
> : help desk related stuff?
>
> Because 90% of people don't have a clue. Like you, judging from the post
> just before this. Plonk-o-rama.
>
> --
> | Craig Berry - http://www.cinenet.net/users/cberry/home.html
> --*-- "Turning and turning in the widening gyre
> | The falcon cannot hear the falconer." - Yeats, "The Second Coming"
--
Jason Toy
toyboy@toy.eyep.net
jtoy@tcgfinancial.com
http://toy.eyep.net
------------------------------
Date: Thu, 27 Jul 2000 17:20:24 -0400
From: jtoy <jtoy@tcgfinancial.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3980A798.160D54AF@tcgfinancial.com>
Cool, I have never heard of that before and please inform the person that wrote
that page that you can't put italics on a title.
Greg Bacon wrote:
> [Unjeopardized]
>
> In article <3980A206.CA85F4E1@tcgfinancial.com>,
> jtoy <toyboy@toy.eyep.net> wrote:
>
> : Greg Bacon wrote:
> :
> : > comp.lang.perl.misc isn't a helpdesk. You should hire a consultant.
> :
> : Oh and BTW, why do 90% of the posts say either help, new Q, ???, or
> : some other help desk related stuff?
>
> Ever heard of the argumentum ad populum fallacy?
>
> <URL:http://www.intrepidsoftware.com/fallacy/pop.htm>
>
> Greg
> --
> In the land of the dark the Ship of the Sun is driven by the Grateful Dead.
> -- Egyptian Book of the Dead
--
Jason Toy
toyboy@toy.eyep.net
jtoy@tcgfinancial.com
http://toy.eyep.net
------------------------------
Date: Thu, 27 Jul 2000 17:23:15 -0400
From: jtoy <jtoy@tcgfinancial.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3980A843.A784C9A6@tcgfinancial.com>
I think you are right, after reading all his other comments, I saw that he
gave almost no answers to his 30 or so replys. Most answers consisted of
"read the man pages" or "use perl". I don't know about you, but reading
Linux man pages is like trying to sort through shit. Although I read all
the ObenBSD man pages.
rbfitzpa@my-deja.com wrote:
> In article <so165jci3j1129@corp.supernews.com>,
> Greg Bacon <gbacon@hiwaay.net> wrote:
> > In article <39809709.D6FB64C3@tcgfinancial.com>,
> > jtoy <toyboy@toy.eyep.net> wrote:
> >
> > : I don't know any perl and our perl guy just left so I need a little
> > : help.
> >
> > comp.lang.perl.misc isn't a helpdesk. You should hire a consultant.
> >
> > Greg
> > --
> > Now let us retract the foreskin of misconception and apply the wire
> brush of
> > enlightenment.
> > -- Geoff Miller
> >
> Greg,
> Did you have any friends when you were growing up? Or are you trying to
> impress the people here that you know the answer but don't want to share
> it?
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
--
Jason Toy
toyboy@toy.eyep.net
jtoy@tcgfinancial.com
http://toy.eyep.net
------------------------------
Date: Thu, 27 Jul 2000 17:25:31 -0400
From: jtoy <jtoy@tcgfinancial.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3980A8CB.7B2A86CD@tcgfinancial.com>
Oh and one more thing, I always try to read before I ask others. 95% of the
stuff I do was self taught, but I am not going to waste my time learning how
to do something in a language I don't even use.
jtoy wrote:
> I think you are right, after reading all his other comments, I saw that he
> gave almost no answers to his 30 or so replys. Most answers consisted of
> "read the man pages" or "use perl". I don't know about you, but reading
> Linux man pages is like trying to sort through shit. Although I read all
> the ObenBSD man pages.
>
> rbfitzpa@my-deja.com wrote:
>
> > In article <so165jci3j1129@corp.supernews.com>,
> > Greg Bacon <gbacon@hiwaay.net> wrote:
> > > In article <39809709.D6FB64C3@tcgfinancial.com>,
> > > jtoy <toyboy@toy.eyep.net> wrote:
> > >
> > > : I don't know any perl and our perl guy just left so I need a little
> > > : help.
> > >
> > > comp.lang.perl.misc isn't a helpdesk. You should hire a consultant.
> > >
> > > Greg
> > > --
> > > Now let us retract the foreskin of misconception and apply the wire
> > brush of
> > > enlightenment.
> > > -- Geoff Miller
> > >
> > Greg,
> > Did you have any friends when you were growing up? Or are you trying to
> > impress the people here that you know the answer but don't want to share
> > it?
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
>
> --
> Jason Toy
> toyboy@toy.eyep.net
> jtoy@tcgfinancial.com
> http://toy.eyep.net
--
Jason Toy
toyboy@toy.eyep.net
jtoy@tcgfinancial.com
http://toy.eyep.net
------------------------------
Date: Thu, 27 Jul 2000 16:37:43 -0500
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3980ABA7.8DEA14B4@rac.ray.com>
jtoy wrote:
>
> Oh and one more thing, I always try to read before I ask others. 95% of the
> stuff I do was self taught, but I am not going to waste my time learning how
> to do something in a language I don't even use.
>
Obviously you do USE the language. You just don't know how to write
it. Maybe you can pay someone to study up on CGI (your "form" is an
HTML form?) in general and CGI.pm in particular, but if they also have
to fellate you, you're going to have to pay a lot.
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Even fellatio sounds more classy in Latin, don't you think? - Catullus
------------------------------
Date: Thu, 27 Jul 2000 17:56:16 -0400
From: jtoy <jtoy@tcgfinancial.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3980B000.D8446A70@tcgfinancial.com>
Obviously I don't use perl. I have seen perl code a total of 5 times in my life.
After I fix this very small problem, I'm pretty sure I'm not going to be looking
for more perl. Are all the perl users here so stupid? I have stated that I don't
know or use perl at least 4 times in this thread? Are all the perl "hacker
wannabes" this arrogant and blind? I though that writing all the cryptic shit
would help you to read better. BTW, sorry for talking like this, but what do you
expect from a python user?
Russ Jones wrote:
> jtoy wrote:
> >
> > Oh and one more thing, I always try to read before I ask others. 95% of the
> > stuff I do was self taught, but I am not going to waste my time learning how
> > to do something in a language I don't even use.
> >
>
> Obviously you do USE the language. You just don't know how to write
> it. Maybe you can pay someone to study up on CGI (your "form" is an
> HTML form?) in general and CGI.pm in particular, but if they also have
> to fellate you, you're going to have to pay a lot.
>
> --
> Russ Jones - HP OpenView IT/Operatons support
> Raytheon Aircraft Company, Wichita KS
> russ_jones@rac.ray.com 316-676-0747
>
> Even fellatio sounds more classy in Latin, don't you think? - Catullus
--
Jason Toy
toyboy@toy.eyep.net
jtoy@tcgfinancial.com
http://toy.eyep.net
------------------------------
Date: Thu, 27 Jul 2000 18:03:23 -0400
From: jtoy <jtoy@tcgfinancial.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3980B1AB.6DBC99F2@tcgfinancial.com>
Oh and why would I hire someone if I'm only 18 and probably make more than you
doing programming and network communications?
Russ Jones wrote:
> jtoy wrote:
> >
> > Oh and one more thing, I always try to read before I ask others. 95% of the
> > stuff I do was self taught, but I am not going to waste my time learning how
> > to do something in a language I don't even use.
> >
>
> Obviously you do USE the language. You just don't know how to write
> it. Maybe you can pay someone to study up on CGI (your "form" is an
> HTML form?) in general and CGI.pm in particular, but if they also have
> to fellate you, you're going to have to pay a lot.
>
> --
> Russ Jones - HP OpenView IT/Operatons support
> Raytheon Aircraft Company, Wichita KS
> russ_jones@rac.ray.com 316-676-0747
>
> Even fellatio sounds more classy in Latin, don't you think? - Catullus
--
Jason Toy
toyboy@toy.eyep.net
jtoy@tcgfinancial.com
http://toy.eyep.net
------------------------------
Date: 27 Jul 2000 18:01:34 EDT
From: abigail@foad.org (Abigail)
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <slrn8o1c9l.vcg.abigail@alexandra.foad.org>
jtoy (jtoy@tcgfinancial.com) wrote on MMDXXII September MCMXCIII in
<URL:news:3980B000.D8446A70@tcgfinancial.com>:
@@ BTW, sorry for talking like this, but what do you expect from a python user?
I'd expect a Python user to take his whining to comp.lang.python.
Abigail
--
perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
------------------------------
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 3824
**************************************
