[10917] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 4518 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Dec 30 12:17:14 1998

Date: Wed, 30 Dec 98 09:00:20 -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, 30 Dec 1998     Volume: 8 Number: 4518

Today's topics:
        Apache/mod_perl request handlers and cookies (Jamie O'Shaughnessy)
    Re: attach html file to email <preble@ipass.net>
    Re: Boolean search facility <nospam_gwynne@utkux.utk.edu>
        Can Perl read/load Windows clipboard? <daven@nettenna.com>
    Re: CGI.pm abnormal end <jeromeo@atrieva.com>
    Re: EXPERIENCED IN PERL ? <newsposter@cthulhu.demon.nl>
    Re: external files dave@mag-sol.com
        Help needed: PerlShop and NT 4, SP 4, IIS 4, Perl 5.005 (James Michael Stewart)
    Re: How can I identify MS Office files? dave@mag-sol.com
        how to access a struct created by a windows DLL? anthonyclark@my-dejanews.com
    Re: how to debug perl programs? <jeromeo@atrieva.com>
        Is there a way to read incoming mail on a win32 box?? qvanegeren@frxsoft.com
        Modules and Mysql lefkogt.xp@usafa.af.mil
    Re: Newbie: string terminator <ebohlman@netcom.com>
    Re: Newbie: string terminator <debot@xs4all.nl>
    Re: Perl 5.005_002 and berkeley db problems bostic@bostic.com
    Re: Protecting my script from form data (Groovy94)
        Reading volatile directories (Mark Peirce)
    Re: Retrospective on comp.lang.perl.moderated? (Tad McClellan)
    Re: Sig Trap Help Needed !! johnvv@hotmail.com
    Re: Solution (?) to NT-Perl problem <jwarner@tivoli.com>
    Re: suppress newlines (Tad McClellan)
        tutorial websites uunews@hotmail.com
        Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Wed, 30 Dec 1998 16:36:18 GMT
From: joshaugh@uk.oracle.com (Jamie O'Shaughnessy)
Subject: Apache/mod_perl request handlers and cookies
Message-Id: <368a545a.717210253@newshost.us.oracle.com>


How do you set cookies from a mod_perl request handler, e.g.

Given in httpd.conf:

<Location /virtual>
  SetHandler perl-script
  PerlHandler MyModule
  Options ExecCGI
  PerlSendHeader Off
</Location>

And MyModule.pm :

package MyModule;
use CGI qw(:standard);
use Apache::Constants qw(OK);

sub handler {
	my $r = shift;
	$r->content_type('text/html');
	# I want to set a cookie????
	$r->send_http_header;

	$r->print(start_html, 
             b('Hello World'),
             end_html);

	return OK;
}

With a standard CGI script you'd just do something like:

use CGI qw(:standard);

my $c = cookie(-name => 'test',
               -value => 1,
               -path => '/',
               -expires => '+1y');

print header(-cookie => [$c]),
      start_html,
      b('Hello World'),
      end_html;

(the above code may not work as I've just made it up as I went along, but
you get my drift...)

Thanks,
Jamie



------------------------------

Date: Wed, 30 Dec 1998 10:08:19 -0500
From: "E. Preble" <preble@ipass.net>
Subject: Re: attach html file to email
Message-Id: <Yrri2.107$24.460@news.ipass.net>

We have available a formmail type script that can send email
attachments for any type of file.  It's called Automail Lite and
can be found at the URL below.  The script is free and written in
PERL.

http://www.datatrendsoftware.com/cgi.html

E. Preble

--
Datatrend Software
http://www.datatrendsoftware.com
mailto:info@datatrendsoftware.com

Grab It! software for Excel 97
Digitizes data from charts and graphs
-----------------------------------------------------------------
Clay Irving wrote in message <75vq31$i05@panix.com>...
In <3682ED99.D6C198CA@dowebpages.com> Bill Binkley
<bwb@dowebpages.com> writes:

>Need to attach an html file to a email that I am sending with a
perl
>script!

>Any information or where to look would be appreciated very much,

This question is asked every few days in this newsgroup. Try:


http://www.dejanews.com/dnquery.xp?QRY=attach&DBS=2&ST=PS&defaultO
p=AND&LNG=ALL&format=terse&showsort=score&maxhits=25&subjects=&gro
ups=comp.lang.perl.misc&authors=&fromdate=&todate=

--
Clay Irving
clay@panix.com



------------------------------

Date: Sun, 27 Dec 1998 22:25:27 -0500
From: "Robert Gwynne" <nospam_gwynne@utkux.utk.edu>
Subject: Re: Boolean search facility
Message-Id: <766tvn$87b$1@gaia.ns.utk.edu>

Eric Bohlman a module to do what you want available at
http://members.xoom.com/omsdev/ebohlman/perlmodules/

If you want to write your own code to do a boolean search, the answer to
your problem resides at Perl Cookbook, recipe 6.17, pp. 197 ff.

Bob
********************

Robert Gwynne, Ph.D.

Speech Communication

University of Tennessee, Knoxville

gwynne@utkux.utk.edu

http://web.utk.edu/~gwynne

423-523-1097 Home

423-974-6836 Office

423-974-4879 Fax

***********************************

Liberalism has always derived its authority and persuasiveness from a vision
of human nobility, from the idea that our dignity is derived from the
exercise of moral choice. Moral absolutism fears this act of choice and
fears the freedom required by the act of choosing.

Liberalism depends, ultimately, on faith in human choosing, and a liberal
revival depends on recovering the inspiration of this central conviction.

Michael Ignatieff




Steven Barbash <stevenba@ccpl.carr.org> wrote in message
news:MPG.10eefcdfaa7e8337989688@www.siast.sk.ca...
>Hello all,
>
>Please pardon me if this is a FAQ which I've missed.
>In the name of "Not reinventing the wheel":
>
>Is there a package or module or extension or software or link to software
>or ...
>which does a boolean search?
>more specifically,
>not limited to AND and OR and NOT,
>but doing NEAR?
>
>(I observe several web search engines doing this.  But I haven't a clue
>if such software is obtainable.)
>
>I plan to use it just to search documents on my own machine.
>
>Thanks.
>Steve




------------------------------

Date: Wed, 30 Dec 1998 08:17:10 -0800
From: "Dave Ressler" <daven@nettenna.com>
Subject: Can Perl read/load Windows clipboard?
Message-Id: <368a5228.0@news2.uswest.net>

I'd like to read the clipboard contents and/or load it with text. Is this
possible in a Perl script> How?

Thanks,
Dave




------------------------------

Date: Wed, 30 Dec 1998 08:03:54 -0800
From: Jerome O'Neil <jeromeo@atrieva.com>
Subject: Re: CGI.pm abnormal end
Message-Id: <368A4EEA.8D8BEAFA@atrieva.com>

Paul Farber wrote:

> The values are written to the disk, and the file is closed, but the server
> always send me to an error page about the script ending abnormally.  The
> script seems to close the files/end properly.... and perl -c ran clean, I
> have use strict and use diagnostics... the thing runs clean but end
> normally...
> 
> It this a script or form problem??

You have a syntax error on line 17.

-- 
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: Tue, 29 Dec 1998 17:04:38 -0500
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: EXPERIENCED IN PERL ?
Message-Id: <368951F2.8CCD1A6D@cthulhu.demon.nl>

Erik wrote:
> 
> In article <368931C2.20681CEE@usa.net>,
>         GSX <gsx97@usa.net> writes:
> > I'm presently writing a Perl Coffee Maker. I've got the code to brew a
> > great cup of Hazelnut...but I'm having a problem with the code for
> > decaf.
> >
> > Will this make me ineligible for the job?
> 
> No, but you better get that code for the cappucino extension working
> properly...these people are obviously high class.

Original ad said:

> Very experienced in Perl and Linux Red Hat. Must be able to create
> anything we need in Perl, and must be able to adapt to a tremendous
> amount of currently existing code. Sys. Admin skills a big plus.

I am looking for work, but I don't think I'm interested in adapting
to a tremendous amount of existing code. (Is it possible to  adapt
to non-existing code?) Anyway, anyone with the Espresso module
installed is welcome to invite me for an interview. I'll bring
the cookies!

Erik
-- 
Sure, doesn't everyone sign up for internet service so as to have
their mailbox stuffed with megabytes of postage-due rubbish every day?
Absolutely.  And everyone who owns a car intends that it be used as a
portable dumpster.  Any unwanted garbage in their vehicle they can
simply throw away, after all.



------------------------------

Date: Wed, 30 Dec 1998 15:23:52 GMT
From: dave@mag-sol.com
Subject: Re: external files
Message-Id: <76dgi6$qmf$1@nnrp1.dejanews.com>

In article <3689EBDC.2DD70975@videotron.ca>,
  Benoit Lefebvre <mox@videotron.ca> wrote:
> Hi, it is possible to load variables from an other file ?
>
> I am making a kind of irc bot, using perl, and I want to do an external
> configuration file, so, i'll be able to change the settings of the bot
> without restarting it every time.

Sometning like this perhaps...

==name.pl==
$name='Dave';
===========

==test.pl==
#!/usr/local/bin/perl

do 'name.pl'

print "Hello $name\n";
===========

$ ./test.pl
Hello Dave


hth,

Dave...

--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Wed, 30 Dec 1998 16:15:35 GMT
From: mcintyre@io.com (James Michael Stewart)
Subject: Help needed: PerlShop and NT 4, SP 4, IIS 4, Perl 5.005_02 build 508
Message-Id: <368a4ff4.167973102@news.io.com>

I have moved a e-commerce Web site to a new server. Now, all other
scripts work perfectly but the PerlShop online catalog/ordering script
does not. I'm not a Perl programmer, but am able to modify code with a
manually handy. I have read through the assocaited installation and
config instructions, plus scanned through related discussion groups to
no avail. Since it was working perfectly before we switched systems
its probably something simple, but I can't figure it out.

I need to contract with a Perl programmer to aid in troubleshooing
this problem. Compensation is negotiable.

Please respond if you are experienced in Perl 5 on a Windows NT 4.0
platform.  The site is hosted on a Dual-CPU system with Windows NT 4.0
with Service Pack 4 on IIS 4.0 using Perl 5.005_02 Build 508 from
ActiveState. PerlShop is a free script from ARPAnet (www.arpanet.com)
(BTW: ARPAnet is not responding to my requests for help via e-mail and
they are not answering their phone...)

Please contact me directly at michael@lanw.com.

Thanks.
Michael Stewart



------------------------------

Date: Wed, 30 Dec 1998 15:28:32 GMT
From: dave@mag-sol.com
Subject: Re: How can I identify MS Office files?
Message-Id: <76dgqv$r06$1@nnrp1.dejanews.com>

In article <368A23D2.10175C1D@cais.com>,
  Ed Finch <efinch@cais.com> wrote:
> Greetings!
>
> We have about 50 Macs left in our building and are
> migrating the users to Windows. The biggest issue
> is that their files weren't saved with extensions
> and it's painful to use MS Office. I'd like to
> write a Perl script to read all of their files,
> identify Word, Excel and PowerPoint files, and
> add the appropriate extension automatically. I've
> searched the modules and the FAQ to no avail.
>
> How can I identify the file types?

There's probably some unique set of bytes at the start of the file that
identifies it. File formats used to be documented in the Microsoft Developer
Network docs (but i'ts been some years since I was in the MSDN).

Once you know the file format, it's simply a case of opening the file and
examining the requisite bytes.

hth,

Dave...

--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Wed, 30 Dec 1998 14:45:24 GMT
From: anthonyclark@my-dejanews.com
Subject: how to access a struct created by a windows DLL?
Message-Id: <76dea4$p28$1@nnrp1.dejanews.com>

Hi,

I'm looking into using perl as a means to test the software I'm working on at
the moment.  It's a win32 program, with everything I need to test in DLLs.
Before I can begin, though, I have to prove to my manager that the concept
works...

I can access DLL functions OK, but I've been asked to access a POINT struct
that is created by the DLL - the DLL doesn't have a "return data" function.

What I need to be able to do is to access the contents of the struct created
by the DLL.

I hope someone can help...

Anthony
PS - i've included all the test code below
PPS - I'm a novice perl + C programmer, please forgive mistakes/omissions!

----------------------begin perl code------------------
use Win32::API;

$temp_var = "1";

# works fine, doesn't die
$AllocatePerson = new Win32::API("Anthony", "AllocatePerson", [I], P) or die
"Cannot AllocatePerson: $!\n";

# here I want to have a reference to the returned struct
$the_person = $AllocatePerson->Call($temp_var);

# ideally I'd like to print the contents of the struct here - should be empty
print $the_person;

# now I want to set the contents of the struct $SetPersonDetails = new
Win32::API("Anthony", "SetPersonDetails", [P, P, I, I], I) or die "Cannot
SetPersonDetails: $!\n";

$person_name = "Anthony";
$person_age = 24;
$person_male = 1;

$set_result = $SetPersonDetails->Call($the_person, $person_name, $person_age,
$person_male) or die "Cannot SetPersonDetails: $!\n";

print "SetPersonDetails OK!\n" if ( $set_result == 1 );

# now I'd like to access the contents of the created struct and print them out
# to verify I've set them correctly
print $the_person;
-------------------end perl code------------------

This is the dll header file

-------------------begin C header-----------------
#ifdef  ANTHONY_BUILD_DLL
    #define ANTHONY_API __declspec(dllexport)
#else
    #define ANTHONY_API __declspec(dllimport)
#endif

typedef struct
{
    char    achName[200]    ;
    int     nAge            ;
    bool    fSex            ;
} tPerson ;


class   ANTHONY_API Person
{
public:
    Person() ;
    ~Person() ;

    bool    SetName( char * pszName ) ;
    char *  GetName() ;
    bool    SetAge( int Age ) ;
    int     GetAge() ;
    bool    SetSex( bool fMale ) ;
    bool    GetSex() ;

private :
    char    m_achName[200]  ;
    int     m_nAge          ;
    bool    m_fSex          ;
} ;

extern "C"
{
    ANTHONY_API     int     SetName( char * pszName ) ;
    ANTHONY_API     char *  GetName( void ) ;

    ANTHONY_API     tPerson *   AllocatePerson( void ) ;
    ANTHONY_API     bool        FreePerson( tPerson * pPerson ) ;
    ANTHONY_API     bool        SetPersonDetails( tPerson * pPerson
                                                , char *    pszName
                                                , int       Age
                                                , bool      fMale
                                                ) ;
}
---------------------end C header---------------------

now the C code itself

---------------------begin C code---------------------
#include    "stdafx.h"
#include    "Test.h"

char    achName[200]    ;

ANTHONY_API     int     SetName( char * pszName )
{
    strncpy( achName, pszName, sizeof(achName) ) ;
    return 1 ;
}

ANTHONY_API     char *  GetName( void )
{
    return achName ;
}

ANTHONY_API     tPerson *   AllocatePerson( void )
{
    return  (tPerson *)malloc( sizeof(tPerson) ) ;
}

ANTHONY_API     bool        FreePerson( tPerson * pPerson )
{
    free( pPerson ) ;
    return true ;
}

ANTHONY_API     bool        SetPersonDetails( tPerson * pPerson
                                            , char *    pszName
                                            , int       Age
                                            , bool      fMale
                                            )
{
    strncpy( pPerson->achName, pszName, sizeof(pPerson->achName) ) ;
    pPerson->nAge = Age ;
    pPerson->fSex = fMale ;

    return true ;
}

Person::Person() : m_nAge(-1), m_fSex(false)
{
    m_achName[0] = '\0' ;
}

Person::~Person()
{
}

bool    Person::SetName( char * pszName )
{
    strncpy( m_achName, pszName, sizeof(m_achName) ) ;
    return true ;
}

char *  Person::GetName()
{
    return m_achName ;
}

bool    Person::SetAge( int Age )
{
    m_nAge = Age ;
    return true ;
}

int     Person::GetAge()
{
    return m_nAge ;
}

bool    Person::SetSex( bool fMale )
{
    m_fSex = fMale ;
    return true ;
}

bool    Person::GetSex()
{
    return m_fSex ;
}
---------------end C code-------------------

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Wed, 30 Dec 1998 08:02:27 -0800
From: Jerome O'Neil <jeromeo@atrieva.com>
Subject: Re: how to debug perl programs?
Message-Id: <368A4E93.CD9E6F43@atrieva.com>

Eric Bohlman wrote:
> 
> vivekvp@hotmail.com wrote:
> : 1.  can i debug the program fromt he server - it gives very limited error
> : messages - premature end of script
> 
> Not really.  There's nothing you can do if your script fails because it
> won't compile due to syntax errors.  If the script compiles but doesn't
> run properly, you can insert lots of temporary output statements to get
> an idea of what's going on, but that will be slow and tedious.

You can make catching runtime errors easier by writing signal handlers
for $SIG{__DIE__} and $SIG{__WARN__}, and then using die() and warn()
prodigiously in your code.  I have handlers that dump the current
environment and other interesting messages in a nicely formatted HTML
table in most of my code.  Between that and CGI.pm, I haven't had to
guess about a runtime error in a long time.

-- 
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, 30 Dec 1998 15:45:17 GMT
From: qvanegeren@frxsoft.com
Subject: Is there a way to read incoming mail on a win32 box??
Message-Id: <76dhqd$rn5$1@nnrp1.dejanews.com>

I am trying to find a way to run a perl program, or better yet have one
running as a process on my Windows 95 box, that will parse incoming e-mails. 
I know that I can SEND e-mails using PERL, but is there a way to read them
also?  Any help would be greatly appreciated...

Quenten Van Egeren
(qvanegeren@frxsoft.com)

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Wed, 30 Dec 1998 15:23:52 GMT
From: lefkogt.xp@usafa.af.mil
Subject: Modules and Mysql
Message-Id: <76dgi7$qmg$1@nnrp1.dejanews.com>

Is there a reference on how to manipulate Mysql databases with PERL?  I know I
can use:

use dbi; or
use Mysql;

modules but is there a reference as to what I can do?  Sort of like CGI.pm?
Thanks
Gary

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Wed, 30 Dec 1998 15:02:40 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Newbie: string terminator
Message-Id: <ebohlmanF4s9sG.302@netcom.com>

Damian Hughes <damian.hughes@hughes-associate.com> wrote:
: I've got the following syntax error with a perl script ....Can't find
: string terminator '"' anywhere before EOF at line 792.... I've trawled
: the web for a solution but the replies are at least confusing, at best
: misleading. Although I don't know Perl, looking at line 792, there
: appears to be nothing untoward. Can anyone please help?

It means that somewhere in your code you started a double-quoted string 
but forgot to end it with a closing quote, so perl tried to parse 
everything after it as quoted text and came to the end of the program 
without seeing a closing quote.  Line 792 was the first place where perl 
realized that something was amiss, even though the problem occurred 
earlier in the code.

Your best bet is to work backwards from the end of your code until you 
find a double-quote mark; it will almost certainly be the unpaired one.



------------------------------

Date: Wed, 30 Dec 1998 16:56:45 +0100
From: Frank de Bot <debot@xs4all.nl>
Subject: Re: Newbie: string terminator
Message-Id: <368A4D3C.1BAC76C7@xs4all.nl>

You just forgot a " in a line. The error CAN be ocured 100 lines before
lin 792. (less or more)

Like this one:

print " Something ";
if ($first eq "something");

Damian Hughes wrote:

> I've got the following syntax error with a perl script ....Can't find
> string terminator '"' anywhere before EOF at line 792.... I've trawled
> the web for a solution but the replies are at least confusing, at best
> misleading. Although I don't know Perl, looking at line 792, there
> appears to be nothing untoward. Can anyone please help?



------------------------------

Date: Wed, 30 Dec 1998 16:36:16 GMT
From: bostic@bostic.com
Subject: Re: Perl 5.005_002 and berkeley db problems
Message-Id: <76dkq0$ud5$1@nnrp1.dejanews.com>

In article <769u16$7op$1@Mars.mcs.net>,
  les@MCS.COM (Leslie Mikesell) wrote:
>
> I ran into problems with the 1.x Berkeley DB library on freebsd where
> entries would just disappear, sometimes a few hundred at a time
> out of a 15,000 entry dbm.  I am fairly sure that the problem
> was caused by creating entries with small (string length) values,
> then updating in place with longer values that eventually exceeded
> the page size (4k?) and overwrote nearby items instead of being
> relocated.  If you don't let values grow beyond the page size or
> if you delete and re-insert on the changes where this might occur
> you might not see this problem.

Like Amy said, Berkeley DB version 1.85 was academic software released
around 1992, was never supported, and is widely known to have problems.
(See

        http://www.sleepycat.com/Berkeley DB.185.html

for further information.)

The current, 2.X versions of Berkeley DB have none of these problems,
whether used with Perl or not, and whether used with the DB_File or
BerkeleyDB Perl modules.

The GNU C library has upgraded to Berkeley DB 2.X, as have many other
vendors.  Unfortunately, there are still lots of sites running 1.85.

Regards,
--keith

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Keith Bostic
Sleepycat Software Inc.         db@sleepycat.com
394 E. Riding Dr.               +1-978-287-4781
Carlisle, MA 01741              http://www.sleepycat.com

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: 30 Dec 1998 15:39:52 GMT
From: groovy94@aol.com (Groovy94)
Subject: Re: Protecting my script from form data
Message-Id: <19981230103952.29088.00004147@ng102.aol.com>

>Lastly, it's probably safer to make sure that the string contains only
>safe characters, rather than making sure it doesn't contain any unsafe
>characters.  

Yes, but how do I make sure it contains only safe characters?
Regards,
Gil Hildebrand, Jr.
Dynamic Scripts

Email: groovy94@aol.com
ICQ UIN: 16678754


------------------------------

Date: Wed, 30 Dec 1998 15:56:01 GMT
From: dmp@spammenot.ppidev.com (Mark Peirce)
Subject: Reading volatile directories
Message-Id: <368a486e.3819932@news.sugar-river.net>


I'm passing a directory and compressing contents that meet some
criteria.  This works fine in both list and scalar context.  It
appears to return only those filenames which existed at the time that
I opened the directory.

So, why does it work?  As I zip my files I am creating new entries in
the directory. Given 20 original files in a new directory, I gzip all
20 files.  This will delete the 20 oringinal and create 20 new ones as
file.gz.   I would expect, at least when reading and processing each
file iin scalar context, to start encountering the new files that I
have created after processing the originals.  I've duplicated this
behavior in a test of linking 1500 files on a Solaris UFS filesystem.


Does Perl work from a static image created at the time of the
opendir() or am I making assumptions about directories based on 15
years of Unix baggage?

Thanks in advance for any enlightenment or correction.

- Mark Peirce

"Those concept folks are always shafting us detail people." -
D.Catalona




------------------------------

Date: Wed, 30 Dec 1998 09:02:00 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <89fd67.lu4.ln@magna.metronet.com>

Leslie Mikesell (les@MCS.COM) wrote:
: In article <1dktfwl.1jx9aol1mzemdkN@bos-ip-1-101.ziplink.net>,
: Ronald J Kimball <rjk@linguist.dartmouth.edu> wrote:

: >> I know who I am.  Why should I attempt to prove it to someone else
: >> using an unreliable medium just so I could answer someone else's
: >> question?
: >
: >So that every poster will read the about the many resources available
: >(documentation/FAQ, other appropriate newsgroups, etc.) *before* having
: >a message posted to the newsgroup.  This should mean much less work for
: >the moderators, with a trivial, one-time inconvenience for all posters.

: Hmmm, one would think that if the moderator-approved question wasn't
: something from the FAQ, then the answer I tried to post probably
: wasn't either.


   If followups were auto-passed without requiring registration,
   then spammers and FAQ-askers would eventually figure out that
   they only need to piggyback their noise post onto a real post
   to get it into the newsgroup.

   The reason for creating the newsgroup was to eliminate such postings.

   Registration was the best way we could think of to reduce the
   number of such postings while keeping the workload of the
   moderator panel at a level that would encourage the membership 
   of the panel to not be the empty set.

   We anxiously await the better alternative that you have in mind. 

   Please share it with us.



: I'm not the one contriving artificial and arbitrary devices to keep
: questions and answers separated.  What bug?


   You miss the point of registration.

   Its point is to eliminate spam and FAQs.

   We might replace it with your superior method if we knew what
   it was...


--
    Tad McClellan                          SGML Consulting
    tadmc@metronet.com                     Perl programming
    Fort Worth, Texas


------------------------------

Date: Wed, 30 Dec 1998 16:08:23 GMT
From: johnvv@hotmail.com
Subject: Re: Sig Trap Help Needed !!
Message-Id: <76dj5m$su2$1@nnrp1.dejanews.com>



Hi David,

I have one question, when you said "should do the trick" did you test your
solution?

If so, what version of perl was it and what OS ??

> sub xit { print "goodbye\n" ; exit } ;
> $SIG{INT} = \&xit;
>
> while (<STDIN>) { print $_ }
>
> Should do the trick.
>
> --
> David.
>

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Wed, 30 Dec 1998 09:16:56 -0600
From: John Warner <jwarner@tivoli.com>
Subject: Re: Solution (?) to NT-Perl problem
Message-Id: <368A43E8.AD8F9C51@tivoli.com>

I agree.  There is no special magic about where to place CGI scripts.  It
is a matter of giving the right permissions to the directory.  In the case of
IIS (I'm going to assume version 4), you simply need to allow either
script access or execute (includes script) access to the directory in the
Microsoft Management Console.

HTH,

John Warner

Marcel Beekmans wrote:

> I don't understand the problem. Wht don't you just make a cgi-bin directory in
> your wwwroot-directory and give it script execute rights and the problem is
> solved ??
>
> Marcel Beekmans
>
> Shana Priwer wrote:
>
> > I've been struggling with getting cgi scripts to run on the web server I
> > host through IIS, and as I've found a solution that works for my setup,
> > I thought I'd post it and see if it works for anyone else. Also, if
> > anyone notices major problems with my solution, please let me know  :)
> >
> > When you install IIS it makes a directory called d:\InetPub. Regular
> > files for the web should be placed in the wwwroot directory inside
> > inetpub, but cgi files placed there will not run correctly. If you
> > create a cgi-bin directory inside the scripts directory, place your cgi
> > files in the cgi-bin and your linked .htm files inside the scripts
> > directory, things work and scripts run.
> >
> > Also you need to do the scriptmap reg entry (see Vincent Bezard's
> > posting from yesterday)
> >
> > ---== http://www.newsfeeds.com - Largest Usenet Server In The World! ==---
> >
> > ---== http://www.newsfeeds.com - Largest Usenet Server In The World! ==---



------------------------------

Date: Wed, 30 Dec 1998 09:11:41 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: suppress newlines
Message-Id: <drfd67.lu4.ln@magna.metronet.com>

Herger Peter (peter.herger@swisslife.ch) wrote:

:     !/usr/local/bin/perl -w
:     $storedir = `date '+%m%d'`;
:     print "$storedir";

: I get the following output:

:     $ ./foo.pl | od -c
:     0000000   1   2   3   0  \n
:     0000005

: How can I suppress this newline??


   chomp($storedir = `date '+%m%d'`);


--
    Tad McClellan                          SGML Consulting
    tadmc@metronet.com                     Perl programming
    Fort Worth, Texas


------------------------------

Date: Wed, 30 Dec 1998 16:01:02 GMT
From: uunews@hotmail.com
Subject: tutorial websites
Message-Id: <76dint$si9$1@nnrp1.dejanews.com>

Hi Folks,
    I am looking for useful websites and mail servers on PERL.  Any help is
appreciated.

Sincerely,
Ali

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

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 4518
**************************************

home help back first fref pref prev next nref lref last post