[10288] in Perl-Users-Digest
Perl-Users Digest, Issue: 3882 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Oct 3 09:07:18 1998
Date: Sat, 3 Oct 98 06:01:35 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 3 Oct 1998 Volume: 8 Number: 3882
Today's topics:
Re: How do I pass Array names in Perl? <howel88@cyberway.com.sg>
Re: How do I pass Array names in Perl? (Tad McClellan)
Re: How to know if I deal with a file or a directory <paaa@uic.nnov.ru>
Re: HTTP_REFERER missing when it shouldn't be (David A. Black)
Re: Mail attachments in NT w/o sendmail, blat, etc... bazarnik@my-dejanews.com
Re: mailing from within PERL <gellyfish@btinternet.com>
Re: mailing from within PERL philip@Spamlessnessconnect.ie
Re: Multithreaded server in Win32 <jimbo@soundimages.co.uk>
Name of subroutine <cobalt@dircon.co.uk>
Re: Need help from Perl guru (Tad McClellan)
Re: need some help <gellyfish@btinternet.com>
Re: Omaha Perl Mongers - First Meeting ! <gellyfish@btinternet.com>
Passing arguments to a server process <jgeniec@netwalk.com>
Re: passing javascript vars to CGI bazarnik@my-dejanews.com
Re: per <gellyfish@btinternet.com>
perl exec'd in background with stdin/stdout remapped(2) (Richard F. Barham)
perl exec'd in background with stdin/stdout remapped (Richard F. Barham)
Re: Perl formating <gellyfish@btinternet.com>
Re: Puzzling \( @blah ) behaviour (David A. Black)
Re: Script does not write to file (Tad McClellan)
Re: Too late for "-T" option ? <paaa@uic.nnov.ru>
Re: URL not working in Eudora via perl script <gellyfish@btinternet.com>
using sendmail with accents in a cgi? cdessimoz@swisscenter.ch
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 3 Oct 1998 18:26:09 +0800
From: "Xu Hongwei" <howel88@cyberway.com.sg>
Subject: Re: How do I pass Array names in Perl?
Message-Id: <3615fbdb.0@news.cyberway.com.sg>
Sanjay Joshi wrote in message ...
>Hi,
> When I write a Perl script to pass parameters, I find that it
>works only for non array parameters. How do I pass an array name in? THe
>problem I have is, I have to pass in two strings, and any one of the two
>might have to take the form of an associative array depending on a
>condition.
>
>Eg: I pass in 'a' and 'b', then it should be possible to execute $a{$b}
>and $b{$a} depending on a third parameter passed into the CGI script. The
>arrays are pre-defined in the script, so the array initializing part runs
>first and then the script is supposed to print out the value of the array.
>
>Any help is appreciated.
>
>THanks
>
>Sanjay
>
>------------------------------------------------------------------------
>Sanjay Joshi http://ee.tamu.edu/~joshi
>------------------------------------------------------------------------
>
>
here's some hint:
$a = 'AAAA';
$b = 'a';
print "$$b";
the output is:
AAAA
Is this what you need?
------------------------------
Date: Fri, 2 Oct 1998 20:06:01 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: How do I pass Array names in Perl?
Message-Id: <p9t3v6.664.ln@flash.net>
Sanjay Joshi (joshi@ee.tamu.edu) wrote:
: Subject: Re: How do I pass Array names in Perl?
I expect you really want to pass arrays, not just their names?
If you want to pass their names:
my_sub( '@array1', '@array2');
will do it.
But that would be Very Bad Programming Practice. Increases
coupling, uses global variables, and makes the code hard
to maintain...
: When I write a Perl script to pass parameters,
To pass parameters to what?
To a Perl subroutine?
To another program?
: I find that it
: works only for non array parameters. How do I pass an array name in?
In to where? (again)
: THe
: problem I have is, I have to pass in two strings, and any one of the two
: might have to take the form of an associative array depending on a
: condition.
Since you won't tell us, we'll have to guess.
I'll guess that you want to pass them to a subroutine.
: Eg: I pass in 'a' and 'b', then it should be possible to execute $a{$b}
: and $b{$a} depending on a third parameter passed into the CGI script. The
: arrays are pre-defined in the script, so the array initializing part runs
: first and then the script is supposed to print out the value of the array.
: Any help is appreciated.
If you are wondering about something to do with Perl subroutines,
it is often advisable (and obvious, I would think) to check the
'perlsub' man page, entitled appropriately, "Perl subroutines".
The second paragraph there says (my underlining):
-------------------------------------
The Perl model for function call and return values is simple: all
functions are passed as parameters one single flat list of scalars, and
all functions likewise return to their caller one single flat list of
scalars. Any arrays or hashes in these call and return lists will
collapse, losing their identities--but you may always use
^^^^^^^^^^^^^^^^^^^^^^^
pass-by-reference instead to avoid this. Both call and return lists may
contain as many or as few scalar elements as you'd like. (Often a
function without an explicit return statement is called a subroutine, but
there's really no difference from the language's perspective.)
-------------------------------------
perldoc perlref
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 03 Oct 1998 15:46:23 +0400
From: "Aleksey A. Pavlov" <paaa@uic.nnov.ru>
Subject: Re: How to know if I deal with a file or a directory
Message-Id: <36160E8F.15F7D283@uic.nnov.ru>
patrick Scotto wrote:
>
> I want my perl program to explore my disk (full of files and
> directories) and to create a list of all the filenames.
>
> For this, it opens the top most directory and takes the name of all
> files... ignoring whether the name it reads is related to a file or a
> directory.
>
> How can I check that the name I deal with is related to a file or a
> diretory ?
> Is there a function that returns the type of a file ?
>
> Thanks for your help.
Use operations: -d $file and -f $file,
for example:
if(-d $_){print "it is directory";}
elsif(-f $_){print "This is file"}
Lesha.
------------------------------
Date: Fri, 2 Oct 1998 19:07:28 EDT
From: dblack@saturn.superlink.net (David A. Black)
Subject: Re: HTTP_REFERER missing when it shouldn't be
Message-Id: <6v3mbg$q6i$1@earth.superlink.net>
Hello -
"Richard Waddell" <richw3@ix.netcom.com> writes:
>Greetings,
>This is really a CGI question, but I haven't found a CGI newsgroup.
comp.infosystems.www.authoring.cgi
comp.infosystems.www.servers.*
David Black
dblack@saturn.superlink.net
------------------------------
Date: Sat, 03 Oct 1998 09:40:44 GMT
From: bazarnik@my-dejanews.com
Subject: Re: Mail attachments in NT w/o sendmail, blat, etc...
Message-Id: <6v4res$hos$1@nnrp1.dejanews.com>
For MIME mail attachments you can also use MIME::Lite module
if you need more control over the structure.
BTW Does anyone know of module enabling sending whole MIME "embedded"
(with images not only links etc) HTML mail messages. It would be nice if it
could parse HTML file to find and load the images...
Przemek
In article <6v3cc0$9eb$1@nnrp1.dejanews.com>,
epierre@mail.esiea.fr wrote:
>
>
> I have a full Perl solution, it uses perl modules, have a look at
>
> http://www.esiea.fr/public_html/Emmanuel.PIERRE/perl/ntperl.html
>
> Subject: Re: Mail attachments in NT w/o sendmail, blat, etc...
> Date: Mon, 10 Aug 1998 10:26:55 -0400
> From: Martin Little <martin@klg.com>
> Organization: KL Group Inc.
> To: Laurie Russinko <laurie@eclipse.net>
> Newsgroups: comp.lang.perl.misc
> References: 1
>
> > I use the following program under NT for my perl scripts.
>
> > http://www.stalkerlab.ch/SMailers/index.html
>
> > It has all the basic functionality for what I need but YMMV.
>
> > ../Martin
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 3 Oct 1998 08:52:57 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: mailing from within PERL
Message-Id: <6v4ol9$ct$1@gellyfish.btinternet.com>
On 3 Oct 1998 05:40:52 GMT Peter Bismuti <bismuti@cs.fsu.edu> wrote:
> Hi again,
> I'm trying to write a script that will automatically send e-mail,
> I've found partial examples in books, but not that are complete.
> One way is to dump the contents of the message to a temporary file,
> then use the system command:
> system ("mail address < tmp.mail");
> or something like this. Is there any way of doing this without
> writing the contents to a temporary file?
Er yes,
#!/usr/bin/perl -w
$mailcommand = "/usr/bin/mail";
$address = "gellyfish@btinternet.com";
open(MAIL,"| $mailcommand $address") || die "Cant run $mailcommand - $!\n";
print MAIL "Good morning, Jonathan\n";
close(MAIL) || die "$mailcommand experienced an error - $?\n";
__END__
This is not the ideal solution however - you probably want to be using
sendmail rather than mail but of course you have slightly greater
responsibilities if you do that. If you are taking the address from user
input of some sort you also want to sanitize it in some manner to make
sure it doesnt hold "gellyfish@btinternet.com ; cd / ; rm -rf *".
Of course the question of mailing is discussed in perlfaq9 which should
be considered the first source of information to be examined in these
matters and then almost certainly DejaNews as mailing questions have
been ranking pretty highly in the league of those most frequently asked
recently.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 3 Oct 1998 02:03:06 -0700
From: philip@Spamlessnessconnect.ie
Subject: Re: mailing from within PERL
Message-Id: <6v4p8a$2e8@drn.newsguy.com>
Hi pete,
I use the following formula,
open (MAIL,"|/usr/lib/sendmail -t"); #opens the sendmail program
#and allows you to specify recipient etc
print MAIL "To:recipient@home.ie\nSubject: Mail sending\nFrom:me@here.ie";
print MAIL $content;
Thats all there is to it
Philip Quinlan
------------------------------
Date: 03 Oct 1998 09:39:06 +0100
From: Jim Brewer <jimbo@soundimages.co.uk>
Subject: Re: Multithreaded server in Win32
Message-Id: <upvca82fp.fsf@jimbosntserver.soundimages.co.uk>
vwstranathan <vwstranathan@home.net> writes:
>
> I'm working on a socket server that listens for connections on a
> particular port, and I'd like to use the multithreaded variety - once a
> connection is established on the "fake" port, fork and take care of the
> client on the "real" port while the parent goes back to listening.
>
> One problem - I'm trying this on Win32, so I have no fork(). Is there a
> quick and dirty way to accomplish the same thing on Win32? This is the
> example straight out of the Camel book.
>
Yeah, use select. The four argument select.
--
Jim Brewer
e-mailed courtesy copies are unappreciated, please refrain.
------------------------------
Date: Sat, 3 Oct 1998 13:57:51 -0700
From: "Paul Davies" <cobalt@dircon.co.uk>
Subject: Name of subroutine
Message-Id: <36161e3d.0@newsread1.dircon.co.uk>
Hi
Does anyone know if there is an easy way to get the name of a subroutine I'm
in, is there a variable
which stores this?
Thanks
Paul
------------------------------
Date: Sat, 3 Oct 1998 07:07:09 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Need help from Perl guru
Message-Id: <d145v6.696.ln@flash.net>
Ronald J Kimball (rjk@coos.dartmouth.edu) wrote:
: Peter Bismuti <bismuti@cs.fsu.edu> wrote:
: > The PERL debugger shows that the array is fully intact,
: > but the command 'each':
: >
: > while ( ($key2,$value2) = each(%{$rh_class->{rh_student}[$studid]}) )
: >
: > does not see all of the elements. But again, this only happens if
: > you try to access an array twice in a row.
: Do you modify the hash while looping over each?
I don't see how he could be doing that and still have the question
to post to Usenet.
Because the only function called in the one line of code that he
gave us is each(), and he has surely already read the description
of it in the docs that came with his perl distribution (perlfunc).
"If you add or delete elements of a hash while you're
iterating over it, you may get entries skipped or
duplicated, so don't."
: Do you break out of the
: loop before reaching the end of the hash?
This could be it. Though the two paragraphs of description for
each() describe this one, it may have not been apparent on
the first read.
But when Peter reads it a second time he might get a glimmer
when he reads:
"There is a single iterator for each hash, shared by all each(),
keys(), and values() function calls in the program; it can
be reset by reading all the elements from the hash, or by
evaluating C<keys HASH> or C<values HASH>."
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 3 Oct 1998 09:41:48 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: need some help
Message-Id: <6v4rgs$ev$1@gellyfish.btinternet.com>
On Fri, 02 Oct 1998 21:32:36 GMT Andreas Piesk <a.piesk@gmx.net> wrote:
> hiho,
> here's what i'm trying to do:
> i retrieve a image from my database and store it in $image. so far so
> good. now i want to do some manipulation on this image. i'm using
> perlmagick. according to the perlmagick-doc i can create a new image
> by typing:
> $img = new Image::Magick;
> manipulations go this way:
> $img->do_something_wth_the_image( params );
> but now the question to all you gurus:
> it is possible to copy the data from $image into $img in order to do
> the manipulations on the data retrieved from the database ? or can i
> "convert" the $image to a $img object ?
I dont know - what do the docs for the Module say ? Many modules allow
a form of the constructor that can initialize the object with some data.
You might have for example something like:
$img = new Image::Magick(Image => $image,Type => 'GIF');
of course I just made that up and do *NOT* expect it to work at all.
> i'm new to perl and have no clue :(
Oh, well - its that time of year ;-b
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 3 Oct 1998 10:06:50 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Omaha Perl Mongers - First Meeting !
Message-Id: <6v4svq$fc$1@gellyfish.btinternet.com>
On Fri, 02 Oct 1998 19:57:45 GMT Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com> wrote:
> Saarinen was wacky. Its a croquet wicket, of course.
Lock up your pelicans Elaine wants to play croquet ;-P
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Fri, 2 Oct 1998 17:02:18 -0400
From: "Joseph Geniec" <jgeniec@netwalk.com>
Subject: Passing arguments to a server process
Message-Id: <36154077.0@news.netwalk.com>
Hope someone can help with this one.
I'm trying to set up a simple Client/Server process. The client is written
in C. The server forks off a process and is written in Perl, just like the
one on pages 350-351 of Programming Perl, 2nd edition. The problem is, I
want to pass an argument from the client to the forked process.
Can anybody help with this issue?
Thanks,
Joe
------------------------------
Date: Sat, 03 Oct 1998 08:47:24 GMT
From: bazarnik@my-dejanews.com
Subject: Re: passing javascript vars to CGI
Message-Id: <6v4oar$330$1@nnrp1.dejanews.com>
Not being CGI expert I could think of few methods but in general
if JavaScript have access to textarea with line breaks escape them
in whatever way and write to HIDDEN field. (on form's onSubmit event)
On CGI side read the hidden field and decode the text.
It seems to me more the problem of finding simple and efficent encoding
method on JS side. Is it difficult to scan the strings in JS?
Przemek
In article <36135580.B1F7EF63@eskimo.com>,
"Phinneas G. Stone" <phinneas@eskimo.com> wrote:
> Is it possible to process a variable with javascript, then pass that
> value along to a CGI script? What I'm trying to do is preserve the line
> breaks in a <textarea> by encoding with the javascript escape() function
> and decoding them with perl once the form has been submitted.
>
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 3 Oct 1998 09:54:31 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: per
Message-Id: <6v4s8n$f4$1@gellyfish.btinternet.com>
On Fri, 02 Oct 1998 15:10:53 -0400 Ian Lowe <Ian_Lowe@fanniemae.com> wrote:
> Let's get even simpler.
> #/usr/local/bin/perl -w
> $df = `df -k`
> print "$df\n";
> Even this reproduces the original error message. So, coding aside, I
> still have the original problem.
This sounds to me like a filesystem problem. If you do a 'find' does the
offending directory show up ? If it does can you do anything with it
(e.g ls /code or cd /code) ? You might need to give your system a good
fsck'ing.
But, whatever, your snippet above is sufficient evidence to suggest that this
is not a Perl problem and one that should be taken up with the administrator
of your system.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 3 Oct 1998 06:47:57 -0500 (CDT)
From: rfbarham@flash.net (Richard F. Barham)
Subject: perl exec'd in background with stdin/stdout remapped(2)
Message-Id: <1.lzv6w2-=@bato.friendly.org>
I cannot get a dialog going between a process that called the perl script
(and which presumably has remapped stdin/stdout to itself) and the perl script.
In fact, it just hangs. Any hints on how to do this? (I've set $| to 1);
Richard
------------------------------
Date: Sat, 3 Oct 1998 06:23:10 -0500 (CDT)
From: rfbarham@flash.net (Richard F. Barham)
Subject: perl exec'd in background with stdin/stdout remapped
Message-Id: <1.d6v6w2&&@bato.friendly.org>
Hi. I'm writing a script to act as a go between between the mailers and
sendmail. The switches I'm able to work with are -t and when the name of the
recipients are on the command line. No problem. However, pine uses a different
method and it's a bit of a dilema.
------------------------------
Date: 3 Oct 1998 09:31:53 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Perl formating
Message-Id: <6v4qu9$es$1@gellyfish.btinternet.com>
On Sat, 03 Oct 1998 01:16:38 GMT majeed <majeed@dircon.co.uk> wrote:
> Hi
> I am running the following script. I pump the out put of find command
> which searching for abc.log.
> #!/usr/local/bin/perl
> $test = `find /export/home/majeed/test -name abc.log `;
> @var = split ('/',$test);
> print "$test\n";
> $filename = pop(@var);
> $junk = pop(@var);
> push(@var, 'logs');
> $pathnew = join ('/',@var);
> print "$pathnew \n";
> The output i get is as follows
> /export/home/majeed/test/test1/access/abc.log
> /export/home/majeed/test/test2/access/abc.log
> /export/home/majeed/test/test3/access/abc.log
> When i do the pop push and join it only works on the last line as
> shown below
> /export/home/majeed/test/test1/access/abc.log
> /export/home/majeed/test/test2/access/abc.log
> /export/home/majeed/test/test3/logs
A brave attempt but none the less one doomed to failure. The way you are
trying to achieve your end result is almost certainly not the best way to
do it but its interesting.
What is happening in your code ? You are putting the entire output from
find into one variable and when you split that to an array you are placing
each element of every path into an element in a single array - thus your
array operations are only acting upon the elements that comprise the last
file path output by find.
What you need to do is to place each path into a separate array element.
In the following example in order to retain your basic idea I have split
each path into a separate list and stored a reference to that list in an
array - a list of lists:
#!/usr/bin/perl
#$test = `find /export/home/majeed/test -name abc.log `;
@test = map { [ split '/'] } <DATA>;
foreach $path (@test)
{
$filename = pop(@$path);
$junk = pop(@$path);
push(@$path, 'logs');
$pathnew = join ('/',@$path);
print "$pathnew \n";
}
__END__
/export/home/majeed/test/test1/access/abc.log
/export/home/majeed/test/test2/access/abc.log
/export/home/majeed/test/test3/access/abc.log
You will want to replace the <DATA> with your backtick find command of course.
If you have difficulty in seeing what is going on here you might want to
examine the perllol,perlref and perldata manpages and the perlfunc entry
for map.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 3 Oct 1998 06:42:48 EDT
From: dblack@saturn.superlink.net (David A. Black)
Subject: Re: Puzzling \( @blah ) behaviour
Message-Id: <6v4v38$t52$1@earth.superlink.net>
Hello -
"Paul Makepeace" <Paul.Makepeace@POBox.com> writes:
>Now, why does this work? Surely, since \( ) is list of references of its
>elements as per docs, when evaluated in a scalar context it would return the
>number of elements? So why isn't my %data full of ones (i.e. length of list
>in (), not the number 1 I have there) ?
>paul:~$ perl -e '$b=1;$c=3; $a = \($b, $c); print $$a'
>3
>It's clearly (er, to me) not behaving like a normal list operator but
>applying the scalar context to the thing _inside_ the \( ) which is
>evaluating as a comma-operator rather than list separator. Why would it do
>that? Where would I R about this in the FM?
perldata:
List value constructors
List values are denoted by separating individual values by commas (and enclosing
the list in parentheses where precedence requires it):
(LIST)
In a context not requiring a list value, the value of the list literal is the value
of the final element, as with the C comma operator. For example,
@foo = ('cc', '-E', $bar);
assigns the entire list value to array foo, but
$foo = ('cc', '-E', $bar);
assigns the value of variable bar to variable foo. Note that the value of an
actual array in a scalar context is the length of the array; the following assigns
the value 3 to $foo:
@foo = ('cc', '-E', $bar);
$foo = @foo; # $foo gets 3
Consider that if the second example were:
$foo = \('cc', '-E', $bar);
$foo would be assigned \$bar.
The key here is difference between a list and an array, \(...) being a list.
Note what happens if you create an anonymous array from the \(...) list:
@foo = @{[\('cc', '-E', $bar)]};
$foo = @foo; # $foo gets 3
David Black
dblack@saturn.superlink.net
------------------------------
Date: Fri, 2 Oct 1998 19:49:24 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Script does not write to file
Message-Id: <kas3v6.m24.ln@flash.net>
Roberto Cerini (rob@ccsn.com) wrote:
: My script has the following lines in it:
: open(testfile,"/home/user/public_html");
Always, yes *always*, check the return value from open() calls.
Really.
open(TESTFILE,"/home/user/public_html") || die "could not open $!";
Your code will suddenly break if 'testfile' becomes a keyword
in future perls.
Better to make the all UPPER case to avoid that potential problem.
: print testfile "This is a test\r\n";
: close testfile
: When I run the script, nothing happens to the testfile (which I have already
: created).
: Any suggestions?
Yes.
Read about the open() function in the documentation that
comes with perl.
Pay particular attention to how to open a file for writing.
You have opened it for reading above...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 03 Oct 1998 15:48:46 +0400
From: "Aleksey A. Pavlov" <paaa@uic.nnov.ru>
Subject: Re: Too late for "-T" option ?
Message-Id: <36160F1E.EC0C322F@uic.nnov.ru>
Don wrote:
>
> Hello,
>
> I have a program using;
> #!/usr/local/bin/perl -Tw
> Which returns when run;
> Too late for "-T" option at line 1
> Any ideas what is causing this error?
>
> Thanks,
> Don@ defike@NOSPAM.ilstu.edu
Try to run this script with command line.
Lesha.
------------------------------
Date: 3 Oct 1998 10:03:00 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: URL not working in Eudora via perl script
Message-Id: <6v4sok$f9$1@gellyfish.btinternet.com>
On Thu, 01 Oct 1998 21:25:18 GMT webmaster@vaticanart.com wrote:
<snip>
> -------------------------------------- The hyperlinks are NOT wrapped onto
> different lines in my perl code. So I guess my question is, where is the
> problem? Are the tech guys at Eudora wrong and it is wrapping the source, or
> does my Content-Type header need some sort of column width characteristic?
It *is* a problem with your mail program - infact common to a large number of
HTML enabled mail readers that try to do something and fail to do it
properly. There is nothing that Perl can do to fix this broken software I'm
afraid. You might ask in a newsgroup that is interested in mail clients
to see if they can help.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 03 Oct 1998 11:51:40 GMT
From: cdessimoz@swisscenter.ch
Subject: using sendmail with accents in a cgi?
Message-Id: <6v534b$dfl$1@nnrp1.dejanews.com>
Hello everybody,
i'm tring to make a cgi which would be able to send mails from a form.
but how to use accents as i h or ` (indeed, my text would be in french!).
do you have to print a special header?
thanks a lot for you help
Christophe
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3882
**************************************
