At 05:15 PM 07/16/2001 -0400, you wrote:
I have apache set up on a Linux machine running Redhat 7.1 (local home
network). The install (from rpm) placed the directories as follows:
/var/www/html
/var/www/cgi-bin
/var/www/icons
I can point a browser to 192.168.xxx.xxx and I am taken to the
Deneb Pettersson (LMF) wrote:
Deneb Pettersson (LMF) wrote:
Do both these things handle graphs aswell, or do i have to use
something else for that. Basically this is at the moment a planning
with the spreadsheet::parseexcel module, it simply reads cell contents
in a worksheet.
Setting the Data in a certain place is planned anyway so that is no problem, now it
seems my only problem is how i get the damn gif out of the excel. Atm the user saves
the document once before he is done as an html document, which leads to excel
converting the picture to a gif which then can
Hi,
I setup a var to hold data:
$name = $query-param('name');
I get a user input in a textfield.
print $query-popup_menu( -name='name',
-values = $T_NAME{ \L$fab },
-default = ''
);
I want to remove
Helen Dickey wrote:
Is this correct? Should the following work?
#!/usr/local/bin/perl -wT
use Net::SMTP;
$smpt = Net::SMPT-new('smtp.his.com');
$smpt-mail($ENV{USER});
$smtp-to('[EMAIL PROTECTED]);
you need to use either ' or , but don't mix them.
ie.- $smtp-to('[EMAIL
Deneb Pettersson (LMF) wrote:
Could you maybe send an example of your code, showing how you get
the data out, aswell as how you mark where to cut from the excel
this code assumes you've already uploaded the .xls file to the server.
for more information on all methods, try perldoc
Mel,
BINGO! Thanks for the assist.
Frank
-Original Message-
From: Mel Matsuoka [mailto:[EMAIL PROTECTED]]
Sent: Monday, July 16, 2001 8:22 PM
To: [EMAIL PROTECTED]
Subject: Re: Apache and cgi-bin directory - Redhat 7.1
At 05:15 PM 07/16/2001 -0400, you wrote:
I have apache set up on a
man perlthrtut
might give you a starting point.
-will
Maxim Berlin wrote:
Hello Thomas,
Tuesday, July 17, 2001, Thomas Jakub [EMAIL PROTECTED] wrote:
TJ How do I implement threading in perl?
did you try
perldoc thread
?
Best wishes,
Maxim
Hi all,
I hope this isn't a goofy question ;-) I have a simple CGI front end
for processing Snort logs with Calamaris. It is currently set up like this:
sub do_report
{local ($command) = @_;
$| = 1;
print Content-type: text/html \n\n;
system ($command 2 /dev/null);
} #
Hello,
When I execute: perl my_cgi_lib.m,
I have this problem:
Global symbol $key requires explicit package name at
/usr/lib/perl5/5.6.0/my_cgi_lib.pm line 34.
Global symbol $key requires explicit package name at
/usr/lib/perl5/5.6.0/my_cgi_lib.pm line 38.
Global symbol $key requires explicit
Does anyone know of a cgi or perl script that will work for taking the information
from an online form, inputting the data onto a form on a word doc and then having that
word doc form emailed to the email address? I know this can be done though I can not
quite work myself through this one.
I'm working with Excel (just for the reading aspect, though) fortunately,
someone has written ParseExcel ( WriteExcel). Looking on CPAN, I don't see
a similiar offering for Word. The ParseExcel module does rely on the
OLE::Storage_Lite module - you may want to check that out and see if that
I know there must be an easy way to do this but the solution evades me
and I'm hoping someone here either knows the answer or can point me in
the right direction so I can figure it out myself ... on to the
question;
I have two scalars, each contain a comma-seperated list of values;
$scaOne =
Thanks Darren!
I *knew* there was an easy way to do it! I rarely use slices that way
so I can see why it hadn't occured to me.
Oh, and yes, $scaOne and $scaTwo have the same number of fields in them.
Glenn
Glenn Tillema [EMAIL PROTECTED]
ADC Telecommunications, Inc.
PO
Hello all,
Has anyone out there created a form using the CGI.pm module then taken
the values submitted by the form and then used those values as command line
arguments to run another script?
At this point I have a Perl script that parses a text file and creates
a number o fHTML files
On Tue, 17 Jul 2001 [EMAIL PROTECTED] wrote:
Has anyone out there created a form using the CGI.pm module then taken
the values submitted by the form and then used those values as command line
arguments to run another script?
Before you do anything with those form values, make sure they
Yeah I had thought about that but this is an internal app for a web
developer and only she will be using it.
Of course I am listening to all suggestions since I am trying how to figure
out to proceed from here.
On Tue, 17 Jul 2001 [EMAIL PROTECTED] wrote:
Yeah I had thought about that but this is an internal app for a web
developer and only she will be using it.
Regardless, it's good to get into proper programming habits for internal
stuff also, IMHO.
-- Brett
Whoops, while cutting out my email in the example I also cut a }.
Should be:
print a({-href='mailto:[EMAIL PROTECTED]'},
'[EMAIL PROTECTED]');
-will
Miles Sapp wrote:
I copied and pasted the code that was suggested for Carp (below) and ran it and
I can't get it to work. Does anyone know
On Wed, 18 Jul 2001, Bjorn Nilsen wrote:
This is all true but not what he is asking.
I know of one way, you can call a CGI script with the parameters that you
would normally feed into a form in the URL.
eg: http://test.com/test.pl?stuff=blanumbers=23
I don't know that's what he asked
oops, I should get my eyes checked,
ok well the functions system, exec or using `` will do the trick, the other
option is make the 2 perl scripts one then you will have no issues with
people being able to do evil things at the command line.
Bjorn Nilsen
Manux Solutions Ltd
-Original
In processing an HTML form, I need to get a userID field from a cookie from the
client's browser. The cookie is created at the front-door of the site where the user
can login. But the user could come directly to this HTML form, bypassing the login.
So I see situations where the cookie
one more simpleQ...
After opening the file ,
How to read a file line by line...sample code
Thax in advance.
waiting for replies.
- Original Message -
From: Jeff 'japhy' Pinyan [EMAIL PROTECTED]
To: Rahul Garg
This should help you, the while will step through each line of the text
file, and you can do whatever you want using the magical $_ variable.
God I love perl.
open(F, fillename) || die Can't open file: $!;
while(F) {
do something with $_;
}
close(F);
Brian Johnson
Partner/Systems
Hello,
Is there a concept of macros in perl, i.e.
Is there some thing like preprocessor processing
in perl. Thanks in advance.
--
Thanks and Regards,
D.Rajanikanth
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hello Everybody,
$string =rahul;john;hary;brian;raj;dolly;jim;
What i want to do is parse the string and put different names in a separate
variable..How!
Thanx in advance,
Waiting for Reply
Well, if you don't mind using an array you could just do something like:
my @names = split(/\;/, $string);
This will put each name into a different element of the names array.
So, $names[0] would be rahul, $names[1] would be john, etc...
Brian Johnson
Partner/Systems Administrator/Programmer
- Begin Forwarded Message -
Date: Mon, 16 Jul 2001 17:48:29 +0200 (MEST)
From: Jorge Goncalvez goncal11@cabs40
Subject: Re:Retrieve host
To: [EMAIL PROTECTED]
Mime-Version: 1.0
Content-MD5: wPL9znYmDeTyzQcXNKmp1Q==
Hi I have the following code:
use Net::Ping;
Hi Jorge
You can define the host name as a string eg.
$host = hostname;
where hostname represents the host name on your network,
and then refer to the string in the ping command:
unless ($p-ping($host))
Hope this helps
Robert Graham
Hi I have the following code:
use Net::Ping;
$p =
Hi , I have made a perl tk script with some labels.
Now i want to put a frame that contains alla labels how can I do this?
I tried this but it doesn't work it seems to ignore -width, -length options.
There is only a little frame at the left top which doen't surrond the labels.
My code:
my $mw =
WinNT comes with Personal Web Server (PWS) which is how I'm learning
Perl
CGI. You can put your scripts in C:\Inetpub\wwwroot\cgi-bin. You can
then
run them by going to:
your_homepage\cgi-bin\your_script.pl. I'm not sure if Windows 98 comes
with
PWS. Sorry I couldn't be of more help
javier wrote:
It sounds a bit stupid but I don't know the way to
remove white spaces in a
string.
$string = No sé como quitar los putos spacios;
and now?
$string =~ s/ //g;
Here's one way to do it.
=
Dave Hoover
Twice blessed is help unlooked for. --Tolkien
Hi Scott
I was having sleepless nights because of the same problem I tried whatever
I could, tried configuring PWS it didn't work surely will check
the link. One right solution can help many more lives
Thanks a lot
Regards
Joel
At 08:09 PM 7/17/2001 +1000, you wrote:
WinNT
Hi Rahul
Show what attempts you have done before asking for help ok ... how do you
plan to grow. Anyway this is what you are looking for
$string =rahul;john;hary;brian;raj;dolly;jim;;
my @a = split(/;/, $string);
foreach $item (@a)
{
print $item\n;
}
Regards
Joel
At 01:18 PM
Hi
Still trying to get to grips with a simple script, with no luck
the folders are created OK
but only the first 2 items of @pages get made the web page returns with a
blank page
to make matters worse doing a 'top' reveals that the process is still
running
and eating up CPU time!
this has got to
This should help you, the while will step through each line of the text
file, and you can do whatever you want using the magical $_ variable.
God I love perl.
open(F, fillename) || die Can't open file: $!;
while(F) {
do something with $_;
}
close(F);
Brian Johnson
Partner/Systems
Thanks a bunch for everyones input; I didnt have to wait long at all
to receive an answer from all of you knowledgeable people. A few questions:
What smtp server software would you recommend I use to send email to
myself (localhost)? I have win98se, apache, activestate_perl.
And,
In article 01071714101300.07584@m12, Rizwan [EMAIL PROTECTED] wrote:
ps2pdf is part of the GhostScript suite. Does this have anything to do
with perl?
Aziz,,,
Hi!
I need to download ps2odf.. I have searched a lot ..but with no success.
Somebody help me!
Rizwan
--
To unsubscribe,
http://www.indigostar.com/sendmail.htm
- Original Message -
From: Customer Service [EMAIL PROTECTED]
To: Perl Beginners [EMAIL PROTECTED]
Sent: Tuesday, July 17, 2001 1:22 PM
Subject: FW: Validation question
Thanks a bunch for everyone's input; I didn't have to wait long at all
to get the form data you can just use CGI's param('key') command
use CGI;
$cgi = CGI;
$value = $cgi-param('key');
as for Mail, there are lots of options. I've been partial towards
MIME::Lite, but I know others will give you more example. Look into the
Net package (Net::Mail perhaps?)
-Akshay
The module is perl script... I think this relevent enough.
On Tuesday 17 July 2001 05:14 pm, you wrote:
[This is an email copy of a Usenet post to perl.beginners]
In article 01071714101300.07584@m12, Rizwan [EMAIL PROTECTED] wrote:
ps2pdf is part of the GhostScript suite. Does this have
Hello paul,
Tuesday, July 17, 2001, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote:
pzcu So I am finally tightening up my code using strict and -w.
[...]
pzcu Produces the warning:
pzcu Use of uninitialized value in string ne at logisys.pl line 139, FILE line 3
pzcu Even though the initialise
Craig:
You might try bestbookbuys.com.
Good luck,
Francis
Craig Westerman wrote:
Amazon and others are back ordered 3 to 5 weeks. Does any know of a online
retailer that has them in stock?
Thanks
Craig
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
1:#!/usr/bin/perl -w
2:
3:use strict;
4:
5:my $host;
6:
7:open FH, lunarmedia;
8:
9:while (FH) {
10: $host = $_;
11: if ( $host =~ /^host/ ) {
12:$host =~ s/^hostname\s(.*)/$1/;
13:chomp $host;
14: }
15:}
16:open NFH, $host;
17: print NFH FH;
18:close NFH;
19:close FH;
this script
After the while statement on line 9 is finished, the entire file has been
read and there is nothing left to read. You either close or reopen, or a
better alternative might be to use the 'seek' function
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Tuesday,
This is a small test program I wrote to test the feasibility of what I want
to do.
Basically if an element in the array exists as a package group in the
hash, the array element be replace with the elements of the package group.
A package group is a hash ( I think its actually a scalar reference
Hi,
Anybody know the right syntax to left justify a string with zeros using sprintf ot any
other function?
$test = mytest;
$test = sprintf 0%24s, $test;
print test;
I am getting only one zero.
Thanks for your help.
I.S
__
Get
Rajanikanth Dandamudi [EMAIL PROTECTED] said:
Is there a concept of macros in perl, i.e.
Is there some thing like preprocessor processing
in perl. Thanks in advance.
Nto that I am aware of. I have preprocessed perl scripts with the m4 macro
preprocessor, but you have to be careful to
--- [EMAIL PROTECTED] wrote:
Rajanikanth Dandamudi [EMAIL PROTECTED] said:
Is there a concept of macros in perl, i.e.
Is there some thing like preprocessor processing
in perl. Thanks in advance.
Nto that I am aware of. I have preprocessed perl scripts with the m4
macro
On Jul 17, [EMAIL PROTECTED] said:
$reason2= @theline[$headers{reason\:}];
$s_port = @theline[$headers{s_port}];
You should be warning about using @ when you should be using $.
if(($reason2 ne unknown established TCP packet) and ($s_port ne
nameserver))
I am having to parse dates out of lines where the date format varies considerably.
Here is the statement that is contained in $look
EFFECTIVE DATE: 07/12/01DAILY CUSTOMER ACCOUNT REPORT
RUN DATE: 07/13/01
There are two blanks (in
In reply-to [EMAIL PROTECTED] on Tue Jul 17 16:24:55 2001
On Jul 17, [EMAIL PROTECTED] said:
$reason2= @theline[$headers{reason\:}];
$s_port = @theline[$headers{s_port}];
You should be warning about using @ when you should be using $.
if(($reason2 ne unknown
Hello,
You can use something like:
print lj(Hello, 30, '*') . \n;
#prints Hello*
sub lj{
return $_[0] . ($_[2]||' ') x ($_[1] - length $_[0]);
}
Aziz,,,
In article [EMAIL PROTECTED], F.H
[EMAIL PROTECTED] wrote:
Hi,
Anybody know the right syntax to left
Thanks for your suggestions Jonathan, that seems to stop the script from
looping
now there is another problem with it!!!
it falls over saying can't open newpage at 74 - No such file or directory
at /web/cgi/AZcreate.pl line 74
but the idea is that this file will be created when printing to
The ^ at the start indicates match from the start of a new line.
You don't need this. Try:-
$look =~ /\w{4}\:??\s+([\d\/]+)/;
Gary Luther wrote:
I am having to parse dates out of lines where the date format varies considerably.
Here is the statement that is contained in $look
EFFECTIVE DATE: 07/12/01DAILY CUSTOMER ACCOUNT REPORT
RUN DATE: 07/13/01
DATE: nn/nn/nn
DATE nn/nn/nn
DATE : nn/nn/nn
DATE: nn/nn/
$look =~ /^\s*DATE\s?\W?\s+(\d{2}\/\d{2}\/\d{2,4})/;
First off, if you have literal slashes
It's working here!!
Aziz,,,
#!/usr/bin/perl -w
for $look(DATA){
$look =~ /^\s*DATE\s?\W?\s+(\d{2}\/\d{2}\/\d{2,4})/;
print ++$i . $1\n;
}
__DATA__
DATE: 12/12/12
DATE 12/12/12
DATE : 12/12/12
DATE: 12/12/1212
In article [EMAIL PROTECTED], Gary Luther [EMAIL PROTECTED]
wrote:
I
Hello
In a sub of my script I redirected STDERR in a file. How can I redirect the
STDERR back to the default (screen) for the following subs?
Thanks a lot for your help
Roland
*** PLEASE NOTE ***
This message, along with any attachments, may be
I have been programming perl for quite some time, but i have never used a
'continue' block. It seems just as easy to put any code that one would
normally put in a continue right into the loop itself. What is the purpose
of a continue block? Is there a time where a continue might be prefered to
this should work, tho i haven't tried it:
$look =~ m!DATE[ :]+(\d{2}/\d{2}\d{2,4})!;
should read:
$look =~ m!DATE[ :]+(\d{2}/\d{2}/\d{2,4})!;
^
that's what i get for not trying it!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
On Tue, 17 Jul 2001, Mooney Christophe-CMOONEY1 wrote:
I have been programming perl for quite some time, but i have never used a
'continue' block. It seems just as easy to put any code that one would
normally put in a continue right into the loop itself. What is the purpose
of a continue
As I recall, the Camel book says something like the continue block
is not used often in practice or something like that.
I've not used it either, but you'd use it if you had code in the loop
that interrupts the loop with a next. The code after the continue
gets executed before the condition is
Thanks for your suggestions Jonathan, that seems to stop the script
from looping now there is another problem with it!!! it falls over
saying can't open newpage at 74 - No such file or directory at
/web/cgi/AZcreate.pl line 74 but the idea is that this file will be
created when printing to
Hello,
I need to perform multiple logins in a hop
scheme on Unix machines in order to retrieve a
file.
If I were to do this manually, I would have to do:
rlogin -l username hostname
type password if asked
rlogin -l username secondmachinename
typepassword if asked
Then,
--- Roland Schoenbaechler [EMAIL PROTECTED] wrote:
In a sub of my script I redirected STDERR in a file. How can I
redirect the STDERR back to the default (screen) for the following
subs?
Use local(). It's not something to make a big habit of, but this is a
good place for it.
sub func {
On Tue, 17 Jul 2001, Craig S Monroe wrote:
The middle check is the one I am having problems. I can't find a reference
to make =~ a not equal.
The operator you want is !~
-- Brett
http://www.chapelperilous.net/btfwk/
Thanks! That did it!
Craig
[EMAIL PROTECTED]
Pager
Numeric: 1-877-895-3558
Email pager: [EMAIL PROTECTED]
--
You will never find time for anything.
If you want time, you must make it.
Charles Buxton
- Original Message -
From:
How do I do:
if ($something == ) {
# do something
}
in perl?
Thanks,
Tyler
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Tue, Jul 17, 2001 at 11:17:05AM -0500, Mooney Christophe-CMOONEY1 wrote:
I have been programming perl for quite some time, but i have never used a
'continue' block. It seems just as easy to put any code that one would
normally put in a continue right into the loop itself. What is the
Exactly like that, except using 'eq' instead of '=='.
A slightly easier way, though, would be to say
if (!$something) { ... blah blah ... }
Since $something will return false in a boolean context (if it is empty)
-Original Message-
From: Tyler Longren [mailto:[EMAIL PROTECTED]]
Sent:
That doesn't seem to work. I want if a variable doesn't equal anything,
then do something. Here's a piece:
if ($options{a} eq $options{a} eq ) {
print
Usage: log.pl [-d] -a -i [n]\n
-d : specify device. If nothing, eth0 is used
-a* : specify alias number
On Tue, 17 Jul 2001, Tyler Longren wrote:
How do I do:
if ($something == ) {
# do something
}
in perl?
You can do it that but use ne instead == (that's for numeric values only),
but since an empty string returns false in a boolean context, you can say:
if(!$something) {
#...
}
It's worth mentioning that there are a few different kinds of nothings.
The ones I know that apply to ordinary (scalar) variables are
the number zero, the empty string, with or without a null character
to terminate it, boolean false, and undef, the value of variables that
don't exist yet. A lot
Is this the code you're trying to use? Because if it is, then the problem
is that you're checking $options{a} twice, instead of checking $options{a}
and $options{i} ... ?
-Original Message-
From: Tyler Longren [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, July 17, 2001 1:05 PM
To: Mooney
Sorry for not providing enough of the code. Here's more that will help.
use strict;
use Getopt::Std;
getopts(d:a:i:n:, \my %options);
if (!defined $options{a} !defined $options{i}) {
if ($options{a} eq $options{i} eq ) {
print
Usage: log.pl [-d] -a -i [n]\n
On Tue, 17 Jul 2001, Tyler Longren wrote:
That doesn't seem to work. I want if a variable doesn't equal anything,
then do something. Here's a piece:
if ($options{a} eq $options{a} eq ) {
You are comparing the same thing here twice???
How about
if ( !defined($options{a})
--- Tyler Longren [EMAIL PROTECTED] wrote:
That doesn't seem to work. I want if a variable doesn't equal
anything, then do something. Here's a piece:
if ($options{a} eq $options{a} eq ) {
print
Usage: log.pl [-d] -a -i [n]\n
-d : specify device. If nothing, eth0 is
no...it was supposed to be $options{a} and $options{i}... I accidentally put
a twice in the email
- Original Message -
From: Brett W. McCoy [EMAIL PROTECTED]
To: Tyler Longren [EMAIL PROTECTED]
Cc: Mooney Christophe-CMOONEY1 [EMAIL PROTECTED]; Perl Beginners
[EMAIL PROTECTED]
Sent:
Hi All,
I'm a raw newbie to Perl, but have been coding in Turbo Pascal for many years.
As a way to learn Perl, I've decided to re-implement a text adventure framework that I
wrote in TP
many years ago, that served as a Pascal training vehicle for me.
In Pascal, I used to create an array or
I was involved in the writing of www.e-mol.com and we ran into this same
problem, only with a different situation. E-mol.com allows you to check
your POP3 email from anywhere in the world. Sounded easy enough. But,
what if somebody has 75,000 messages? Well, the browser would time out
waiting
Could you be more specific about what doesn't work? I'm assuming you don't
get any errors or warnings, right?
I tried this code on my system and it works fine. Even if $options{a} is
undefined ($options{a} eq ) should return true and send you into the block
with the print statement.
Is there
If you need it restored within the sub itself, you can also throw
scoping brackets around it. i.e. do what Paul suggested, only:
Sub func {
# Some code here
{
open STDERR, $file or die $!;
# Code for the new STDERR here
}
# STDERR is back to normal here
# More code
}
On Tue, 17 Jul 2001, Chuck Morford wrote:
And about Pascal's Record Type. Is there anything equivalent in Perl
without getting into OOP?
Linked lists are really not necessary in Perl since you can do cool things
with lists that you can't do in Pascal or C. However, I think for what
you are
On Tue, 17 Jul 2001, Evan Panagiotopoulos wrote:
I have an array of X elements and I want to go from the first element
(is it zero?) to the last. I have a variable containing the number of
elements in the array. If the array has 22 elements does it go from 0
to 21 or 1 to 22?
foreach
On Mon, 16 Jul 2001, System Administrator wrote:
This is for newbies, right? Can anyone tell me why a s/^M//g won't get
rid of the annoying ^M on the end of each line of an imported Paradox
database?
I know you've had one solution to this problem already but as TMTOWTDI ...
^M is the
--- Chuck Morford [EMAIL PROTECTED] wrote:
I think I read somewhere that when I store a Reference in an Array it
gets converted to a String and can no longer be used as a
Reference...Is that right?
opps -- I misread this in my initial answer.
Using a reference in a string context will
so how does one redirect both STDERR and STDOUT to $file, do some stuff, and
then get stderr and stdout back and playing nice?
I'm trying:
# if $LogLogfile=YES
if ( $LogLogfile eq YES ) {
print Logging stuff to log file...\n;
# redirect stderr -- stdout.
Try this:
unless( $options{a} $options{b} ) { do_stuff }
if both of those 2 keys have a value in the hash, the will return true,
and the do_stuff won't get exuted
you can also use
if( !$foo !$bar ) or some construct like that, but i find that less
legible...
also, if you want to have it
To the Plethora Of Perl Programmers (P.O.P.P), I seek your guidance.
First of all, can you tell me what is wrong with this script other than
neglecting to use strict. (Im learning)
From the command prompt, it says:
Syntax error near $ENV{'REQUEST_METHOD')
Aborted due to
Can someone tell me why this isn't working on IE?
It works within Opera, I don't know about netscape yet.
print qq~META http-equiv=refresh content=5; URL=http://mypage.html;\n~;
You forgot to localize. =o)
local *STDERR;
Thanks for pointing it out, I completely forgot. :o) 'tis bad practice
to answer in haste I guess. Hehe.
Brian Johnson
Partner/Systems Administrator/Programmer
Source1Hosting.tv, LLC (www.source1hosting.tv)
Source1Results.com, LLC
Wow, that is kind of fun to try and pick apart. But, try this (untested
of course):
if($LogLogfile eq YES) {
print Logging stuff to log file...\n;
{ # Used for scoping STDOUT and STDERR redirection
open(STDOUT, $PathLog) or die Canoot redirect STDOUT: $!;
open(STDERR, STDOUT) or die
Post some code, somebody will be able to pick up on something perhaps
you missed. :o) Can't help without code.
Brian Johnson
Partner/Systems Administrator/Programmer
Source1Hosting.tv, LLC (www.source1hosting.tv)
Source1Results.com, LLC (www.source1results.com)
I may be insane, but remember -
Title: redirect STDOUT to a socket
Hoi,
how can I redirect STDOUT to a socket?
Thanks
Heiko
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Sorry, forgot the code ;)
To the Plethora Of Perl Programmers (P.O.P.P), I seek your guidance.
First of all, can you tell me what is wrong with this script other than
neglecting to use strict. (Im learning)
From the command prompt, it says:
Syntax error near
if ($ENV{'REQUEST_METHOD') eq 'GET')
The left brace for 'REQUEST_METHOD' is curly
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
It looks like you have a ')' where you want a '}' there.
Cheers,
Jeff
At 03:17 PM 7/17/01 -0600, Customer Service wrote:
Syntax error near $ENV{'REQUEST_METHOD')
Aborted due to compilation errors
Script follows:
#!c:/perl/bin/perl -w
if ($ENV{'REQUEST_METHOD') eq 'GET')
following some threads on regex matching on this list, i was able to write some
one-liners in Perl that cleaned up forwarded messages that i typically see in list
emails.
so, you turn something like:
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
On Tue, Jul 17, 2001 at 03:17:54PM -0600, Customer Service wrote:
#!c:/perl/bin/perl -w
if ($ENV{'REQUEST_METHOD') eq 'GET')
}
[You are using a fixed width font, aren't you? The first } should be )]
But yes, you should be using CGI.pm. perldoc CGI should show
Text::Autoformat was featured in the last issue of The Perl Journal (which
is unfortunately not on-line at the moment).
For a third-party (and free!) tool, try eCleaner at
http://members.tripod.com/schin26/index.htm.
___
Stephan Gross
1 - 100 of 118 matches
Mail list logo