[16061] in Perl-Users-Digest
Perl-Users Digest, Issue: 3473 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 24 21:05:40 2000
Date: Sat, 24 Jun 2000 18: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: <961895110-v9-i3473@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 24 Jun 2000 Volume: 9 Number: 3473
Today's topics:
Chat server malverian@hotmail.com
Re: Chat server malverian@my-deja.com
Re: delaying Sendmail command <gellyfish@gellyfish.com>
Encryption <jimmy@blackhole-designs.com>
Re: filehandle <-> filename <rootbeer@redcat.com>
Hard Disk Serial# <andy@u2me3.com>
Re: Hard Disk Serial# <gellyfish@gellyfish.com>
Re: Help---Perl---Storage- <gellyfish@gellyfish.com>
Re: How can I Use a Perl Script to FTP files automatica <gellyfish@gellyfish.com>
Re: OpenFile then Chomp <gellyfish@gellyfish.com>
Re: oracle DB connection <gellyfish@gellyfish.com>
Re: Passing filehandles to subroutines (Matthew Zimmerman)
Perl & CGI Tutorial Sites akashgoel@my-deja.com
Re: Perl Programming Style Question <aqumsieh@hyperchip.com>
Perl2Exe Problem malverian@hotmail.com
Re: Quick "Perl Way" solution needed (Matthew Zimmerman)
Repeated regex matching. <s2mdalle@titan.vcu.edu>
Re: Running Perl CGI Scripts <gellyfish@gellyfish.com>
Re: Running Perl CGI Scripts <gellyfish@gellyfish.com>
Re: Running Perl CGI Scripts <gellyfish@gellyfish.com>
Sending data to a certain connection malverian@my-deja.com
Re: Sending data to a certain connection <lilleyb001@hawaii.rr.com>
Re: Sending data to a certain connection malverian@my-deja.com
Re: Sending data to a certain connection malverian@my-deja.com
Re: some question about module when I use perl ! <gellyfish@gellyfish.com>
Re: Sys::Syslog & _PATH_LOG kjschmi@my-deja.com
Re: Sys::Syslog & _PATH_LOG kjschmi@my-deja.com
Testing exit status <davidmac@austin.rr.com>
Testing exit status <davidmac@austin.rr.com>
Re: Using cgi-lib.pl to upload a file <gellyfish@gellyfish.com>
Re: visit new FORUM all u queastion will be answered (a <rootbeer@redcat.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 24 Jun 2000 18:59:14 GMT
From: malverian@hotmail.com
Subject: Chat server
Message-Id: <8j30dq$75t$1@nnrp1.deja.com>
The following program is a chat server...
I was wondering if someone could help me out by telling me how I could
make it so
a) it doesn't die when someone signs off.
b) it doesn't echo what you send, to your screen twice.
___________________
use IO::Socket;
use IO::Select;
my $listen = IO::Socket::INET->new(Proto => 'tcp', LocalPort => 9000,
Listen => 1, Reuse => 1) or die $!;
my $select = IO::Select->new($listen);
my @ready;
while(@ready = $select->can_read)
{
my $socket;
for $socket (@ready)
{
if($socket == $listen)
{
my $new = $listen->accept; $select->add($new);
print $new->fileno . "# Connected\n";
}
else
{
my $line=""; $socket->recv($line,80);
if($line eq "")
{
print $socket->fileno . "# Disconnected\n";
$select->remove($socket);
$socket->close;
};
my $socket;
for $socket ($select->handles)
{
next if($socket==$listen);
$socket->send($line) or do
{
print $socket->fileno . "#
Disconnected\n";
$select->remove($socket);
$socket->close;
};
}
}
}
}
1;
_____________________
Thanks again.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 24 Jun 2000 19:06:00 GMT
From: malverian@my-deja.com
Subject: Re: Chat server
Message-Id: <8j30qe$7am$1@nnrp1.deja.com>
Nevermind on that all... I should have messed with it first before I
asked =P Thanks anyway.
I figured out both of my questions...
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 24 Jun 2000 12:02:14 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: delaying Sendmail command
Message-Id: <8j24fm$el1$1@orpheus.gellyfish.com>
On Fri, 23 Jun 2000 17:32:40 +0200 Raphael Pirker wrote:
>
> I have an autoresponder that I don't want to send out right away. I want to
> be able to say, for instance, that the Autoresponder will wait 30 minutes in
> the "Outbox" before being sent out. Is this possible?
>
You can read about the DeliverMode option in the sendmail manpage.
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: Sat, 24 Jun 2000 20:02:28 GMT
From: Jimmy Humphrey <jimmy@blackhole-designs.com>
Subject: Encryption
Message-Id: <3955145A.6641A359@blackhole-designs.com>
I made a very basic encryption tool in perl. However, I noticed some
problems. For "some" .doc files, and such, the encryption tool seems to
corrupt. I use pack("c") & unpack("c") to translate my strings into
ASCII code. But for some reason, when I decrypt the message, on "some"
.doc files, it makes them become corrupt. This program works with
regular text files. Could anybody explain why this might happen? Using
Win32 activestate perl (latest version).
Jimmy
--
Jimmy Humphrey <jimmy@blackhole-designs.com>
Web Designer - Black Hole Designs - http://www.blackhole-designs.com
------------------------------
Date: Sat, 24 Jun 2000 11:28:49 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: filehandle <-> filename
Message-Id: <Pine.GSO.4.10.10006241126500.23149-100000@user2.teleport.com>
On Fri, 23 Jun 2000, andreyw wrote:
> I have a filehandle (as a subroutine parameter).
> Is there a way to know a filename or other disk file id.
There may be no filename, or there may be more than one. But you can
stat() the file to get a dev/ino pair, which (at least on Unix-like
systems) will be a unique id for the item, in that truly different files
will have different dev/ino information, but two names for the same file
will give the same dev/ino information. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 24 Jun 2000 21:08:32 +0100
From: "Andy Chantrill" <andy@u2me3.com>
Subject: Hard Disk Serial#
Message-Id: <8j34kn$99n$1@plutonium.btinternet.com>
Hey,
I need to grab the manufacturers' serial # of a hard disk from a machine.
Anybody know of a Perl method of doing this? Or for that matter, *any* way
of doing it in a *NIX environment (he says sheep'ishly)?
Thanks, Andy.
andy@u2me3.com
------------------------------
Date: 24 Jun 2000 22:15:28 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Hard Disk Serial#
Message-Id: <8j38dg$iou$1@orpheus.gellyfish.com>
On Sat, 24 Jun 2000 21:08:32 +0100 Andy Chantrill wrote:
> Hey,
>
> I need to grab the manufacturers' serial # of a hard disk from a machine.
> Anybody know of a Perl method of doing this? Or for that matter, *any* way
> of doing it in a *NIX environment (he says sheep'ishly)?
>
A Screwdriver, probably a short posidriv, will enable you to remove the
case of the machine to examine the sticker on the hard drive.
Alternatively you might want to see if you have the program 'hdparm'
or similar on your machine - you can use Perl to get the relevant bits
out of the output ...
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: 24 Jun 2000 15:14:39 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Help---Perl---Storage-
Message-Id: <8j2fof$fj0$1@orpheus.gellyfish.com>
On Thu, 22 Jun 2000 15:28:49 +0200 Pk wrote:
> Sorry Guys for this posting in this NG,
> but i´m searching a perl script, who is diplaying
> the storage is in use of my account.
Just for fun and because it was a choice between doing this or watching
the zillionth repeat of 'Little House on the Prairie' I knocked this
together :
#!/usr/bin/perl -w
use strict;
use File::Find;
use CGI qw(:standard *table);
my $directory = '/home/httpd/html';
my $total;
my %directory_totals;
local $| = 1;
print header,start_html(-title => "Disk Usage for $directory");
find(\&wanted,$directory);
print start_table,"\n",Tr(th(['Directory','Usage (KBytes)'])),"\n";
while( my ( $dir, $size) = each %directory_totals )
{
print Tr(td([$dir, int($size / 1024)])),"\n";
}
print Tr(td(['Total Usage', int($total / 1024)])),"\n";
print end_table,end_html,"\n";
sub wanted
{
if ( -f $_ )
{
my $size = -s $_;
$total += $size;
$directory_totals{$File::Find::dir} += $size;
}
}
You will need to change the appropriate part to point to the correct
directory on your server - if you dont know what that is then you will
need to ask the system administrator.
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: 24 Jun 2000 13:31:41 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How can I Use a Perl Script to FTP files automatically
Message-Id: <8j29nd$eqm$1@orpheus.gellyfish.com>
On Fri, 23 Jun 2000 21:37:42 GMT eedlin@my-deja.com wrote:
> In article
> <Pine.LNX.4.10.10006231018070.6359-100000@newby.cs.ualberta.ca>,
> Weiguang Shi <wgshi@newby.cs.ualberta.ca> wrote:
>> Hi,
>>
>> I got into exactly your problem months ago and got it solved by using
> the
>> Net::FTP module. It's easy as the man page of it gives an example like
>> this:
>>
>> use Net::FTP;
>>
>> $ftp = Net::FTP->new("some.host.name", Debug => 0);
>> $ftp->login("anonymous",'me@here.there');
>> $ftp->cwd("/pub");
>> $ftp->get("that.file");
>> $ftp->quit;
>>
>> The disadvantage is that the password has to be supplied and
> transmitted
>> transparent. May be some guru can tell how can do it securely.
>
> The most straight forward way would be to not have the passwd in the
> script at all and have it passed in through a command line arg. If the
> script is being run by cron or similar then that does not help much.
> You could always make it an executable and someone would have to
> "de-compile" the code to get it out.
Net::FTP will use a username and password in the .netrc in the users
home directory - this file must be only readable by the user.
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: 24 Jun 2000 22:19:52 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: OpenFile then Chomp
Message-Id: <8j38lo$ip2$1@orpheus.gellyfish.com>
On Sat, 24 Jun 2000 07:44:19 -0400 Bernie Cosell wrote:
> "TheEx0rcist" <TheEx0rcist@fanclub.org> wrote:
>
> } Is there a faster/more efficient way to do this :
> }
> } sub getFirstLine
> [...]
> } open (FILE,$file) or die ("$file : $!");
> } $line = <FILE>;
> } close (FILE);
>
> } It is very crictical because the first line is extracted from thousands of
> } files so speed is an issue!
>
> Well, opening and closing files a lot is a pretty slow operation, I'd think
> [the read and chomp is probably not bad]. One alternative would be to let
> Unix do the work for you. If the set of files is known, I'd bet that the
> fastest way to do it would be to do:
>
> open (FIRST, "head -1 <LOTS OF FILES> | ")
>
Of course it might make a difference how many file 'LOTS OF FILES' is ...
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: 24 Jun 2000 12:55:04 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: oracle DB connection
Message-Id: <8j27io$eo7$1@orpheus.gellyfish.com>
On Sat, 24 Jun 2000 12:32:49 +0900 "¾ÈÅ¿í" wrote:
> I want a data insert into oracle DB using perl.
> There was no error message but it couldn't inserted into DB
> here is source code. I want a reply.
> Have a nice day
>
> #!/usr/local/bin/perl
>
You almost certainly want to use a '-w' there to warn you of typos
and other mistakes.
>
> $ENV{'ORACLE_HOME'} = "/oracle/app/oracle/product/7.3.4";
> $ENV{'NLS_LANG'} = "American_America.KO16KSC5601";
>
> require "cgi-lib.pl";
I am not sure why you are using this here and then CGI.pm here -¬
|
> require "teria-lib.pl"; |
> |
> &ReadParse; |
> |
|
I would suggest you lose this in favour of CGI.pm |
|
> #$memnum = $in{'memnum'}; |
> |
> #$insSQL = "insert into ROLLBOOK_TBLA |
> (memnum,nhanja,nhangu,curjob,curoll,prejob,prroll,birthd,birth|p,memadd,memte
> l,offtel,cacade,carrel,memcert,membook) |
> values(".$memnum,$nhanja,$nhangu,$curjob,$curoll,$prejob,$prro|ll,$birthd,$bi
> rthp,$memadd,$memtel,$offtel,$cacade,$carrel,$memcert,$membook| .")";
> |
> #DB Connection |
> use DBI; /
> use CGI; <---------------------------------------------------+
>
>
> $new=new CGI;
>
> $drh = DBI->install_driver('Oracle');
> die unless $drh;
> $dbh = $drh->connect('DB','user','passwd');
> die unless $dbh;
>
This is the old and deprecated way of using DBI - you really want to
do something like :
my $dbh = DBI->connect('dbi:Oracle:DB','user','passwd',{RaiseError=> 1})
|| die DBI->errstr;
Actually the die there is a little redundant because of setting RaiseError.
When an error has occurred with DBI you should print out DBI->errstr which
will contain the last message produced by the database - thus aiding the
diagnosis of the problem.
> $dbh->{LongReadLen} = 16384;
>
> #$cursor = $dbh->prepare($insSQL);
>
> #$cursor->execute;
>
> $memnum=$new->param('memnum');
> $nhanja=$new->param('nhanja');
> $nhangu=$new->param('nhangu');
> $curjob=$new->param('curjob');
> $curoll=$new->param('curoll');
> $prejob=$new->param('prejob');
> $prroll=$new->param('prroll');
> $birthd=$new->param('birthd');
> $birthp=$new->param('birthp');
> $memadd=$new->param('memadd');
> $memtel=$new->param('memtel');
> $offtel=$new->param('offtel');
> $cacade=$new->param('cacade');
> $carrel=$new->param('carrel');
> $memcert=$new->param('memcert');
> $membook=$new->param('membook');
>
> #Form action
> $actInput = $in{'actInput'};
Why *are* you mixing the cgi-lib.pl and CGI.pm stuff ?
my $actInput = $new->param('actInput');
> if($actInput eq
> bmit"){
> $insSQL = "insert into ROLLBOOK_TBL (memnum,nhanja,nhangu,curjob,curoll,prejob,prroll,birthd,birthp,memadd,memtel,offtel,cacade,carrel,memcert,membook) values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
>
I would tend to lay that out in a 'here' document for ease of maintenance:
my $insSQL =<<EOFOO;
INSERT INTO ROLLBOOK_TBL (memnum,
nhanja,
nhangu,
curjob,
curoll,
prejob,
prroll,
birthd,
birthp,
memadd,
memtel,
offtel,
cacade,
carrel,
memcert,
membook)
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
EOFOO
> $cursor = $dbh->prepare($insSQL);
You should check the success of the prepare :
$cursor = $dbh->prepare($insSQL) || die $dbh->errstr;
> $cursor->execute($memnum,$nhanja,$nhangu,$curjob,$curoll,$prejob,$prroll,$birthd,$birthp,$memadd,$memtel,$offtel,$cacade,$carrel,$memcert,$membook);
$cursor->execute() has a return value which should be checked to determine
whether it was successful or not.
>
> #$memnum=$cursor->fetchrow_array;
> #$cursor->fetch;
> #$memnum++;
> $dbh->disconnect;
> }
>
OK Just to put all this together (untested):
#!/usr/bin/perl -w
use strict;
use CGI;
use DBI;
$ENV{'ORACLE_HOME'} = '/oracle/app/oracle/product/7.3.4';
$ENV{'NLS_LANG'} = 'American_America.KO16KSC5601';
my $new = new CGI;
my $dbh = DBI->connect('dbi:Oracle:DB','user','passwd',{RaiseError=> 1})
|| die DBI->errstr;
$dbh->{LongReadLen} = 16384;
my $memnum = $new->param('memnum');
my $nhanja = $new->param('nhanja');
my $nhangu = $new->param('nhangu');
my $curjob = $new->param('curjob');
my $curoll = $new->param('curoll');
my $prejob = $new->param('prejob');
my $prroll = $new->param('prroll');
my $birthd = $new->param('birthd');
my $birthp = $new->param('birthp');
my $memadd = $new->param('memadd');
my $memtel = $new->param('memtel');
my $offtel = $new->param('offtel');
my $cacade = $new->param('cacade');
my $carrel = $new->param('carrel');
my $memcert = $new->param('memcert');
my $membook = $new->param('membook');
my $actInput = $new->param('actInput');
if ($actInput eq 'Submit')
{
my $insSQL =<<EOFOO;
INSERT INTO ROLLBOOK_TBL (memnum,
nhanja,
nhangu,
curjob,
curoll,
prejob,
prroll,
birthd,
birthp,
memadd,
memtel,
offtel,
cacade,
carrel,
memcert,
membook)
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
EOFOO
my $cursor = $dbh->prepare($insSQL) || die $dbh->errstr;
$cursor->execute($memnum,
$nhanja,
$nhangu,
$curjob,
$curoll,
$prejob,
$prroll,
$birthd,
$birthp,
$memadd,
$memtel,
$offtel,
$cacade,
$carrel,
$memcert,
$membook) || die $dbh->errstr;
}
$dbh->disconnect;
Of course you will need to do some other stuff for this to a working CGI
program but you will wont to ask in comp.infosystems.www.authoring.cgi
about that.
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: 25 Jun 2000 00:05:36 GMT
From: mdz4c@node16.unix.Virginia.EDU (Matthew Zimmerman)
Subject: Re: Passing filehandles to subroutines
Message-Id: <8j3icg$eg7$1@murdoch.acc.Virginia.EDU>
In article <slrn8l63ek.s06.tcsh@faure.cs.colostate.edu>,
Mike <tcsh@holly.colostate.edu> wrote:
>gbacon@HiWAAY.net (Greg Bacon):
>>
>> You need to upgrade. It's often easier to just grep the pods. Do
>> you know how to find the pods in your Perl installation?
>
>I'm not the sysadmin and have a tight disk usage quota so an upgrade isn't
>possible. But thanks for the grepping the pods idea, I'll surely use that
>in the future.
>
I'm in the same boat as you in that I don't have a 'perldoc -q' option,
but one of the first things I wrote after learning Perl was a script
specifically for grepping pods. It's not the fastest thing in the world,
but it serves its purpose:
-----
#!/usr/bin/perl5 -w
#
use strict;
use File::Find;
unless (@ARGV) {
die "usage: podgrep pattern\n";
}
my $pattern = shift;
my @realinc;
foreach (@INC) {push @realinc, $_ if -e}
find \&process_files, @realinc;
my $line;
sub process_files {
if ( /\.pod$/ || /\.pm$/ ) {
open CURRENT, $_ or die "Couldn't open $_:$!";
while( defined($line = <CURRENT>) ) {
if ( $line =~ /$pattern/oi ) {
print "$_:$.: $line";
}
}
close CURRENT or warn "Couldn't close $_:$!";
}
}
-----
HTH! Matt
--
--
|Matthew Zimmerman http://www.people.virginia.edu/~mdz4c |
|Interdisciplinary Biophysics Program |"I AM serious. |
|University of Virginia | And stop calling me Shirley."|
------------------------------
Date: Sat, 24 Jun 2000 20:36:55 GMT
From: akashgoel@my-deja.com
Subject: Perl & CGI Tutorial Sites
Message-Id: <8j3656$b44$1@nnrp1.deja.com>
Hi,
I own a website called The Links Archive at http://tla.swo.net. We
opened our site on Friday and we link to a lot of CGI sites such as
Free-Scripts.Net , CGI 101, etc. All of the links at our site are
described and rated. Not only do we links to CGI Tutorial sites, but
also other section too. We have Desktop Themes, HTML, MP3, Software,
over 50 sections in all, each with atleast 5 sites per page(over 400
sites in all). So please check our site out and drop us an e-mail of
what you think. If you have a website, we'll be glad to check it out and
consider to link to it. We don't have ANY advertisements on our site,
so please atleast check it out, I'm sure you'll bookmark it! The URL
again is http://tla.swo.net Thanks
By the way...you can also reply on this newsgroup of what you think...
Sincerely,
Akash Goel
Webmaster
The Links Archive
http://tla.swo.net
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 24 Jun 2000 23:26:59 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: Perl Programming Style Question
Message-Id: <7a3dm264or.fsf@merlin.hyperchip.com>
SPAM+indigo@dimensional.com (Tim) writes:
> gt6786b@prism.gatech.edu (Jang Choe) wrote in <8it4cv$kot$1@news-
> int.gatech.edu>:
>
> >Just wondering if it's better to write a perl script like this:
> >
> >#!/usr/bin/perl -w
> >use strict;
> >
> >{
> > stuff here;
> >}
> >
> >or like this:
> >
> >#/usr/bin/perl -w
> >use strict;
> >
> >stuff here;
> >
> >The difference is the braces. Thanks
>
> The second form is more common for ordinary scripts.
>
> However, if you are writing a package, you may wish to enclose
> you code in braces in case you wish to have package scoped
> variables.
No. You don't need to enclose your code in braces if you are writing a
package. As soon as you declare a new package using the package()
construct, all subsequent variables belong to that package. The only
exceptions are Perl's special variables (checkout perlvar) and fully
qualified variables.
perldoc -f package
for more info.
--Ala
------------------------------
Date: Sat, 24 Jun 2000 18:18:04 GMT
From: malverian@hotmail.com
Subject: Perl2Exe Problem
Message-Id: <8j2u0h$5hd$1@nnrp1.deja.com>
I wrote the following program in Perl.. I know it is very poorly done,
but it's my best =P
I was just wondering if you have any suggestions as to why it does not
compile correctly with Perl2Exe.. the error message I get is.
___________________________________________________________________
Global symbol "@ISA" requires explicit package name at
PERL2EXE_STORAGE/IO/Socke
t/INET.pm line 6.
Global symbol "$VERSION" requires explicit package name at
PERL2EXE_STORAGE/IO/S
ocket/INET.pm line 6.
BEGIN not safe after errors--compilation aborted at
PERL2EXE_STORAGE/IO/Socket/I
NET.pm line 7.
BEGIN failed--compilation aborted at c:\windows\desktop\portscan.pl
line 7.
____________________________________________________________________
Anyway... here is the program.
____________________________________________________________________
#!/usr/bin/perl
use IO::Socket::INET;
print " XXXXXXX XXXXXX XXXXXXX XXXXXXXXXXX \n";
print " X X X X X X X \n";
print " X X X X X X X \n";
print " XXXXXXX X X XXXXXXX X \n";
print " X X X X X X \n";
print " X XXXXXX X X X \n";
print " By Malverian\n\n";
print "Server to scan: ";
$server = <STDIN>;
print "First port to scan: ";
$startport = <STDIN>;
print "Last port to scan: ";
$endport = <STDIN>;
chomp($server);
chomp($startport);
chomp($endport);
$port = $startport;
$openports = "[]";
print "Scanning ports $startport through $endport of $server.\n";
&connect;
print "\nOpen ports: $openports\n";
sub connect
{
$sock = IO::Socket::INET->new(PeerAddr => "$server",
PeerPort => "$port",
Proto => 'tcp',
Timeout => '1');
if ($sock)
{
print "$port\tOPEN\n";
$openports = "$openports, $port";
}
else
{
print "$port\n";
}
if ($port < $endport)
{
$port++;
&connect;
}
}
_________________________________________________________________
Thankyou in advance for any help.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 25 Jun 2000 00:31:26 GMT
From: mdz4c@node16.unix.Virginia.EDU (Matthew Zimmerman)
Subject: Re: Quick "Perl Way" solution needed
Message-Id: <8j3jsu$f1a$1@murdoch.acc.Virginia.EDU>
In article <3953C366.EEB592B1@orbital.com>,
J Church <church.jeff@orbital.com> wrote:
>From the Block below , I was wondering if anyone wants to take
>a shot at a quick "Perl Way" solution:
>
>I want to print the numbers in the last field in such a way
>that each sequence of consecutive numbers are considered
>seperate ranges, and are the only values extracted.
#!/usr/bin/perl -w
use strict;
my($low, $high, $last, $curr);
$_ = <DATA>;
($low) = ($last) = /(\d+)\s*$/;
while( <DATA> ) {
($curr) = /(\d+)\s*$/;
if( $curr != $last+1 ) {
$high = $last;
print "$low .. $high\n";
$low = $curr;
}
$last = $curr;
}
print "$low .. $curr\n";
__DATA__
-W- getl0scene_nav.c: bad navigation at scan 688
-W- getl0scene_nav.c: bad navigation at scan 689
-W- getl0scene_nav.c: bad navigation at scan 690
-W- getl0scene_nav.c: bad navigation at scan 691
-W- getl0scene_nav.c: bad navigation at scan 692
-W- getl0scene_nav.c: bad navigation at scan 1039
-W- getl0scene_nav.c: bad navigation at scan 1040
-W- getl0scene_nav.c: bad navigation at scan 1041
-W- getl0scene_nav.c: bad navigation at scan 1042
-W- getl0scene_nav.c: bad navigation at scan 1635
-W- getl0scene_nav.c: bad navigation at scan 1636
-W- getl0scene_nav.c: bad navigation at scan 1637
-W- getl0scene_nav.c: bad navigation at scan 1638
HTH! Matt
--
--
|Matthew Zimmerman http://www.people.virginia.edu/~mdz4c |
|Interdisciplinary Biophysics Program |"I AM serious. |
|University of Virginia | And stop calling me Shirley."|
------------------------------
Date: Sat, 24 Jun 2000 13:25:38 -0500
From: "David Allen" <s2mdalle@titan.vcu.edu>
Subject: Repeated regex matching.
Message-Id: <8j2ulq$ckv$1@bob.news.rcn.net>
Let's say I have a string:
$foo = "popopop";
and then I have this code:
while(($foo =~ m/pop/gi)){
print "MATCHED\n";
}
This prints the word MATCHED two times instead of 3
times. I.e. the string
popopop
| | |
It should see matches here
but instead it's seeing matches
popopop
| |
there.
How do I get the desired behavior out of a regex? I.e. how
do I get a subsequent regex to return a match that can include
part of, but not all of, a previous match?
--
David Allen
http://opop.nols.com/
------------------------------
Date: 24 Jun 2000 12:56:57 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Running Perl CGI Scripts
Message-Id: <8j27m9$eoa$1@orpheus.gellyfish.com>
On Fri, 23 Jun 2000 22:38:37 -0400 mike wrote:
>
> Hi,
> I am trying to learn CGI scripting and Perl and using Apache
> on a Slackware 7.0 Linux box. The scripts that I am having
> trouble with are the ones that create or write to files. The
> scripts seem to run through, but no file is created or written
> to. In the error_log file, I get the message: cannot create
> regular file /path/filename Permission denied. Do I have
> to in some way tell Apache to allow creation and writing to
> files in its config file?
The user that the web server runs as does not have permission to create
create files in that directory. You will need to change the permissions
of the directory so that it can.
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: 24 Jun 2000 19:08:10 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Running Perl CGI Scripts
Message-Id: <8j2tea$hfq$1@orpheus.gellyfish.com>
On Sat, 24 Jun 2000 10:01:34 -0400 mike wrote:
>
>
> Miles Davenport wrote:
>
>> Check your process table, and see what apache is running as:
>
> Hi Mike,
> what is the purpose of checking my process tables
> to see what apache is running as? I'm not sure what that means.
> What will I get out of the process table to be able to help with
> running the Perl scripts?
What he means is that when you run
ps -ef | grep httpd
from the command prompt on your system you will get output like :
root 27857 1 0 Jun16 ? 00:00:02 /usr/sbin/httpd
nobody 17357 27857 0 17:54 ? 00:00:00 /usr/sbin/httpd
nobody 17358 27857 0 17:54 ? 00:00:00 /usr/sbin/httpd
nobody 17368 27857 0 17:55 ? 00:00:00 /usr/sbin/httpd
nobody 17369 27857 0 17:55 ? 00:00:00 /usr/sbin/httpd
nobody 17370 27857 0 17:55 ? 00:00:00 /usr/sbin/httpd
nobody 17371 27857 0 17:55 ? 00:00:00 /usr/sbin/httpd
which would indicate that your web server is running as the use 'nobody'
of course you might be on a BSD or other OS where 'ps -ef' will produce
different output or will not work at all.
If you need to determine what user your web server will run as you should
check in the configuration file - if you dont know where that is you will
want to ask in the group comp.infosystems.www.servers.unix .
Having this information you will thus be able to set the appropriate
directory so that the user the httpd runs as is able to write to and
create files there.
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: 24 Jun 2000 19:17:03 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Running Perl CGI Scripts
Message-Id: <8j2tuv$hk8$1@orpheus.gellyfish.com>
On Sat, 24 Jun 2000 13:41:24 +0100 Miles Davenport wrote:
>
> If you set the sticky bit on the directory, the permissions will be
> retained for any files that are created within that directory.
>
Its that 'sticky bit' thing again. Setting the sticky bit may have
special meaning for directories on some file systems but generally it
refers to saving the program text of executables. I think you mean
the set uid or set uid bits which will cause any new files to be created
with the owner (or group) the same as the owner of the directory on some
systems.
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: Sat, 24 Jun 2000 20:30:31 GMT
From: malverian@my-deja.com
Subject: Sending data to a certain connection
Message-Id: <8j35p8$aq4$1@nnrp1.deja.com>
How can I send data to a specific connection?
For example:
I would like to know how I could modify this script which
sends "Welcome!" to everyone when new person connects... so it only
sends it to the person who connects..
Example two:
When someone sends Hello to the chat it would send "You say: Hello"
and "TheirName: Hello" to everyone else..
I know this may be too much to answer, but a small sample and
explanation would be great.
Thanks
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 24 Jun 2000 20:43:56 GMT
From: "Ben" <lilleyb001@hawaii.rr.com>
Subject: Re: Sending data to a certain connection
Message-Id: <g4955.10017$aB6.42033@typhoon.hawaii.rr.com>
What 'script' are you refering to? Is this a Perl question?
If not, check out:
comp.infosystems.www.authoring.cgi
Good Luck!
Ben
<malverian@my-deja.com> wrote in message news:8j35p8$aq4$1@nnrp1.deja.com...
> How can I send data to a specific connection?
>
> For example:
> I would like to know how I could modify this script which
> sends "Welcome!" to everyone when new person connects... so it only
> sends it to the person who connects..
>
> Example two:
> When someone sends Hello to the chat it would send "You say: Hello"
> and "TheirName: Hello" to everyone else..
> I know this may be too much to answer, but a small sample and
> explanation would be great.
>
> Thanks
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Sat, 24 Jun 2000 20:38:22 GMT
From: malverian@my-deja.com
Subject: Re: Sending data to a certain connection
Message-Id: <8j367s$b4l$1@nnrp1.deja.com>
And here is the program, hehe.
_________________________________________
use IO::Socket;
use IO::Select;
my $listen = IO::Socket::INET->new(Proto => 'tcp', LocalPort => 9000,
Listen => 1, Reuse => 1) or die $!;
my $select = IO::Select->new($listen);
my @ready;
while(@ready = $select->can_read)
{
my $socket;
for $socket (@ready)
{
if($socket == $listen)
{
my $new = $listen->accept; $select->add($new);
my $socket;
for $socket ($select->handles)
{
next if($socket==$listen);
$socket->send("Welcome!\n");
}
}
else
{
my $line="";
$socket->recv($line,80);
if($line eq "")
{
};
my $socket;
for $socket ($select->handles)
{
next if($socket==$listen);
$socket->send($line);
}
}
}
}
1;
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 24 Jun 2000 21:14:47 GMT
From: malverian@my-deja.com
Subject: Re: Sending data to a certain connection
Message-Id: <8j38bt$cdt$1@nnrp1.deja.com>
Yes, it is a perl question, read Message 2 in this thread.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 24 Jun 2000 13:38:22 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: some question about module when I use perl !
Message-Id: <8j2a3u$er2$1@orpheus.gellyfish.com>
On Thu, 22 Jun 2000 22:42:07 GMT sunlights wrote:
> My script need a module and the module include 2 .dll file.
> When I compled my script by perl2exe and got the .exe file,I sent it to
> the server.But it can't execute. Why ?
>
> Error Message:
> Can't locate loadable object for module Image::Magick in @INC (@INC
> contains: PERL2EXE_STORAGE . lib\site .) at index.cgi line 12
> BEGIN failed--compilation aborted at index.cgi line 12.
>
What did the helpdesk of the vendors of perl2exe say ?
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: Sat, 24 Jun 2000 19:08:29 GMT
From: kjschmi@my-deja.com
Subject: Re: Sys::Syslog & _PATH_LOG
Message-Id: <8j30ve$odf$1@nnrp2.deja.com>
I also ran into this situation with Perl version
5.6.0 on HP-UX 10.20. _PATH_LOG is nowhere to be
found under /usr/include (nor is it found on our
Solaris 2.5.1 nor HP-UX 11.0 systems). Forcing
_PATH_LOG to "/dev/log" in Syslog.xs did not work
- kept getting "socket operation on non-socket"
error (/dev/log is a named pipe on ux, and a
character device on solaris, so not sure how this
would ever work anyway:)
Made me wonder how it worked prior to Sys::Syslog
being converted to XS code. Looking at perl
5.00503 on HP-UX 10.20 revealed that specifying
either 'inet' or 'unix' as the argument to
setlogsock() makes no difference - $sock_type in
the connect() subroutine of Syslog.pm is always
undefined, resulting in an inet socket connection
in either case.
To allow the 5.6.0 version of Syslog to work with
the same behavior, I removed croak() from the
"#ifdef _PATH_LOG" section of Syslog.xs.
However, Syslog.pm still set $sock_type in the
setlogsock() routine, so line 162 of Syslog.pm
was modified from:
if (defined &_PATH_LOG)
to:
if (defined _PATH_LOG())
in order to test the actual value returned from
_PATH_LOG(), rather than just testing if the
&_PATH_LOG subroutine exists.
This is my first stab at messing with XS code, so
the above solution probably is not an appropriate
approach. But hey, at least 'make test' now
works for Net::Daemon!
regards,
Kevin
In article <8isgpj$qg0$1@orpheus.gellyfish.com>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> On Wed, 21 Jun 2000 10:52:48 -0500 Daniel Weber
wrote:
> > I posted this originally in c.l.p.modules,
but it hasn't turned up any
> > responses. Probably should have cross-posted
to begin with.
> >
> > Anyway, has anyone else noted this behavior
on AIX or IRIX? Anyone have a
> > solution?
> >
> > -------- Original Message --------
> > Subject: Sys::Syslog & _PATH_LOG
> > Date: Mon, 19 Jun 2000 17:06:40 -0500
> > From: Daniel Weber <d-weber@itg.uiuc.edu>
> > Reply-To: d-weber@uiuc.edu
> > Organization: University of Illinois at
Urbana-Champaign
> > Newsgroups: comp.lang.perl.modules
> >
> > I'm running perl-5.6.0 on both AIX 4.3.3 and
IRIX 6.5.7 and attempting to test
> > the Net::Daemon module which requires the
Sys::Syslog module. On both operating
> > systems, I get the error:
> >
> >> t/config............Your vendor has not
defined the Sys::Syslog macro _PATH_LOG
> >> at /usr/local/encap/perl-5.6.0/lib/perl-
5.6.0/IP22-irix-thread-multi/Sys/Syslog.
> >> pm line 277.
> >
> > (adjusting the path for AIX obviously).
> >
> > 277 is the line:
> >> my $syslog = &_PATH_LOG || croak
"_PATH_LOG not found in syslog.ph";
> >
> > As far as I can tell, syslog.ph isn't
included with a require by this
> > version of Syslog.pm as in earlier versions
of perl, so that croak
> > message probably isn't correct.
>
> Its not actually the result of that croak that
you are seeing - this is
> coming from within the XS code that replaces
the need to require
> 'syslog.ph'. The Sys::Syslog manpage is also
incorrect in this respect -
> I guess I should do a patch ...
>
> > Though to be sure I ran h2ph on the entire
/usr/include hierarchy but
> > still got the same error. On IRIX, _PATH_LOG
is defined in paths.ph,
> > but under AIX, it doesn't appear in *any* .ph
file. A grep of all .h
> > files on AIX confirmed this.
>
> > I tried modifying line 277 of Syslog.pm to
read "my $syslog =
> > _PATH_LOG()" as suggested in previous posts
as archived on deja.com,
> > but I still get the same error.
>
> > Changing line 277 to be hardcoded "$syslog =
'/dev/log'" seems to work
> > on AIX, but not on IRIX, even though in
paths.ph on IRIX _PATH_LOG
> > is simply /dev/log. That is to say it passes
the tests under AIX but
> > generates more errors on IRIX.
>
> All that follows comes with no warranty as
neither OS will run on my
> laptop ;-}
>
> On IRIX you could edit the file <perl src
dir>/ext/Sys/Syslog/Syslog.xs
> so that it has something like :
>
> #ifdef I_SYSLOG
> #ifdef IRIX /* You will need to check
this constant */
> #include <paths.h>
> #endif
> #include <syslog.h>
> #endif
>
> instead of just including syslog.h. You might
find that you will need
> to include other stuff which will probably be
described in the syslog(3)
> manpage.
>
> You will then need to run 'make' and 'make
install' in that directory.
>
> For the AIX you should again look at the syslog
(3) manpage to determine
> what include files it requires - however as it
appears that it uses some
> other macro than _PATH_LOG you may need to
define this yourself or
> find out whether there is some other macro that
holds the equivalent
> information - this might be defined in
/usr/include/syslog.h (or some
> file included from there or listed in the
manpage).
>
> You might end up with :
>
> #ifdef AIX
> /* possibly some includes to pull in the
appropriate macros */
> #define _PATH_LOG _AIX_PATHL_LOG /* of course
this will be something else */
> #endif
>
> If all else fails you could just put
>
> #ifndef _PATH_LOG
> #define _PATH_LOG /dev/log
> #endif
>
> somewhere after all the other preprocessor
stuff.
>
> If you do get this to work you should probably
send the patch to
> perl5-porters or via perlbug - if you dont you
might want to submit
> a report via perlbug as the module being part
of the standard distribution
> is now looked after by p5p ..
>
> > Does anyone have a solution or a patch to
apply to Syslog.pm to fix
> > the problem?
>
> You could use setlogsock() with a value of
'inet' which will not use
> PATH_LOG at all if all else fails ...
>
> /J\
> --
> ** This space reserved for venue sponsor for
yapc::Europe **
> <http://www.yapc.org/Europe/>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 24 Jun 2000 19:08:28 GMT
From: kjschmi@my-deja.com
Subject: Re: Sys::Syslog & _PATH_LOG
Message-Id: <8j30vd$ode$1@nnrp2.deja.com>
I also ran into this situation with Perl version
5.6.0 on HP-UX 10.20. _PATH_LOG is nowhere to be
found under /usr/include (nor is it found on our
Solaris 2.5.1 and HP-UX 11.0 systems). Forcing
_PATH_LOG to "/dev/log" in Syslog.xs did not work
- kept getting "socket operation on non-socket"
error (/dev/log is a named pipe on ux, and a
character device on solaris, so not sure how this
would ever work anyway:)
Made me wonder how it worked prior to Sys::Syslog
being converted to XS code. Looking at perl
5.00503 on HP-UX 10.20 revealed that specifying
either 'inet' or 'unix' as the argument to
setlogsock() makes no difference - $sock_type in
the connect() subroutine of Syslog.pm is always
undefined, resulting in an inet socket connection
in either case.
To allow the 5.6.0 version of Syslog to work with
the same behavior, I removed croak() from the
"#ifdef _PATH_LOG" section of Syslog.xs.
However, Syslog.pm still set $sock_type in the
setlogsock() routine, so line 162 of Syslog.pm
was modified from:
if (defined &_PATH_LOG)
to:
if (defined _PATH_LOG())
in order to test the actual value returned from
_PATH_LOG(), rather than just testing if the
&_PATH_LOG subroutine exists.
This is my first stab at messing with XS code, so
the above solution probably is not an appropriate
approach. But hey, at least 'make test' now
works for Net::Daemon!
regards,
Kevin
In article <8isgpj$qg0$1@orpheus.gellyfish.com>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> On Wed, 21 Jun 2000 10:52:48 -0500 Daniel Weber
wrote:
> > I posted this originally in c.l.p.modules,
but it hasn't turned up any
> > responses. Probably should have cross-posted
to begin with.
> >
> > Anyway, has anyone else noted this behavior
on AIX or IRIX? Anyone have a
> > solution?
> >
> > -------- Original Message --------
> > Subject: Sys::Syslog & _PATH_LOG
> > Date: Mon, 19 Jun 2000 17:06:40 -0500
> > From: Daniel Weber <d-weber@itg.uiuc.edu>
> > Reply-To: d-weber@uiuc.edu
> > Organization: University of Illinois at
Urbana-Champaign
> > Newsgroups: comp.lang.perl.modules
> >
> > I'm running perl-5.6.0 on both AIX 4.3.3 and
IRIX 6.5.7 and attempting to test
> > the Net::Daemon module which requires the
Sys::Syslog module. On both operating
> > systems, I get the error:
> >
> >> t/config............Your vendor has not
defined the Sys::Syslog macro _PATH_LOG
> >> at /usr/local/encap/perl-5.6.0/lib/perl-
5.6.0/IP22-irix-thread-multi/Sys/Syslog.
> >> pm line 277.
> >
> > (adjusting the path for AIX obviously).
> >
> > 277 is the line:
> >> my $syslog = &_PATH_LOG || croak
"_PATH_LOG not found in syslog.ph";
> >
> > As far as I can tell, syslog.ph isn't
included with a require by this
> > version of Syslog.pm as in earlier versions
of perl, so that croak
> > message probably isn't correct.
>
> Its not actually the result of that croak that
you are seeing - this is
> coming from within the XS code that replaces
the need to require
> 'syslog.ph'. The Sys::Syslog manpage is also
incorrect in this respect -
> I guess I should do a patch ...
>
> > Though to be sure I ran h2ph on the entire
/usr/include hierarchy but
> > still got the same error. On IRIX, _PATH_LOG
is defined in paths.ph,
> > but under AIX, it doesn't appear in *any* .ph
file. A grep of all .h
> > files on AIX confirmed this.
>
> > I tried modifying line 277 of Syslog.pm to
read "my $syslog =
> > _PATH_LOG()" as suggested in previous posts
as archived on deja.com,
> > but I still get the same error.
>
> > Changing line 277 to be hardcoded "$syslog =
'/dev/log'" seems to work
> > on AIX, but not on IRIX, even though in
paths.ph on IRIX _PATH_LOG
> > is simply /dev/log. That is to say it passes
the tests under AIX but
> > generates more errors on IRIX.
>
> All that follows comes with no warranty as
neither OS will run on my
> laptop ;-}
>
> On IRIX you could edit the file <perl src
dir>/ext/Sys/Syslog/Syslog.xs
> so that it has something like :
>
> #ifdef I_SYSLOG
> #ifdef IRIX /* You will need to check
this constant */
> #include <paths.h>
> #endif
> #include <syslog.h>
> #endif
>
> instead of just including syslog.h. You might
find that you will need
> to include other stuff which will probably be
described in the syslog(3)
> manpage.
>
> You will then need to run 'make' and 'make
install' in that directory.
>
> For the AIX you should again look at the syslog
(3) manpage to determine
> what include files it requires - however as it
appears that it uses some
> other macro than _PATH_LOG you may need to
define this yourself or
> find out whether there is some other macro that
holds the equivalent
> information - this might be defined in
/usr/include/syslog.h (or some
> file included from there or listed in the
manpage).
>
> You might end up with :
>
> #ifdef AIX
> /* possibly some includes to pull in the
appropriate macros */
> #define _PATH_LOG _AIX_PATHL_LOG /* of course
this will be something else */
> #endif
>
> If all else fails you could just put
>
> #ifndef _PATH_LOG
> #define _PATH_LOG /dev/log
> #endif
>
> somewhere after all the other preprocessor
stuff.
>
> If you do get this to work you should probably
send the patch to
> perl5-porters or via perlbug - if you dont you
might want to submit
> a report via perlbug as the module being part
of the standard distribution
> is now looked after by p5p ..
>
> > Does anyone have a solution or a patch to
apply to Syslog.pm to fix
> > the problem?
>
> You could use setlogsock() with a value of
'inet' which will not use
> PATH_LOG at all if all else fails ...
>
> /J\
> --
> ** This space reserved for venue sponsor for
yapc::Europe **
> <http://www.yapc.org/Europe/>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sun, 25 Jun 2000 00:14:03 GMT
From: David McMullen <davidmac@austin.rr.com>
Subject: Testing exit status
Message-Id: <39554E8B.9E7CDD22@austin.rr.com>
I'm trying to test the exit status of a ping command. what is the best
way to do see if a host exists on the network through this method?
TIA
davidmac
------------------------------
Date: Sun, 25 Jun 2000 00:14:02 GMT
From: David McMullen <davidmac@austin.rr.com>
Subject: Testing exit status
Message-Id: <e9c55.61712$cH1.523004@typhoon.austin.rr.com>
------------------------------
Date: 24 Jun 2000 13:07:18 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Using cgi-lib.pl to upload a file
Message-Id: <8j289m$ep4$1@orpheus.gellyfish.com>
On Fri, 23 Jun 2000 16:01:25 -0700 cdillis wrote:
> If there is no file to
> upload, cgi-lib.pl crashes.
Then dont use that then. There is a good example of a file upload
program in the CGI.pm documentation.
/J\
--
** This space reserved for venue sponsor for yapc::Europe **
<http://www.yapc.org/Europe/>
------------------------------
Date: Sat, 24 Jun 2000 11:50:08 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: visit new FORUM all u queastion will be answered (atleast we will do our best)
Message-Id: <Pine.GSO.4.10.10006241140550.23149-100000@user2.teleport.com>
On Sat, 24 Jun 2000 http404040404@my-deja.com wrote:
> visit new FORUM all u queastion will be answered (atleast we will do
> our best)
And this is better than Usenet in what way?
> http://v13.virtualave.net/
Odd. The main thing I find there is information on illegal and
similarly-dubious activities. Don't you worry that law enforcement
agencies are monitoring this stuff? Or maybe you're in law enforcement
yourselves, and this site is a clumsy attempt at a trap? Either way, you
should know that you're being watched.
I don't see anything about Perl on your site, but maybe I didn't look hard
enough. I don't see any way to ask "queastions" about Perl there.
I don't think there's anything here for most of us.
Follow-ups set, in case there's any Perl-related follow-up.
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
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 3473
**************************************
