[12622] in Perl-Users-Digest
Perl-Users Digest, Issue: 31 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 6 23:47:13 1999
Date: Tue, 6 Jul 1999 20:36:54 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 6 Jul 1999 Volume: 9 Number: 31
Today's topics:
hotmail like scripts (web-based email) bababozorg@aol.com
Re: hotmail like scripts (web-based email) <lperry@eatel.com>
Re: hotmail like scripts (web-based email) ijgtm@merseymail.com
How can I edit a remote file ibrahim@interactive1.com
Re: How can I edit a remote file <swiftkid@bigfoot.com>
Re: How can I edit a remote file (Abigail)
How can I run ActivePerl ?! <scientia@XXXtechnologist.com>
Re: How do I do this? (David Efflandt)
How do I install perl on my windows NT 4.0 machine ; I <@primenet.com>
Re: How do I install perl on my windows NT 4.0 machine <swiftkid@bigfoot.com>
Re: how do I open a % based on a $ ? <perfecto@mail2.nai.net>
Re: how do I open a % based on a $ ? (Philip 'Yes, that's my address' Newton)
How to access the serial ports? (Stephan Budach)
how to get process id????? <wolfgang.goetzinger@siemens.at>
Re: how to get process id????? <aperrin@mcmahon.qal.berkeley.edu>
Re: how to get process id????? (Philip 'Yes, that's my address' Newton)
Re: how to get process id????? <wolfgang.goetzinger@siemens.at>
Re: HOWTO compare two arrays, an get the difference (M.J.T. Guy)
Re: HTML form help - need an image for <input type="res <gellyfish@gellyfish.com>
Re: I need a skript like which one which is used by co (Abigail)
I need some help with binary files! esalmon@packet.net
Re: I need some help with binary files! (David Efflandt)
if...else not working <jlovette@ic.sunysb.edu>
Re: if...else not working <mickv@home.com>
Re: if...else not working (Abigail)
Re: if...else not working (Abigail)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 05 Jul 1999 10:21:17 GMT
From: bababozorg@aol.com
Subject: hotmail like scripts (web-based email)
Message-Id: <7lq0un$gl8$1@nnrp1.deja.com>
hi
this is while i am trying to find out how to write a script work like a
webbased email like hotmail!
i actually want to write a script that people can sign in and have
their own free email address like hotmail or such websites...
(mollymail.com)
do they setup a pop3 account each time a user sign for a new members?
or what? :)
i was looking for these free webbased email scripts like atdot or...
but they seam to use a already made pop3 accounts.
can anyone please guide me if i want to make such a webbased free emails
what sort of things do i need?, what exactly do i have to do in terms
of technical things.
and if i have to use a pop3 each time a new member signs in, how do i
made the pop3 from the cgi script...
any help would be appreciated :)
thanks
hamed
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 5 Jul 1999 08:31:40 -0500
From: "Lee A. Perry" <lperry@eatel.com>
Subject: Re: hotmail like scripts (web-based email)
Message-Id: <0t2g3.3528$F7.163000@news3.giganews.com>
Try http://www.horde.org
I am in the process of implementing it. It requires MySQL,PHP and PERL.
Check it out, you will be impressed
<bababozorg@aol.com> wrote in message news:7lq0un$gl8$1@nnrp1.deja.com...
> hi
> this is while i am trying to find out how to write a script work like a
> webbased email like hotmail!
> i actually want to write a script that people can sign in and have
> their own free email address like hotmail or such websites...
> (mollymail.com)
> do they setup a pop3 account each time a user sign for a new members?
> or what? :)
> i was looking for these free webbased email scripts like atdot or...
> but they seam to use a already made pop3 accounts.
> can anyone please guide me if i want to make such a webbased free emails
> what sort of things do i need?, what exactly do i have to do in terms
> of technical things.
> and if i have to use a pop3 each time a new member signs in, how do i
> made the pop3 from the cgi script...
> any help would be appreciated :)
> thanks
> hamed
>
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: Mon, 5 Jul 1999 13:57:42 GMT
From: ijgtm@merseymail.com
Subject: Re: hotmail like scripts (web-based email)
Message-Id: <FEEHG7.CMG@csc.liv.ac.uk>
In article <7lq0un$gl8$1@nnrp1.deja.com>,
bababozorg@aol.com writes:
> hi
> this is while i am trying to find out how to write a script work like a
> webbased email like hotmail!
[snipped]
Based on what you want and what little knowledge you have I advise you not
to start.
If you really must you need to go and find the rfcs on all email related
subjects and read them first. I don't know for sure but I don't think
Hotmail operates on purely POP3 accounts anyway. You will almost certainly
need to address an awfull lot of sysadmin things first so you will need to
talk to some people in the server groups plus others. (Have I put you off
yet? you haven't even started on the perl.)
If your still with me go to CPAN and check out the modules there. Then and
only then plan what you want to do before writing any code.
Still interested? I have missed quite a bit out.
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
Trust me you have a helluva learning curve. I've been there (for my sins).
--
Ian J. Garlick
As long as the answer is right, who cares if the question is wrong?
------------------------------
Date: Mon, 05 Jul 1999 14:35:37 GMT
From: ibrahim@interactive1.com
Subject: How can I edit a remote file
Message-Id: <7lqfro$ksg$1@nnrp1.deja.com>
How can I open and write something to remote file. I tried that but
didn't work.
#!/usr/local/bin/perl
$url = "ftp://USERNAME:PASSWORD\@somewhere.com/data.html";
open (FILE, ">$url") || die ("could not not open remote file:$!");
print FILE "Success";
close (FILE);
Thanks in advance.
birxan...
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 5 Jul 1999 22:13:00 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: How can I edit a remote file
Message-Id: <7lrsc5$coh7@news.cyber.net.pk>
<ibrahim@interactive1.com> wrote in message
news:7lqfro$ksg$1@nnrp1.deja.com...
> How can I open and write something to remote file. I tried that but
> didn't work.
perldoc Net::FTP
------------------------------
Date: 5 Jul 1999 15:53:12 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How can I edit a remote file
Message-Id: <slrn7o26p5.h6v.abigail@alexandra.delanet.com>
ibrahim@interactive1.com (ibrahim@interactive1.com) wrote on MMCXXXIV
September MCMXCIII in <URL:news:7lqfro$ksg$1@nnrp1.deja.com>:
{} How can I open and write something to remote file. I tried that but
{} didn't work.
{}
{} #!/usr/local/bin/perl
{}
{} $url = "ftp://USERNAME:PASSWORD\@somewhere.com/data.html";
{}
{} open (FILE, ">$url") || die ("could not not open remote file:$!");
That doesn't work. open() opens files on the local filesystem(s).
use Net::FTP;
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 06 Jul 1999 21:26:48 -0700
From: Scientia <scientia@XXXtechnologist.com>
Subject: How can I run ActivePerl ?!
Message-Id: <3782D708.3CF3@XXXtechnologist.com>
How can I run ActivePerl ?!
Hello
I am learning PERL in order to make very simple CGIs.
I have Win95 and I downloaded ActivePerl (with the correct Microsoft
file needed to make it work on Win95).
I installed successfully ActivePerl but...
What should I do now?!
I can't see any program to run!
I see only a lot of documents, also HTML, including a FAQ,
but I do not understand at all where I should make and run my scripts!
I can find a lot of documents explaining the differences between the
latest version and the previous ones and a lot of informations that
are not useful to me.
Now my desire is only to run programs like:
--------------
print "Hello\n";
--------------
or
--------------
$a = 3;
$b = 5;
$c = a+b;
print "The sum is $c\n";
-------------
I understand that this post may seem silly,
but I can't use ActivePerl at present!
Thanks for any help
Fabrizio
scientia@technologist.com
------------------------------
Date: 3 Jul 1999 01:35:09 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: How do I do this?
Message-Id: <slrn7nqq1t.2gm.efflandt@efflandt.xnet.com>
On Sat, 26 Jun 1999 00:29:09 GMT, emcmanus@worldnet.att.net
<emcmanus@worldnet.att.net> wrote:
>I have read the FAQ and I'm still not able to get this right.
>
>I'm using the users IP address in a script, but what I'd
>prefer is only using the first three values of the IP address.
>
>Example:
>Using
>151.204.202.20
>Want
>151.204.202
>
>I can't specify the number of characters to cut from the right
>because that is different with each IP address. When I
>searched and replaced on the "." it did it on the first "."
>in the string and I didn't understand how to do the third instance
>of "." search and delete.
>
>Any help is appreciated.
>
>Earl
Don't have a clue what you would use this for, but look up pattern
substitution and see if you can tell what the following would do (it also
gets rid of any trailing whitespace characters):
s/\.\d+\s*$//;
--
David Efflandt efflandt@xnet.com http://www.xnet.com/~efflandt/
http://www.de-srv.com/ http://cgi-help.virtualave.net/
------------------------------
Date: Sun, 4 Jul 1999 01:10:25 -0700
From: "Jaja Boni Harris" <@primenet.com>
Subject: How do I install perl on my windows NT 4.0 machine ; I also have VC++ 5.0 installed on it also
Message-Id: <7ln4ut$aje$1@nnrp03.primenet.com>
Please help me get perl installed, I would like to learn it if only I could
get it installed! The readme files aren't worth too much to me at this
point.
------------------------------
Date: Sun, 4 Jul 1999 14:03:37 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: How do I install perl on my windows NT 4.0 machine ; I also have VC++ 5.0 installed on it also
Message-Id: <7lobb2$ai58@news.cyber.net.pk>
Jaja Boni Harris <@primenet.com> wrote in message
news:7ln4ut$aje$1@nnrp03.primenet.com...
> Please help me get perl installed, I would like to learn it if only I
could
> get it installed! The readme files aren't worth too much to me at this
> point.
Try activeperl @ www.activestate.com/ActivePerl/
------------------------------
Date: Sat, 03 Jul 1999 13:13:24 GMT
From: J Perry Fecteau <perfecto@mail2.nai.net>
Subject: Re: how do I open a % based on a $ ?
Message-Id: <377E0CC4.AC0A8FA8@mail2.nai.net>
Matt A wrote:
> I am trying to open a hash based on the name of a variable.
> ie. My code looks basically like
>
> $nodedb = $node . "_db";
> foreach $i (sort keys(%$nodedb))
>
> Do some stuff
> }
> This is not working...So basically I want to open a hash, and the name of
> the hash is stored in a scalar...is this possible?
wouldn't you do:
%myhash = eval("%" . $nodedb);
foreach $i (sort keys %myhash) {
...
i'm saying put it in a % variable because i dont think perl would
"remember" the position if it re-eval-uated. i could be wrong though.
--
J Perry Fecteau, 5-time Mr. Internet.
http://w3.nai.net/~perfecto
Star Wars Review at:
http://www.geocities.com/ResearchTriangle/Node/7160/episodeone.html
------------------------------
Date: Sat, 03 Jul 1999 18:57:30 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: how do I open a % based on a $ ?
Message-Id: <377e53d4.135225080@news.nikoma.de>
On Sat, 03 Jul 1999 13:13:24 GMT, J Perry Fecteau
<perfecto@mail2.nai.net> wrote:
>wouldn't you do:
>
>%myhash = eval("%" . $nodedb);
>foreach $i (sort keys %myhash) {
> ...
This vaguely looks like Perl 4 to me (not even using a symbolic
reference ... eval was all they had). But then, TMTOWTDI. Hard
references, though, are probably a better WTDI.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Tue, 06 Jul 1999 08:39:34 +0200
From: stephan.budach@knsk-bbdo.de (Stephan Budach)
Subject: How to access the serial ports?
Message-Id: <stephan.budach-0607990839340001@budach-stephan.intern.knsk-bbdo.de>
Hi,
i have searched everywhere to find a possibility to acces to serial ports.
I have a serial device (not a modem) attached to the serial port of my
linux machine (on ttyS0). I have read the perfaq8 and even the perlfunc
and have seen something about sysopen. I tried that out, but it keeps
saying that the file or folder does not exist when i try to do the
following
sysopen(TTYIN, "+</dev/ttyS0", O_RDWR | O_NDELAY | O_NOCTTY)
or die "can't open /dev/ttyS1: $!";
Also i need to pass binary commands to that device like tab and that. How
can that be achieved with perl?
Thanks,
Stephan Budach
------------------------------
Date: Mon, 05 Jul 1999 16:06:02 +0200
From: Wolfgang =?iso-8859-1?Q?G=F6tzinger?= <wolfgang.goetzinger@siemens.at>
Subject: how to get process id?????
Message-Id: <3780BBC9.82AC1F40@siemens.at>
Hi!
i programmed a script that forks the daemon process "myProgram" with:
unless (fork) {
system("myProgram");
exit 0;
}
my question: how can i get the process id of myProgram??
p.s.:
i cannot start the daemon with:
$pid = open (filehandle,"myProgram|");
close filehandle;
because this returns $pid, when myProgram has finished; i need the
process id while myProgram is running.
Thanx for your Help!!!!!
gonzo!
------------------------------
Date: Mon, 05 Jul 1999 08:07:56 -0700
From: Andrew J Perrin <aperrin@mcmahon.qal.berkeley.edu>
To: "Wolfgang Götzinger" <wolfgang.goetzinger@siemens.at>
Subject: Re: how to get process id?????
Message-Id: <3780CA4C.76D921CE@mcmahon.qal.berkeley.edu>
[courtesy copy sent by e-mail]
Wolfgang Götzinger wrote:
> unless (fork) {
> system("myProgram");
> exit 0;
> }
> my question: how can i get the process id of myProgram??
a quick check of:
perldoc -f fork
should answer your question.
Best,
Andy Perrin
--
-------------------------------------------------------------
Andrew Perrin - NT/Unix/Access Consulting -
aperrin@mcmahon.qal.berkeley.edu
http://www.geocities.com/SiliconValley/Grid/7544/
-------------------------------------------------------------
------------------------------
Date: Tue, 06 Jul 1999 03:42:50 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: how to get process id?????
Message-Id: <378179bb.166421813@news.nikoma.de>
On Mon, 05 Jul 1999 16:06:02 +0200, Wolfgang
=?iso-8859-1?Q?G=F6tzinger?= <wolfgang.goetzinger@siemens.at> wrote:
>unless (fork) {
> system("myProgram");
> exit 0;
>}
The general idiom is to do an exec(), not a system(). Then the exec'ed
process has the same pid as the child created by fork, and this pid is
returned by the fork() call.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Tue, 06 Jul 1999 08:46:17 +0200
From: Wolfgang =?iso-8859-1?Q?G=F6tzinger?= <wolfgang.goetzinger@siemens.at>
To: "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.net>
Subject: Re: how to get process id?????
Message-Id: <3781A639.9AA4A764@siemens.at>
Thank you very much, that solved my problem!
gonzo!!!
"Philip 'Yes, that's my address' Newton" wrote:
> On Mon, 05 Jul 1999 16:06:02 +0200, Wolfgang
> =?iso-8859-1?Q?G=F6tzinger?= <wolfgang.goetzinger@siemens.at> wrote:
>
> >unless (fork) {
> > system("myProgram");
> > exit 0;
> >}
>
> The general idiom is to do an exec(), not a system(). Then the exec'ed
> process has the same pid as the child created by fork, and this pid is
> returned by the fork() call.
>
> Cheers,
> Philip
> --
> Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: 3 Jul 1999 01:00:10 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: HOWTO compare two arrays, an get the difference
Message-Id: <7ljnaq$gei$1@pegasus.csx.cam.ac.uk>
Larry Rosler <lr@hpl.hp.com> wrote:
>
>This *seems* like a FAQ. `perldoc -q difference` would have led you to
>perlfaq4: "How do I compute the difference of two arrays? How do I
>compute the intersection of two arrays?"
>
>But that would have given you a different answer from the one you
>wanted, because the 'difference' in the FAQ is the 'symmetric
>difference' -- elements in one or the other set but not both. What you
>are asking for is the 'set difference' -- elements in one set but not in
>the other.
But the FAQ isn't meant to write your scripts for you. It's meant
to provide enough ideas to help you work things out for yourself.
If someone can't extract from that FAQ the ideas
"Hashes are a good way to represent set membership"
and
"This technique can obviously be generalised to an arbitrary boolean
function of an arbitrary number of arrays"
then they probably ought to take a basic programming course before
proceeding further.
Mike Guy
------------------------------
Date: 3 Jul 1999 08:07:35 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: HTML form help - need an image for <input type="reset">
Message-Id: <7lkgc7$2h7$1@gellyfish.btinternet.com>
On Fri, 02 Jul 1999 22:44:59 GMT finnadat@my-deja.com wrote:
> I got -
>
> <input type="image" border=0 src="../images/send.gif" value="Send Form">
> <input type="reset" border=0 src="../images/reset.gif"></p>
>
I think you have posted to the wrong group - you will probably want to
ask in some group in the comp.infosystems.www.authoring.* hierarchy.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 2 Jul 1999 19:45:52 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: I need a skript like which one which is used by come.to/user or fly.to/ (url forwarding skript)
Message-Id: <slrn7nqn9f.31h.abigail@alexandra.delanet.com>
Philipp Götzinger (Philipp_Goetzinger@gmx.de) wrote on MMCXXXI September
MCMXCIII in <URL:news:377c5838@isoit370.bbn.hp.com>:
!! where can i get some like this
<URL:mailto:sales@come.to>
<URL:mailto:sales@fly.to>
Abigail
--
perl -wlpe '}{$_=$.' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 04 Jul 1999 20:47:56 -0400
From: esalmon@packet.net
Subject: I need some help with binary files!
Message-Id: <378000BC.4A64@packet.net>
I am trying to remove binary applications (MIME attachments), like MS
Word and Acrobat, directly from a UNIX systems mail file and store it in
a separate directory in it's original binary format. I have everything
finished except for getting it to store as a binary file instead of a
text file.
After removing the attachment and storing it in a temp scalar, named
$body, and then applying the proper decoding, it then needs to be stored
as a binary. What am I doing wrong in the following. Can someone show me
the proper way to store binary files from a single or multiple scalar?
$decoded_body = decode_base64 ( $body ); # or other decoding
open ( AttFile, ">/somedir/docu_Name.doc" );
print AttFile ( "$decoded_body" );
close ( AttFile );
Please reply to my email at: esalmon@packet.net
Thanks!
Eric R. Salmon
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 5 Jul 1999 01:57:02 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: I need some help with binary files!
Message-Id: <slrn7o042m.5vq.efflandt@efflandt.xnet.com>
On Sun, 04 Jul 1999 20:47:56 -0400, esalmon@packet.net
<esalmon@packet.net> wrote:
>I am trying to remove binary applications (MIME attachments), like MS
>Word and Acrobat, directly from a UNIX systems mail file and store it in
>a separate directory in it's original binary format. I have everything
>finished except for getting it to store as a binary file instead of a
>text file.
>
>After removing the attachment and storing it in a temp scalar, named
>$body, and then applying the proper decoding, it then needs to be stored
>as a binary. What am I doing wrong in the following. Can someone show me
>the proper way to store binary files from a single or multiple scalar?
>
>
>$decoded_body = decode_base64 ( $body ); # or other decoding
>
>open ( AttFile, ">/somedir/docu_Name.doc" );
>print AttFile ( "$decoded_body" );
>close ( AttFile );
If it is not text, why are there quotes around the variable? And I have
never seen parenthesis in a print statement before except when used for
quote substitution as in qq( ). You also might have to unbuffer it
because binary data may not end with "\n". So assuming you decoded it
properly you might try:
open ( AttFile, ">/somedir/docu_Name.doc" );
select AttFile; $| = 1; # stdout to file unbuffered
binmode AttFile; # only needed if DOS/Win
print $decoded_body;
select STDOUT;
close AttFile;
>Please reply to my email at: esalmon@packet.net
>
>Thanks!
>
> Eric R. Salmon
--
David Efflandt efflandt@xnet.com http://www.xnet.com/~efflandt/
http://www.de-srv.com/ http://cgi-help.virtualave.net/
------------------------------
Date: Sat, 03 Jul 1999 09:45:13 -0400
From: James Lovette <jlovette@ic.sunysb.edu>
Subject: if...else not working
Message-Id: <377E13E9.EED@ic.sunysb.edu>
For the life of me I don't know why my if... else statement doesn't work
below.
-----------------------
open(FILE, "<exam1.txt");
@names = <FILE>;
close FILE;
#print @value;
open(FILE2, ">>exam1.txt");
$newline = join("::",@value);
foreach $line (@names){
($ssn, $sc) = split(/::/,$line);
if ($ssn eq $value[0]){
$witch=0;
print "$ssn, $value[0]<br>";
print "they match<br>" ;
} else {
$witch=1;
print "$ssn, $value[0]<br>";
print "they don't match<br>";
};
};
if ($witch == 1){
print FILE2 "$newline \n"
} else {
print "You may only take the test once<br>"};
close FILE2;
------------------------------
dows anybody know what I did wrong with the script? thank you.
------------------------------
Date: Sat, 03 Jul 1999 14:00:20 GMT
From: "Michael Villeneuve" <mickv@home.com>
Subject: Re: if...else not working
Message-Id: <UHof3.7991$_A4.128801@news2.rdc1.on.home.com>
I think the big hint may be to take a closer look at your closing braces.
An 'if' block doesn't require a semicolon after the closing brace. It's
only needed to terminate a statement - not a block.
James Lovette wrote in message <377E13E9.EED@ic.sunysb.edu>...
>For the life of me I don't know why my if... else statement doesn't work
>below.
>
>-----------------------
>open(FILE, "<exam1.txt");
>@names = <FILE>;
>close FILE;
>
>#print @value;
>
>open(FILE2, ">>exam1.txt");
>$newline = join("::",@value);
>
>foreach $line (@names){
> ($ssn, $sc) = split(/::/,$line);
>
>
>
>if ($ssn eq $value[0]){
> $witch=0;
> print "$ssn, $value[0]<br>";
> print "they match<br>" ;
> } else {
> $witch=1;
> print "$ssn, $value[0]<br>";
> print "they don't match<br>";
> };
>};
>
>if ($witch == 1){
> print FILE2 "$newline \n"
>} else {
> print "You may only take the test once<br>"};
>close FILE2;
>------------------------------
>
>dows anybody know what I did wrong with the script? thank you.
------------------------------
Date: 3 Jul 1999 16:39:21 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: if...else not working
Message-Id: <slrn7nt0nk.31h.abigail@alexandra.delanet.com>
Michael Villeneuve (mickv@home.com) wrote on MMCXXXII September MCMXCIII
in <URL:news:UHof3.7991$_A4.128801@news2.rdc1.on.home.com>:
== I think the big hint may be to take a closer look at your closing braces.
== An 'if' block doesn't require a semicolon after the closing brace. It's
== only needed to terminate a statement - not a block.
If you want to be silly, at least do it right. You could have pointed
out that his braces are in the wrong colours; he shouldn't mix spring
and autumn colours.
Abigail
--
echo "==== ======= ==== ======"|perl -pes/=/J/|perl -pes/==/us/|perl -pes/=/t/\
|perl -pes/=/A/|perl -pes/=/n/|perl -pes/=/o/|perl -pes/==/th/|perl -pes/=/e/\
|perl -pes/=/r/|perl -pes/=/P/|perl -pes/=/e/|perl -pes/==/rl/|perl -pes/=/H/\
|perl -pes/=/a/|perl -pes/=/c/|perl -pes/=/k/|perl -pes/==/er/|perl -pes/=/./;
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 3 Jul 1999 16:40:10 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: if...else not working
Message-Id: <slrn7nt0p2.31h.abigail@alexandra.delanet.com>
James Lovette (jlovette@ic.sunysb.edu) wrote on MMCXXXII September
MCMXCIII in <URL:news:377E13E9.EED@ic.sunysb.edu>:
,, For the life of me I don't know why my if... else statement doesn't work
,, below.
It's hard to say. What do you expect the program to do, and what
did it do? What's the data involved?
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 31
************************************
