[10840] in Perl-Users-Digest
Perl-Users Digest, Issue: 4441 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Dec 16 16:07:19 1998
Date: Wed, 16 Dec 98 13:00:25 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 16 Dec 1998 Volume: 8 Number: 4441
Today's topics:
Re: (newbie) nested closure problem [long] <chrislee@lavash.ius.cs.cmu.edu>
@INC and perl <kprice@iocenter.net>
Re: @INC and perl (Bart Lateur)
Re: Beginnner seeks advice: Data processing applicatio <guillaume@sandtechnology.com>
Data::Dumper dumping core need help on where to look <andrew.keyes@attws.com>
Embedded Perl ... what to distribute? <Rick.Moroz@bluegill.com>
Re: FMTEYEWTK on open <uri@ibnets.com>
Re: hashes with arrays as values? <bradw@newbridge.com>
Re: hashes with arrays as values? <jeromeo@atrieva.com>
How do i run perl scripts on my computer at home? <poohba@io.com>
Re: How do i run perl scripts on my computer at home? (brian d foy)
how to add path to @INC permanently otis@my-dejanews.com
Re: making html change (Kevin Johnson)
Re: making html change (brian d foy)
Monitoring a Directory <aravind@genome.wi.mit.edu>
Re: need Sun Solaris 2.6 sun4u gcc binaries <gm@mgm-net.de>
Re: Perl - mySql and MSQL Help (brian d foy)
Re: Perl in a RF print <guillaume@sandtechnology.com>
Re: Perl in a RF print (brian d foy)
Re: Perl's in the dictionary <uri@ibnets.com>
Re: Perl's in the dictionary (Bart Lateur)
pre-ANNOUNCE : Script for fixing postscript files. <etienne@anonimo.isr.ist.utl.pt>
Re: previous page, perl vs asp (Bart Lateur)
Re: Problem with script "... cgi-bin\signup.pl' script <newsposter@cthulhu.demon.nl>
Problems when requesting documents from Apacheservers <jesper@rautell.dk>
Re: Problems with 'unpack' .. (This has to be in the FA (Greg Ward)
Re: send e-mail by port 25 in Perl !!! HELPME !!!!! (David B. White)
Re: send e-mail by port 25 in Perl !!! HELPME !!!!! (Bart Lateur)
STANDARD PERL for WIN 95/NT EXECUTABLE (Johannes Poehlmann)
Re: Template to email with file attachment features <preble@ipass.net>
Re: URL database (brian d foy)
Re: Why doesn't this work? <newsposter@cthulhu.demon.nl>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 16 Dec 1998 15:01:37 -0500
From: Christopher Lee <chrislee@lavash.ius.cs.cmu.edu>
Subject: Re: (newbie) nested closure problem [long]
Message-Id: <68pv9j500u.fsf@lavash.ius.cs.cmu.edu>
My question was answered by the newsgroup -- not a person on the
newsgroup but the newsgroup itself! Pretty cool. Since this was the
first time I have posted to comp.lang.perl.misc, I was automagically
sent an email that said among other things to do 'perl -w' with 'use
diagnostics;' set in the code. After doing this, perl told me that I
needed to make the inner closure an anonymous closure rather than a
named closure. It also complained about use of an undefined value.
The fact that there is a difference is just one more bizarre aspect of
the language which is hard to get used to for a Scheme hacker, but I
guess I can live with it.
So in case anyone is interested (otherwise I am just having a
conversation with myself here :), this is the version of the
topological sort, using nested closures, that works:
----------------------------------------------------------------------
sub tsort {
my $dag = shift;
my @sorted;
my %adj_table = %$dag; # copy the dag
my $visit;
$visit = sub {
my($u,$adj_list) = @_;
$adj_table{$u} = 'colored'; # color vertex u
map { # visit uncolored verticies to which u connects
my $val = $adj_table{$_};
if ( !defined($val) || $val ne 'colored' ) {
&$visit($_, (defined($val)?$val:[]));
}
} @$adj_list;
push @sorted, ($u); # when here, all dependencies of $u are visited
};
# visit all verticies
while ( my($key, $val) = each %adj_table) {
&$visit($key,$val) unless ( $val eq 'colored' );
}
return \@sorted;
}
----------------------------------------------------------------------
--
Christopher Lee
http://www.cs.cmu.edu/~chrislee
chrislee@ri.cmu.edu
------------------------------
Date: Wed, 16 Dec 1998 13:48:06 -0800
From: "Kevin R. Price" <kprice@iocenter.net>
Subject: @INC and perl
Message-Id: <36782A96.9082C2B6@iocenter.net>
I am trying ot get PERL to run. I have perl 5.005 01 installed on an
AIX 4.2.1.0 box.
When I run perl test2.pl I get:
Can't locate IO/Socket.pm in @INC (@INC contains:
/usr/local/lib/perl5/aix/5.004
63 /usr/local/lib/perl5 /usr/local/lib/perl5/site_perl/aix
/usr/local/lib/perl5/
site_perl .) at UPSship.pm line 7.
Where or what is the @INC file, and how can I edit it to put in the
correct path to where those library modules can be found?
Thank you in advance.
Kevin
------------------------------
Date: Wed, 16 Dec 1998 20:25:50 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: @INC and perl
Message-Id: <367d15f4.1426951@news.skynet.be>
Kevin R. Price wrote:
>I am trying ot get PERL to run. I have perl 5.005 01 installed on an
>AIX 4.2.1.0 box.
>
>When I run perl test2.pl I get:
>
>Can't locate IO/Socket.pm in @INC (@INC contains:
>/usr/local/lib/perl5/aix/5.004
>63 /usr/local/lib/perl5 /usr/local/lib/perl5/site_perl/aix
>/usr/local/lib/perl5/
>site_perl .) at UPSship.pm line 7.
>
>Where or what is the @INC file, and how can I edit it to put in the
>correct path to where those library modules can be found?
Newbie alert! ;-)
You have obviously never used Perl before, or you would know that @INC
is not a file, but an array. You may compare it to the PATH environment
variable. It maintains a list of directories where Perl will search for
it's installed libraries.
This would indicate that module IO::Socket (file "Socket.pm", in
directory "IO") is not installed. You can always go look for it at CPAN:
<http://www.cpan.org/>, or the CPAN section in <http://www.perl.com>
Before that, you might try to do some tests with modules that ARE
installed.
HTH,
Bart.
------------------------------
Date: 16 Dec 1998 11:10:26 PST
From: Guillaume Dupuis <guillaume@sandtechnology.com>
Subject: Re: Beginnner seeks advice: Data processing application
Message-Id: <36780696.C2170861@sandtechnology.com>
Did you try a "while" loop?
open (FILE_001, "+<data.txt");
while (<FILE_001>)
{
... process your info # By default, "$_" is equal to the whole
line
# ..... One line at a time...
}
close (FILE_001);
This is only to read the file, it will not modify anything in there...
> and the program would continue for each line of the input file...that's where I
> am unclear on how to get the input file read a line at a time...feel free to
> email me or post here if you wish to discuss this in more detail...but all I am
> looking for is a general direction here...thanks!
If you would need anything more, email me, and I'll TRY to help...
--
Guillaume Dupuis,
Nucleus QA
mailto:guillaume@sandtechnology.com
http://www.sandtechnology.com
------------------------------
Date: Wed, 16 Dec 1998 12:08:50 -0800
From: Andrew Keyes <andrew.keyes@attws.com>
Subject: Data::Dumper dumping core need help on where to look
Message-Id: <36781352.26A4@attws.com>
I have a massively complicated perl program and, I'm using the
XS version of Data Dumper, all the tests in
make test
ran ok, I'm looking for a Data Dumper faq or something
like that, or where to look for input to Data Dumper
that might make it dump core. Any advice on how to look
at perl core files might help too, all I could figure out
was to look at the stack in dbx and see that DD is where
is was. The stack trace is below.
Any help would be greatly appreciated.
(dbx) where
Perl_newSV() at 0x3e23c
Perl_newAV() at 0x32e84
DD_dump() at 0xef73d600
DD_dump() at 0xef73d31c
DD_dump() at 0xef73d31c
XS_Data__Dumper_Data_Dumper_Dumpxs() at 0xef73e804
Perl_pp_entersub() at 0x3927c
Perl_runops() at 0x33690
perl_call_sv() at 0x44c0
perl_call_method() at 0x3ed8
Perl_magic_setpack() at 0x2f7c4
Perl_mg_set() at 0x2df6c
Perl_pp_sassign() at 0x33f28
Perl_runops() at 0x33690
perl_run() at 0x3a84
main() at 0x231c
(dbx) quit
Thanks,
Andrew Keyes
Ursus Technologies, Inc.
andrew.keyes@ursus-tech.com
------------------------------
Date: Wed, 16 Dec 1998 14:29:30 -0500
From: Rick Moroz <Rick.Moroz@bluegill.com>
Subject: Embedded Perl ... what to distribute?
Message-Id: <36780A1A.CC8DB8E2@bluegill.com>
I am thinking about embedding Perl in a C++ application that we ship to
our customers. I have some questions about what I should ship with our
product though. In part, it looks like that depends on the platform.
On NT, the import library perl.lib is linked into C++ programs.
perl.dll is needed at runtime. I have embedded Perl version 5.005_02.
My first question: "If some other version (say 5.003_07) of perl.dll is
picked up, will things still work?". I believe the answer to this is
"no". I think that a different set of functions are exported in various
versionss of perl.dll. I guess one workaround to this is to build a
perl500502.dll and link that in.
The "DLL (shared library)" problem does not arise on AIX, as it looks to
me like Perl is statically linked in. Is this true on all UNIX
platforms?
The other question I have centers around the hundreds of Perl modules
that come along with the 5.005_02 distribution. Should I distribute
those and have my embedded Perl interpreter use the modules I ship? Or,
if a standalone Perl already happens to be installed on the machine, is
it ok to just use the Perl modules that happen to be there? What if
those Perl modules are from some other version of Perl? Will problems
arise if the 5.005_02 interpreter is used with the 5.004_01 set of
modules for example?
--
Rick Moroz BlueGill Technologies
Rick.Moroz@bluegill.com http://www.bluegill.com
------------------------------
Date: 16 Dec 1998 15:27:12 -0500
From: Uri Guttman <uri@ibnets.com>
To: tchrist@mox.perl.com (Tom Christiansen)
Subject: Re: FMTEYEWTK on open
Message-Id: <397lvr6den.fsf@ibnets.com>
great doc, tom. here are some typo/grammar fixes and comments.
uri
>>>>> "TC" == Tom Christiansen <tchrist@mox.perl.com> writes:
TC> @ARGV = glob("*") unless @ARGV;
TC> @ARGV = grep { -f && -T } @ARGV;
you should mention putting those @ARGV lines in BEGIN if you are using a
-p or -n loop (and in some other circumstances).
TC> Why so permissive? Well, it isn't really. These MASK will be modified
^^^^^
The
TC> If the filehandle or descriptor number is preceded not just with a simple
TC> "&" but rather with a "&=" combination, then Perl will not use to create
?????????
TC> a complete new descriptor opened to the same place. Instead, it will
TC> just make something of an alias. This is slightly more parsimonious of
TC> systems resources, although this seldom a concern anymore. Here's an
TC> example of that:
TC> $pager = $ENV{PAGER} || "(less || more)";
TC> open(STDOUT, "| $pager")
TC> || die "can't fork a pager: $!";
the || "(less || more)"; is cute and should be explained a little. it
took me a few seconds to figure it out. if no pager, run a subshell
which will run less and if it fails runs more.
TC> [* Does this section belong in this document? *]
IMO, no. make it a terminal hacking document on its own.
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: 16 Dec 1998 14:49:04 -0500
From: bj <bradw@newbridge.com>
Subject: Re: hashes with arrays as values?
Message-Id: <op1vhjbvpe7.fsf@kannews.newbridge.com>
Jerome O'Neil <jeromeo@atrieva.com> writes:
> Urs Thuermann wrote:
>
> Mixes a lovely fruit salad? A hash of lists is easily done, and the
> details of it, and other complex data structures can be found in the
> perl data structures cookbook, included with your documentation.
>
> perdoc perldsc.
>
> > I did not find an answer to this in the man pages and perlfaq.
>
> One of the things I am in favor of is more intuitive naming of the perl
> documents. It is there if you know where to look.
Or use perlindex (which is not yet in the standard distribution, but
trivial to install... no compiling required), which has better search
capabilities: ie:
devnull[me][54]$ perlindex hashes
1 1.794 lib/5.00502/Tie/Hash.pm
2 1.346 lib/site_perl/5.005/sun4-solaris/Tk/Tcl-perl.pod
3 1.305 lib/5.00502/Tie/SubstrHash.pm
4 1.251 lib/5.00502/pod/perlfaq4.pod
5 1.025 lib/5.00502/fields.pm
6 0.997 lib/5.00502/pod/perldsc.pod
7 0.815 lib/5.00502/pod/perldata.pod
8 0.782 lib/5.00502/pod/perltie.pod
9 0.676 lib/5.00502/pod/perldelta.pod
a 0.659 lib/5.00502/pod/perlguts.pod
b 0.598 lib/5.00502/Tie/RefHash.pm
c 0.552 lib/5.00502/ExtUtils/Install.pm
d 0.532 lib/5.00502/pod/perlsub.pod
e 0.521 lib/5.00502/ExtUtils/Packlist.pm
f 0.513 lib/site_perl/5.005/sun4-solaris/Tk/configspec.pod
devnull[me][55]$ perlindex data structure
1 1.857 lib/5.00502/Data/Dumper.pm
2 1.596 lib/5.00502/SelfLoader.pm
3 1.326 lib/5.00502/pod/perl.pod
4 1.094 lib/5.00502/pod/perlsec.pod
5 0.890 lib/5.00502/User/pwent.pm
6 0.870 lib/site_perl/5.005/sun4-solaris/Tk/Clipboard.pod
7 0.798 lib/5.00502/I18N/Collate.pm
8 0.798 lib/site_perl/5.005/sun4-solaris/Tk/fileevent.pod
9 0.763 lib/5.00502/Time/localtime.pm
a 0.763 lib/5.00502/User/grent.pm
b 0.748 lib/5.00502/pod/perldsc.pod
c 0.736 lib/5.00502/pod/perlfaq4.pod
d 0.668 lib/5.00502/Time/gmtime.pm
e 0.662 bin/pstruct
f 0.662 bin/c2ph
Thus perldsc, perldata, perlguts and perlfaq4 are all good candidates
bj
------------------------------
Date: Wed, 16 Dec 1998 12:05:22 -0800
From: Jerome O'Neil <jeromeo@atrieva.com>
To: bj <bradw@newbridge.com>
Subject: Re: hashes with arrays as values?
Message-Id: <36781282.685FBE81@atrieva.com>
bj wrote:
>
> Jerome O'Neil <jeromeo@atrieva.com> writes:
> > perdoc perldsc.
> >
> > > I did not find an answer to this in the man pages and perlfaq.
> >
> > One of the things I am in favor of is more intuitive naming of the perl
> > documents. It is there if you know where to look.
>
> Or use perlindex (which is not yet in the standard distribution, but
> trivial to install... no compiling required), which has better search
> capabilities: ie:
>
> devnull[me][54]$ perlindex hashes
Very Nifty! Is this going to be part of the standard distribution?
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.atrieva.com
------------------------------
Date: Wed, 16 Dec 1998 14:42:39 -0500
From: Poohba <poohba@io.com>
Subject: How do i run perl scripts on my computer at home?
Message-Id: <Pine.BSF.4.02A.9812161441540.27290-100000@schultz.io.com>
I m trying to run my programs locally on my computer b4 i put them on the
net but they won't run. Why? And how do i fix it?
* Web Page Designs *
< poohba@io.com | www.io.com/~poohba >
* (919)599-5543 *
------------------------------
Date: Wed, 16 Dec 1998 14:53:57 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: How do i run perl scripts on my computer at home?
Message-Id: <comdog-ya02408000R1612981453570001@news.panix.com>
In article <Pine.BSF.4.02A.9812161441540.27290-100000@schultz.io.com>, Poohba <poohba@io.com> posted:
> I m trying to run my programs locally on my computer b4 i put them on the
> net but they won't run. Why? And how do i fix it?
who knows. you haven't even said which platform you are trying to use.
--
brian d foy <brianNOSPAM@NOSPAM.smithrenaud.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
remove NOSPAM or don't. it doesn't matter either way.
------------------------------
Date: Wed, 16 Dec 1998 19:46:37 GMT
From: otis@my-dejanews.com
Subject: how to add path to @INC permanently
Message-Id: <7592mt$76$1@nnrp1.dejanews.com>
Hello,
Is there a way to add a certain directory path to @INC permanently?
After installing perl 5.005_2 over 5.004_4 @INC seems to have changed on my
system and /usr/lib/perl5/site_perl is no longer a part of it (instead
/usr/lib/perl5/site_perl/5.005 is).
How do I add my old /usr/lib/perl5/site_perl to @INC permanently?
perl -V gives this:
@INC:
/usr/lib/perl5/5.00502/i686-linux-thread
/usr/lib/perl5/5.00502
/usr/lib/perl5/site_perl/5.005/i686-linux-thread
/usr/lib/perl5/site_perl/5.005
.
Should I recompile perl? .. and tell it to put site-specific stuff in
/usr/lib/perl5/site_perl ?
Thanks,
Otis
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 16 Dec 1998 19:27:04 GMT
From: kevin@utig2.ig.utexas.edu (Kevin Johnson)
Subject: Re: making html change
Message-Id: <7591i8$o7g$1@geraldo.cc.utexas.edu>
Tad McClellan (tadmc@metronet.com) wrote:
: Kevin Johnson (kevin@utig.ig.utexas.edu) wrote:
: : Hi. I'm missing something simple here I'm sure. I've added quite a bit
: : of code trying various things, but maybe one of you could point out my
: : mistakes.
: : What I have is a directory full of html files. I would like to search
: : for the names of
: : these files in a html document I specify. When I find a match, I would
: : like to change
: : the text to an href pointing to the html file it corresponds to.
: Uhhh.
: I'm missing something simple here I'm sure.
: What problem are you having?
: Got any symptoms?
: Like: I expected A but I'm getting B
: I get these messages...
: It is puttin an extra '.htm' in the href attribute
: It only changes the very first file and ignores the rest
: It dumps core
: It hangs up
Ok. Maybe I didn't give enough information.
I have a directory. Call it /files, that has a bunch of files
that look like 100.htm, 101.htm, ....
I have a htm files that looks has text inside of it that looks like
100 -- This file is the first file
101 -- This file is the second file, etc.
...
I want to actually link the "100" to the files /files/100.htm
I want to make the html change to do that.
How I am trying to do that, is for every line of my htm file that
I search for each of the files names from /files after clipping off
the ".htm" from each name. If the search matches I replace the 100
with an the href.
This is all accomplished by the
s/$files[$i]/$href/g
What appears to be happening though is that there is never a match,
which leads me to think that the $files[$i] is not actually being
expanded correctly inside the / /'s. I couldn't find anything in
the camel book to indicate how or if this is done.
Thanks again for your help.
Kevin Johnson
kevin@utig.ig.utexas.edu
------------------------------
Date: Wed, 16 Dec 1998 15:02:11 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: making html change
Message-Id: <comdog-ya02408000R1612981502110001@news.panix.com>
In article <7591i8$o7g$1@geraldo.cc.utexas.edu>, kevin@utig2.ig.utexas.edu (Kevin Johnson) posted:
> I have a directory. Call it /files, that has a bunch of files
> that look like 100.htm, 101.htm, ....
>
> I have a htm files that looks has text inside of it that looks like
>
> 100 -- This file is the first file
> 101 -- This file is the second file, etc.
> ...
>
> I want to actually link the "100" to the files /files/100.htm
> I want to make the html change to do that.
perhaps you wanted something like:
#!/usr/bin/perl
while( <DATA> )
{
s|^(\d+)|<a href="$1.html">$1</a>|;
print;
}
__DATA__
100 -- This file is the first file
101 -- This file is the second file, etc.
102 -- Rocket Science for Dummies
103 -- Gifts for your Cat
104 -- Pudge is a racist pig-dog
--
brian d foy <brianNOSPAM@NOSPAM.smithrenaud.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
remove NOSPAM or don't. it doesn't matter either way.
------------------------------
Date: Wed, 16 Dec 1998 12:00:50 -0500
From: Aravind Subramanian <aravind@genome.wi.mit.edu>
Subject: Monitoring a Directory
Message-Id: <3677E742.98E9336A@genome.wi.mit.edu>
I need to constantly monitor a directory (similar to an inbox) for files
and when a file comes in execute some script based on the file type. As
there might be a need to have several such monitors running
independently, the monitoring program (not the program that actually
consumes a file) should be as lightweight as possible. The scheme I can
up with was to use Proc::Daemon and File::Find to check a directory for
files every 60 seconds, and depending on the file type(a fast check)
give a "system" call for a secondary script (that locks the file and
then processes it).
Any comments on the viability of this method? Whats a good way to lock
files? All suggestions will be appreciated.
Thanks,
aravind
------------------------------
Date: Wed, 16 Dec 1998 20:40:59 +0100
From: Georg Moritz <gm@mgm-net.de>
Subject: Re: need Sun Solaris 2.6 sun4u gcc binaries
Message-Id: <36780CCB.41C67EA6@mgm-net.de>
Hello,
you'll find solaris2 packages in the sun pkg format at
http://SunSITE.Informatik.RWTH-Aachen.DE/solarispkg/
for both sparc and x86 architecture.
You may want to rebuild gcc with this compiler, to have it
using any ultra-sparc features supported.
hth,
--gm
-----------------+--------------------------
Georg Moritz |
gm@mgm-net.de | ^[. Always off the crowd.
mgm GmbH |
-----------------+--------------------------
------------------------------
Date: Wed, 16 Dec 1998 14:55:18 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Perl - mySql and MSQL Help
Message-Id: <comdog-ya02408000R1612981455180001@news.panix.com>
In article <3677e4ae.0@209.4.101.246>, "Kim Long" <kiml@worldnetla.net> posted:
> I need to create a script that will
> a) be spawned from an entry to a MSQL database and create an entry into
> a mySQL database on a different server
> -or-
> b) query the MSQL databases for changes and reflect those changes in the
> mySQL db on diff. server.
>
> Any ideas where to begin.
see the DBI modules. the mysql and msql documentation also have
information about using Perl.
--
brian d foy <brianNOSPAM@NOSPAM.smithrenaud.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
remove NOSPAM or don't. it doesn't matter either way.
------------------------------
Date: 16 Dec 1998 11:45:14 PST
From: Guillaume Dupuis <guillaume@sandtechnology.com>
Subject: Re: Perl in a RF print
Message-Id: <36780EBE.4B1EB25D@sandtechnology.com>
You need to put a backslash "\" in front of the special character(" and
;)
I.E.
(The stars on the comment line indicate where you have the "new"
non-metacharacter delemiter)
comment * * *
print RF "system \"useradd -c \"$name\" -m -k /etc/skel -g
comment * *
7001 -s /usr/sbin/noshell -d /export/home/$login $login\"\;\n";
Programming PERL: 2nd edition from O'Reilly page 59, top paragraph.
(At page 59, the "\" applies for pattern matching, but you can use it
also in your "print" command... it works for me)
This is the result after I tried the above modified command:
system "useradd -c "tata" -m -k /etc/skel -g 7001 -s /usr/sbin/noshell
-d /export/home/ ";
^^^^^ -> here tata is the value I gave $name, if you
want to have '$name'
literally written here, you will have to
put a "\" in front of
the dollar sign "$".
Hope it helps,
jamie dolan wrote:
> print RF "system "useradd -c \"$name\" -m -k /etc/skel -g 7001 -s
> /usr/sbin/noshell -d /export/home/$login $login";\n";
>
> The big problem is that perl does not want to print the " " or the ; it
> wants to interpert these. All I want it to do is print them to the file
> using RF.
--
Guillaume Dupuis,
Nucleus QA
mailto:guillaume@sandtechnology.com
http://www.sandtechnology.com
------------------------------
Date: Wed, 16 Dec 1998 15:08:34 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Perl in a RF print
Message-Id: <comdog-ya02408000R1612981508340001@news.panix.com>
In article <36780EBE.4B1EB25D@sandtechnology.com>, Guillaume Dupuis <guillaume@sandtechnology.com> posted:
> You need to put a backslash "\" in front of the special character(" and
> ;)
>
> I.E.
> (The stars on the comment line indicate where you have the "new"
> non-metacharacter delemiter)
> comment * * *
> print RF "system \"useradd -c \"$name\" -m -k /etc/skel -g
> comment * *
> 7001 -s /usr/sbin/noshell -d /export/home/$login $login\"\;\n";
you can also use generalized quoting to make it easier to read:
print qq|system "useradd -c "$name" -m ... |;
;)
--
brian d foy <brianNOSPAM@NOSPAM.smithrenaud.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
remove NOSPAM or don't. it doesn't matter either way.
------------------------------
Date: 16 Dec 1998 14:38:49 -0500
From: Uri Guttman <uri@ibnets.com>
Subject: Re: Perl's in the dictionary
Message-Id: <3990g76fna.fsf@ibnets.com>
>>>>> "SCR" == Stewart C Russell <stewart@ref.collins.co.uk> writes:
SCR> I'd just like to say that fourth edition of the Collins English
SCR> Dictionary (ISBN 0-00-470453-3) has an entry for Perl. A
SCR> competitor's title (which claims to include every word in
SCR> standard current English) doesn't.
what is the entry? can you post it here? or is that copyrighted (even
for quoting only one entry)?
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Wed, 16 Dec 1998 20:19:32 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Perl's in the dictionary
Message-Id: <367c159b.1337478@news.skynet.be>
Uri Guttman wrote:
>what is the entry? can you post it here? or is that copyrighted (even
>for quoting only one entry)?
Hmmm... "You may not use any word that is in this dictionary". We
wouldn't have much to say, then.
Bart.
------------------------------
Date: 16 Dec 1998 18:56:44 +0000
From: Etienne Grossmann <etienne@anonimo.isr.ist.utl.pt>
Subject: pre-ANNOUNCE : Script for fixing postscript files.
Message-Id: <87n24nvrtf.fsf@anonimo.isr.ist.utl.pt>
Hello,
I had a problem today with binary data in poscscript files. I ftp'd
files from a ms pc, and all two-character newlines were changed into
one-character newlines. This changed the number of characters of the
file. Some programs (ghostview, gv, gs) managed to read the files
normally, but dvips did not : it expects some paragraphs to have a
given length (in characters), which is specified at the beginning of
the paragraph; upon finding that the paragraph has another length,
dvips croaks.
Changing only the written length fixes the proglem, so I wrote a
script that does just that : read a postscript file, check wether all
such paragraphs have the right length, and eventually print a command
line that patches the original postscript file. Piping the script to
sh applies the patch.
I don't know how many people may interested be interested by this
script (after all, re-doing the ftp, and keeping the dos-newlines
should do too; but that's not allways feasible), but here it is anyway.
I'll probably submit it to CPAN, in a yet-to-create script
category.
I'd like some suggestions about what to name the category, and about
the script are welcome. If you think it's yet another useless script,
say so too, I'm just posting here because the code is already written.
Cheers,
Etienne
ps : I've called it ``psfixbin'', but any name should do.
======================================================================
#!/usr/bin/perl -swn
if( defined $h ){ # Print help message
chomp($h = q{
=head1 USAGE
psfixbin [ -r -h ] file1.ps ... [ | sh ]
If fileN.ps has wrong binary size info within it, 'ckbinps' will
produce a shell command that corrects these errors.
If passed a -r option, produces a report in english, rather than a
shell command.
Shows this message, and does nothing else if passed the -h option.
=head1 DESCRIPTION
Some programs (e.g. dvips) have problems when the declared and
actual length of (ascii encoded) binary data in postscript files
do not match. This may occur, for example, when 2-character (dos)
newlines are converted to 1-chararcter (Unix) newlines.
``psfixbin'' recomputes the size of binary data paragraphs it
finds in the input, and reports any discrepancy.
By default, it will produce ``sh'' command lines for each file
with problems. When executed by sh, the command line modifies the
declared binary data size so that it matches the actual size.
=head1 DISCLAIMER
This program is distributed WITHOUT ANY WARRANTY of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
=head1 AUTHOR
etienne@isr.ist.utl.pt
=cut
}) ;
$h =~ s/^=\S*//mg ;
$h =~ s/^\n+/\n/ ;
$h =~ s/[\s\n]+$/\n\n/ ;
print $h ;
$r = 1 ; # Make -w happy
exit ;
}
BEGIN { $want = $found = 0 }
$found += length if($want) ;
if ( !$want && /^%%BeginBinary:\s*(\d+)/ ) {
$want = $1 ;
$where = $. ;
} elsif ( $want && /^%%EndBinary/ ){
$found -= length ;
if( $found != $want ){
if( defined $r ){
print STDERR
"Found $found bytes in $ARGV:$where, while expecting $want\n" ;
} else {
$correction .= "s/$want/$found/ if \$.==$where; " ;
}
}
}
if( eof(ARGV) ){ # Not eof()! (thanks for the tip in man perlfunc)!
if($correction) {
print "perl -wpi.bak -e '$correction' $ARGV\n" ;
}
close ARGV ;
$correction = '' ;
$. = $want = $where = $found = 0 ;
}
------------------------------
Date: Wed, 16 Dec 1998 20:15:50 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: previous page, perl vs asp
Message-Id: <367a13ae.844581@news.skynet.be>
Dan Albertsson wrote:
>When you click on the link to put an item in your shopping cart a
>cgi-script is called to update the listbox (the shopping cart in the other
>frame). Normally (as in my test application) that results in that every
>time you click on the Back button the frame with the listbox (shopping
>cart) is shown as it was before. Not good as it empties the shopping cart
>every time.
Well... It *does* behave the way I would expect a "back" button to
behave... ;-)
If you don't want to use cookies (some users disable them), you can use
a "session ID", and maintain the actual list on your site. This ID may
be part of your URL, following the script's bare UR (check
$ENV{PATH_INFO}).
Throw away session ID's if unused for over a few hours.
And this is getting way to off-topic for clp.misc.... ;-)
Bart.
------------------------------
Date: Wed, 16 Dec 1998 12:02:32 -0500
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: Problem with script "... cgi-bin\signup.pl' script produced no output "
Message-Id: <3677E7A7.1240A721@cthulhu.demon.nl>
CareerMngr wrote:
> Problem with script "... cgi-bin\signup.pl' script produced no output "
> - Replaced all instances of #!/usr/bin/perl with [print "HTTP/1.0 200 OK\n";]
> - Removed all instance of [print "Content-type: text/html\n\n";]
Look like you don't generate a valid html header. What do you see when you add back
the 'Content-type' line and/or leave out the '200 OK' line ?
Erik
------------------------------
Date: Wed, 16 Dec 1998 19:59:05 +0100
From: Jesper Rautell Balle <jesper@rautell.dk>
Subject: Problems when requesting documents from Apacheservers
Message-Id: <367802F9.5483A5A3@rautell.dk>
Hi..
I picked up the following snip of code. I wan't to fetch certain
html-document from other servers.
When I request on MS-IIS there are no problems. But when I request a
document from an Apache-server, I get a message that "the requested
document could not be found." Has anyone got an idea, what could be
wrong?
Thank you in advance
-Jesper Rautell
sub TCP { join("", getprotobyname('tcp')); }
sub SOCK_STREAM { 1; }
sub AF_INET { 2; }
sub PF_INET { &AF_INET; }
sub getpage {
$server = @_[0];
$port = 80;
$document = @_[1];
@Headers = ("User-Agent", "http-get/1.0");
$usage = "usage: $0 {-server S} {-port P} {-document D} {-<Header>
<Value>}";
# defaults get root document of local server with minimal id
# generic header arguments to be given by name eg. -Accept audio/basic
if ($server =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
@addrs = pack('C4', split(/\./,$server));
} else {
($dummy,$dummy,$dummy,$dummy, @addrs) = gethostbyname($server);
}
$remote = pack("S n a4 x8", &AF_INET, $port, $addrs[0]);
socket(S, &PF_INET, &SOCK_STREAM, &TCP) || return ""; # die "socket:
$!";
connect(S, $remote) || return ""; # die "connect: $!";
select(S); $| = 1;
select(STDOUT); $| = 1;
$request = "GET $document HTTP/1.0\r\n";
while ($#Headers > 0) {
$request = $request . "$Headers[0]: $Headers[1]\r\n";
shift(@Headers); shift(@Headers);
}
$request = $request . "\r\n";
print(S $request);
$big = 1024*1024;
$ret="";
$data="";
while ($len = sysread(S, $data, $big)) {
$ret=$ret.$data;
}
close(S);
#print $ret . "<br><br>";
return $ret;
}
open(LOG, '>>log.txt');
$s=getpage("www.rautell.dk","/index.htm");
#print $s;
print LOG $s;
------------------------------
Date: 16 Dec 1998 20:51:23 GMT
From: gward@thrak.cnri.reston.va.us (Greg Ward)
Subject: Re: Problems with 'unpack' .. (This has to be in the FAQ somewhere?)
Message-Id: <7596gb$af2$1@news0-alterdial.uu.net>
Greg Wickham <gjw@deakin.edu.au> wrote:
> I'm unpacking an IP header, and am having troubles with 'unpack'.
>
> For those that don't know, the first 32 bits of an IP header
> are: 4 bits. 4bits. 8bits. 16bits.
You might want to know that the Net::RawIP module was *just* released.
It looks pretty rough (version 0.01, documentation a bit spotty), and it
relies on a C library (something called pcap). But, depending on your
application, it might be worth abstracting the job to a module. See
http://cpan.perl.com/?action=get_dist_by_module&item=Net%3A%3ARawIP
> I would have thought that:
>
> my ( $version, $ihl, $tos, $len ) = unpack( 'H1 H1 H2 H4', $data );
>
> would do the trick, but it doesn't.
>
> What happens is after the first 'H1', it 8bit aligns the next match.
> This means that I loose 4 bits (between the first H1 and the H2).
I futzed around with this too, and just got more confused the more I
futzed. I would have thought that 'B', for unpacking bitstrings, would
do what you want -- but it also seems to align on 8-bit boundaries when
you ask for 4-bit chunks. Hmmph!
However, see the documentation for 'vec' -- it's another one of Perl's
obscure corners for dealing with binary data, and the man page has the
following tidbit:
To transform a bit vector into a string or array of 0's and 1's, use these:
$bits = unpack("b*", $vector);
@bits = split(//, unpack("b*", $vector));
If you know the exact length in bits, it can be used in place of the C<*>.
This might help you.
Another little known fact: Perl strings will be treated as bitmaps if
you use the bitwise (&, |, ^, ~) operators on them. Can be very useful.
Sorry I couldn't be of more help...
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: 16 Dec 1998 19:41:27 GMT
From: dbwhite@btv.ibm.com (David B. White)
Subject: Re: send e-mail by port 25 in Perl !!! HELPME !!!!!
Message-Id: <7592d7$j6i$1@news.btv.ibm.com>
In article <74viaf$2tc$1@nnrp1.dejanews.com>,
BondMac@hotmail.com writes:
> !!! Iam have perl 5.001m !! please helpme ... Urls ????????
Maybe http://www.cpan.org/CPAN.html , Sendmail-0.74.tar.gz
would be a useful starting point...
--
David B. White
IBM Microelectronics, Circuit Verification & Design Tools
Internal: dbwhite@btv Internet: dbwhite@vnet.ibm.com
Phone: 802-769-5671 (TieLine: 446) Fax: 802-769-5722
------------------------------
Date: Wed, 16 Dec 1998 20:07:57 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: send e-mail by port 25 in Perl !!! HELPME !!!!!
Message-Id: <367912f2.656903@news.skynet.be>
David B. White wrote:
>In article <74viaf$2tc$1@nnrp1.dejanews.com>,
> BondMac@hotmail.com writes:
>> !!! Iam have perl 5.001m !! please helpme ... Urls ????????
>
>Maybe http://www.cpan.org/CPAN.html , Sendmail-0.74.tar.gz
>would be a useful starting point...
I would rather suggest <http://www.cpan.org/ports/>... ;-)
Bart.
------------------------------
Date: 16 Dec 1998 00:00:00 +0000
From: j.poehlmann@link-n.cl.sub.de (Johannes Poehlmann)
Subject: STANDARD PERL for WIN 95/NT EXECUTABLE
Message-Id: <76xAypcoUkB@link-n-j.poehlmann.link-n.cl.sub.de>
(Monthly posting to comp.lang.perl.misc and de.lang.perl)
_Where to find the *STANDARD* windows 95/NT port of perl (binary) ?_
(The "standard" has a number of advantages over Microsoft's "Activeware"
port. E.g. you can install perl modules not contained in the binary
distribution. As long as these Modules do not use C-code you do not need a C-
compiler )
Worldwide (Redirecting you to a "near" site )
ftp://ftp.perl.com/pub/CPAN/ports/win32/Standard/x86/
Look for a File like
perl5.00402-bindist04-bc.zip
there is a new Version (perl 5.005 ) released
Walnut Creek CD-ROM:
They left the directory /ports/win32/Standard/x86/ empty. (But not the
directory /ports/win32/Activeware ... )
They forgot to make up a link to the other places, where
you could find the file:
You find the Files in alternative subdirectories: /authors/
Gurusamy_Sarathy/
perl5.00402-bindist04-bc.zip
or
/modules/by-module/GSAR/
perl5.00402-bindist04-bc.zip
#------------------------------------
# find here Gurusamy Sarathy's readme file
#------------------------------------
Welcome to the binary distribution of Perl for the Win32 platform.
This distribution has been compiled using the Borland C++ compiler
(version 5.02). It is built around the latest production release of
Perl, version 5.004_02, which comes with Win32 support.
Please note that this distribution is not to be confused with
the pre-5.004 Perl port by the Activeware folks, or the binaries
they distribute (which are mostly referred to by "build" numbers).
This bundle contains almost everything you will need for using Perl
on Win32 platforms. It also contains everything needed to build,
test and install additional perl modules from CPAN that you may not
find in here, provided they use the standard MakeMaker extension
build tools. Since MakeMaker needs a `make' utility, a Win32 binary
of Dennis Vadura's `dmake' tool is supplied (see below for more on
`dmake'). For using this distribution to build extensions that need
a C compiler, you will also need either Borland C++ 5.02, or Visual
C++ (version 2.0 and later).
WHY WOULD YOU WANT THIS?
------------------------
+ You want to use perl on WindowsNT or Windows95, but you have
no C compiler (or at least not one that will build perl).
+ You seem to have the compiler stuff, but not the patience or
knowledge to deal with compiling perl and the various extensions.
And you are happy to continue using the binary distributions that
you know people are going to keep putting out once every half
moon. [May not be exactly every half moon, but you'll keep the
faith. Remember to give away that compiler you don't use :)]
+ You have one of the supported compilers that will build Perl,
but you want to jump-start your XSsively hardcore perl module
development by taking this shortcut. [But see the notes below
on `USING IT WITH YOUR C COMPILER' for some caveats about doing
this.]
+ You want a perl that is capable of doing sockets on Windows95,
and you just have Visual C++. [The Visual C++ libraries known to
date have a problem with sockets on Windows95, which might cause
you trouble. The Borland libraries, which this distribution was
built with, do not have the problem.]
INSTALLATION
------------
To install:
* Extract the archive so that the directory structure of the
files is preserved.
* `cd' to the top level directory.
* Type `install' (if in the command shell) or click on
`install.bat' (from the Explorer). If that refuses to run for
some reason, you can instead type `perl\bin\perl install.bat'
in the command shell. The setup process will ask a few
questions and will offer to generate HTML documentation from
the various files in the distribution. A full installation
requires about 20 megabytes of free space.
* Add the installed location of PERL.EXE to your `PATH'.
For instance, if you asked for things to be installed under
`e:\perl', add `e:\perl\bin' to your PATH.
* You will need to edit the contents of %NetConfig in
`lib\site\Net\Config.pm' to set the names of the servers
used by the libnet package.
PLATFORMS
---------
This binary distribution has been extensively tested only on WindowsNT.
Based on reports from others, I believe it also works on Windows95,
but I personally did not test it on that platform. Note the supplied
binaries are for the x86 architecture.
WHAT IT CONTAINS
----------------
It includes the following packages:
perl5.004_02
dmake-4.1
Alias-2.3
Bit-Vector-4.2
Curses-1.01 [*]
Data-Dumper-2.07
DateCalc-3.2
DateManip-5.10
DBD-ODBC-0.16
DBI-0.89
Devel-Peek-0.83
Devel-Symdump-2.00
DProf-19970614 [*]
GD-1.14 [*]
libnet-1.0505 [*]
libwin32-0.08
libwww-perl-5.11
MD5-1.7
MIME-Base64-2.03
MLDBM-1.23
Storable-0.5 [*]
String-Approx-2.1
Tk402.002
NOTES:
[*] These packages needed porting or other fixes to compile and
run properly. All changes are included in the form of patches
(the kind that can be applied using the GNU patch utility) in
the `patches' subdirectory. The full sources of all of
these packages (with the exception of dmake, see below for that)
can be found on the Comprehensive Perl Archive Network (CPAN).
Point your web browser at "http://www.perl.com/CPAN" to find the
CPAN site nearest you.
The package subdirectories under `distfiles' also contain other
documentation and testsuites that came with the package. These are
not installed, so you may want to save them for later reference.
Please note that the patches are for information purposes only.
You don't have to apply them (or even know what a patch is) to use
this distribution.
In case you find yourself needing to build things from source, there
is a win32 port of GNU patch-2.1 at:
http://www-personal.umich.edu/~gsar/patch2_1-win32.tar.gz
that can be used to apply the included patches.
The modules in the distribution doubtless reflect my own personal
pattern of use. In some cases, I made a conscious decision not to
include modules that don't contain C or XS source, since it should be
possible to obtain, build and install such modules from CPAN without
too much trouble (or a C compiler), using perl and `dmake'.
Nevertheless, I shall add specific modules to the distribution if
there is demand.
DEMOS
-----
After you install the distribution and add its location to your PATH,
you can run the `widget' demo to check if your installed perl is
working properly. To make sure your new PATH setting takes effect,
you may have to reboot. Afterward, just type `widget' in the command
shell, or double-click on `widget.bat' from the Explorer.
DOCUMENTATION
-------------
If you choose, the installation process converts all the Plain Old
Documentation it can find into HTML pages. There are normally stored
in the `html' subdirectory under the install location. You can start
browsing the main perl documentation at `html/lib/pod/perl.html'.
If you choose not to install HTML, you can still browse almost
all of the perl documentation from the command line using `perldoc'.
Type `perldoc perldoc' to get started.
The `distfiles' area of the distribution also contains much HTML
documentation that is not handled by the install process. You
may want to selectively copy parts of it to wherever you normally
install your web documents.
USING IT WITH YOUR C COMPILER
-----------------------------
If you don't have a supported C compiler, this section doesn't
apply to you. If you have one, and intend using it to build
other modules that require a C compiler, then read on.
This distribution was compiled with Borland C++ 5.02, using `dmake'.
If you too have that compiler (or a later version), there are
no caveats about using this distribution for further builds of
extensions. (I have heard earlier versions of Borland C++ have
a buggy linker that doesn't like the module definition files that
perl generates, so your mileage may vary if you're using
versions earlier than 5.02.)
If you don't have the Borland compiler, it is also possible to build
and use extension binaries compiled with Visual C++. The converse--
using a perl binary built under Visual C++ with extension binaries
built under Borland C++--does not work due to a bug in the Visual
C++ linker (present as of version 5.0). In other words, if you have
the Visual C++ compiler *and* you plan to use some pre-built
extensions in this distribution *and* compile some of your own using
the Visual C++ compiler, you will need the perl binaries that came
with this distribution. So don't overwrite the perl binary with
one that you may have built yourself using the Visual C++ compiler.
The setup procedure will do the necessary things to make sure the
installed version of the `lib\Config.pm' file will work with your
compiler for future extension builds.
TERMS OF USE
------------
Perl can be freely distributed under the `Artistic License' or the
`GNU General Public Licence', described in the two files `Artistic'
and `Copying' respectively. Most of the modules have statements to
the effect that they can be distributed under the same terms as Perl,
but you should download and check the individual module's sources to
be sure.
The included dmake tool is compiled from the latest public release of
dmake-4.1 available from `ftp://plg.uwaterloo.ca/pub/dmake/'. The
binary is completely unsupported. Full (commercial) support for dmake
may be obtained from its author. See `http://dmake.wticorp.com/' for
the latest. Note that public version of dmake-4.1 can only be
distributed under the GNU General Public Licence.
The remaining parts of this binary distribution itself can be
distributed under the same terms as Perl. Beware that it is provided
"as is", and comes with absolutely no warranty of any kind, either
express or implied. If you use the contents of this distribution, you
do so at your own risk, and you agree to free the author(s) of any
consequences arising from such use, either intended or otherwise.
BEING NICE TO NICE BEINGS
-------------------------
Perl is the creation of Larry Wall. Continuing refinement of Perl
is made possible by the unceasing efforts of many fine folk who have
banded together with Larry in endless perlesque banter, collectively
calling themselves "The Perl Porters". If you find perl useful
in getting your job done, you may want to drop them a note of
appreciation at <perl-thanks@perl.org>. Be sure to recount
any war stories about how Perl helped you win your battles :)
Another fine way to encourage development of perl is to become a
member of The Perl Institute, a non-profit organization which helps
"people help Perl help people" (or something like that). See
http://www.perl.org/ for details.
If you plan to put this on a CDROM or other similar media, I request
that you send me a brief message. Note that some modules explicitly
require that you obtain permission from the module author to do that
sort of thing, so you should. Altered versions of this distribution
must be clearly marked as such.
Enjoy!
Gurusamy Sarathy (Just Another Perl Porter)
gsar@umich.edu
08-AUG-1997
------------------------------
Date: Wed, 16 Dec 1998 15:04:53 -0500
From: "E. Preble" <preble@ipass.net>
Subject: Re: Template to email with file attachment features
Message-Id: <HoUd2.1036$kx1.1623@news.ipass.net>
There is a PERL script at my site that uses formmail and
MIME::TOOLS to forward emails with attachments.
See
http://www.datatrendsoftware.com/automail_lite.html
Edward Preble
Datatrend Software
http://www.datatrendsoftware.com
mailto:info@datatrendsoftware.com
Grab It! software for Excel 97
Digitizes data from charts and graphs
-----------------------------------------------------------------
melita@my-dejanews.com wrote in message
<758q66$oi2$1@nnrp1.dejanews.com>...
Hi
If you have a template for a web-based email program with file
attachment
features please send it for me.
Thanks in advance
Regards
Melita
-----------== Posted via Deja News, The Discussion Network
==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start
Your Own
------------------------------
Date: Wed, 16 Dec 1998 15:10:16 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: URL database
Message-Id: <comdog-ya02408000R1612981510160001@news.panix.com>
In article <913833131.26896.0.nnrp-08.d4e48203@news.demon.co.uk>, "James" <Replies@stogursey.demon.co.uk> posted:
> I want to create a URL database that will form a html page as well as being
> searchable, does any one know of a script that will do this, please reply to
> CGI@Stogursey.demon.co.uk
do you want to create one or find one? i certainly know where you
can find one ;)
--
brian d foy <brianNOSPAM@NOSPAM.smithrenaud.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
remove NOSPAM or don't. it doesn't matter either way.
------------------------------
Date: Wed, 16 Dec 1998 12:13:52 -0500
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: Why doesn't this work?
Message-Id: <3677EA4F.E579C8CE@cthulhu.demon.nl>
Henry Lifton wrote:
>
> I am a newbie who has been going crazy with this. Can any one tell me what is
> wrong?
>
> open(land,'/data/land.txt') || die "can't open file land";
>
> $key=$ENV{'PATH_INFO'};
> $key =~ s|/||;
> $info=$land{$key};
> In trying to debug it, I print the $key and $info variables. $key comes up
> properly but $info is blank.
Did you run the script with the -w flag? Is $land{$key} perhaps unitialized?
You open a filehandle 'land' (better use uppercase though), and try to read
from hash 'land'. Where is the part of your script that reads/parses
the contents of the /data/land.txt file and stores it into %land?
Erik
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 V8 Issue 4441
**************************************
