Thanks for the suggestions.
The problem is that for these META-tags to work, they have to be in the
header, not the body of the HTML. Thus if I use
#*** Start HTML stuff ***
print $q-header,
$q-start_html(-title='New page',
-style={'src'='mystyle.css'});
and then
On Wed, 20 Nov 2002 at 13:58, Michael Kelly opined:
MK:On Wed, Nov 20, 2002 at 02:02:05PM +, Nick Malden wrote:
MK:
MK:CGI.pm doesn't support http-equiv meta-tags, according to the documentation.
MK:What about something as simple as:
what? snippet from perldoc CGI:
To create an HTTP-EQUIV
NAME
beginners-faq - FAQ for the beginners-cgi mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to [EMAIL PROTECTED]
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email
Perl/CGI really doesn't seem to like this way of doing META tags. I've
trimmed the irrelevant stuff, am the core of what I'm trying is the
following:
#!/usr/local/bin/perl
use POSIX;
use CGI;
$q = new CGI;
print $q-header,
$q-start_html(-title='New page',
sub mainHeader{
print $q-header( -type = text/html, -expires = now ),
$q-start_html( -title = Your Title);
This has always worked for me. I don't know if will do everything for you.
-Original Message-
From: Nick Malden[EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Wed Nov 20
Hi,
Try using
use CGI qw/:standard/;
Works for me
Cheers
Koen
-Original Message-
From: Nick Malden [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 21, 2002 2:39 PM
To: fliptop
Cc: Michael Kelly; Perl Beginners CGI List
Subject: Re: Non-caching META-tags
Perl/CGI really doesn't
Hello all,
I've made a spider which gets cookies from web sites, then it sends it back
to the next pages.
The script works for some pages, but for others it gives me the following
error message:
[Thu Nov 21 19:10:31 2002] [error] [client 127.0.0.1] Can't locate object
method host via package
One easy way is to run the command:
perldoc perllocal
Jason
Jerry M . Howell II [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
Hello there,
I was wondering if there is an easy way to list the perl modules that
are
installed on a system?
--
Jerry M.
At the end of your perl program, add the line:
system( PAUSE );
http://www.computing.net/programming/wwwboard/forum/3270.html
HTH,
Jason
Gary Rocco [EMAIL PROTECTED] wrote in message
001301c290f9$02bad3d0$93b500c7@hppavilion">news:001301c290f9$02bad3d0$93b500c7@hppavilion...
when i ran perl
On Thu, 21 Nov 2002 at 08:09, Michael Kelly opined:
MK:On Thu, Nov 21, 2002 at 07:19:37AM -0500, fliptop wrote:
MK: On Wed, 20 Nov 2002 at 13:58, Michael Kelly opined:
MK:
MK: MK:On Wed, Nov 20, 2002 at 02:02:05PM +, Nick Malden wrote:
MK: MK:
MK: MK:CGI.pm doesn't support http-equiv
Another quick dirty trick is to just put a
STDIN;
at the end of your script. This makes yours script wait for input. When
you hit enter it will terminate and the window will close. Of course,
this only works if your script gets to the end. If it runs into a compile
error, you'll see the error
I get no documentation found for this method (solaris w/ 5.6.1), but I would imagine
that would only list the base modules. If you are on unix the following is more
elegant, from the perldoc perlmodlib page (not sure why it took me so long to find
again, grr..)
To find out all modules
Hi all,
I am writing a program which will re-arrange a doc++ comment.
A doc++ comment is a C/C++ comment that starts with an extra *. An
example of a doc++ comment is this:
/**
@doc Some general info about a function.
@precondition Any precondition that the function has
@postcondition
Please also note that I am passing a reference to an array of strings
that contains the doc++ comment to this subroutine. Subsequently, I get
the array of strings that is the doc++ comment into a single string
which I then attempt to use pattern matching to extract the different
components of
Hello every body,
How to know what task have run a perl script ?
I mean is possible to get within the code which process Id have start the
script.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Exactly. For those of you playing along at home, the way that you would do
this is something like this:
##
my @array = qw(one two three);
my %hash = (first = 'Tim', last = 'Johnson', geek = 'yes');
my $scalar = This is my string.\n;
Hello there all again,
I would like to know what perl modules Are probably used most often on
a webhost server. I had someone try and run the Ikonboard and I found out
we didn't have the module installed, after I installed it the board ran
flawless but it also got me thinking about all the
On Thu, 21 Nov 2002, David Buddrige wrote:
Hi all,
I am writing a subroutine which is intended to take an array of strings,
and concatenate each string in the array into a single [very long] string.
The subroutine is listed below.
My problem is that for some reason when I print
When you print() an array, do not put it in quotes unless you want Perl to
put the default record separator between each element of the array. Take
out the double-quotes and it will come out the way you want.
-Original Message-
From: Jose Malacara
To: [EMAIL PROTECTED]
Sent: 11/20/02
On 21 Nov 2002, Jose Malacara wrote:
Can someone please tell me what I'm doing wrong here?
I have a data file that looks like this:
jason,texas,austin
tim,denver,colorado
jose,oregon,portland
And a script to update the last field and output the results with the
new city:
Jose Malacara said:
Can someone please tell me what I'm doing wrong here?
I have a data file that looks like this:
jason,texas,austin
tim,denver,colorado
jose,oregon,portland
And a script to update the last field and output the results with the
new city.
Without having tested, I would
David Buddrige wrote:
Hi all,
Hello,
I want to write a subroutine that takes an array and a hash as input
parameters and then does some work on them. I can't seem to determine
how to do this however; it seems that with a subroutine, all you can
pass is a single array ( which appears as
It is posible on unix like system ( must be possible on others too But I
dont know )
On my machine which happens to be linux I do
$Parent_id = `cat /proc/$$/status |grep PPid |awk '{print \$2}'`
chomp $Parent_id
If you want the process name too you will get it from /proc/$Parent_id/stat
But
It is posible on unix like system ( must be possible on others too But I
dont know )
On my machine which happens to be linux I do
$Parent_id = `cat /proc/$$/status |grep PPid |awk '{print \$2}'`
chomp $Parent_id
If you want the process name too you will get it from /proc/$Parent_id/stat
But
Cedric Gross wrote:
Hello every body,
Hello,
How to know what task have run a perl script ?
I mean is possible to get within the code which process Id have start the
script.
perldoc -f getppid
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to [EMAIL PROTECTED]
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email address):
Hi , I need to write an email that will port incomming emails directly to a Mysql DB.
I'm running Linux with
sendmail. Here's what I did so far , I'm forwarding all incoming emails to an alias
that's piped to the perl
script. Everything works fine , my only problem is to extract the message body
Hi, I am really new to Perl.
I have set up Activeperl in my windows NT system. I have some source file.
But I really get no idea how to run the source file. Could anybody give me
a go?
I have checked the following sites but found few introduction to windows user.
[EMAIL PROTECTED] wrote:
Hi, I am really new to Perl.
me too
I have set up Activeperl in my windows NT system. I have some source file.
But I really get no idea how to run the source file. Could anybody give me
a go?
try this: http://www.wdvl.com/Authoring/Languages/Perl/Windows/
I have
I am new too! I have tried Activeperl on my XP machine at home and found
that you have to run the version I have in a command window.
c:perl file name
I hope this helps.
Jim Blanchard
-Original Message-
From: Sorin Marti [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 21, 2002
I too am rather new to Perl, and have found the OpenPerlIDE debugger to be
helpful. It is available on sourceforge.net and probably elsewhere.
Hope that helps.
-rz.
She was trying to construct a life that made sense from things she found in
gift shops.
-kv.
-Original Message-
From:
Just to help out Huan Huang below:
Huan Huang wrote:
I have set up Activeperl in my windows NT system. I have some source file.
But I really get no idea how to run the source file. Could anybody give me
a go?
You basically need to associate the file type with the perl interpreter. I am not
Dear friends,
could you please show me the way,how to write the code forconverting data from input_file tooutput files (1001.out,1002.out,1003.out) format.(please see an example attached)
I have already doing with this code writingabout four week,butunfortunatlly..,becouse i'm just
Thanks, Jeff.
Yes, index ... with all the special names avail I thought there might be one
to identify the position of the element within an array.
Bob
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, November 19, 2002 9:45 PM
To:
Hi,
I'm facing the same problem mentioned below Pattern match read eof. Any
ideas what could be the reason?
Thanks
--
I'm trying to use the Net::Telnet module to talk
to a port a remote machine. There is an application
on the remote
Hey Vitali,
I am also a beginner, so I don't know if I am doing everything most efficiently...
but, here is what I wrote to do this. I wouldn't normally just write a program for
someone, but the problem intrigued me. Take a look through the code and it will
hopefully make sense. I hope
On Thu, Nov 21, 2002 at 07:56:51AM -0500, Sturdevant-Contractor, Robert W wrote:
Thanks, Jeff.
Yes, index ... with all the special names avail I thought there might be one
to identify the position of the element within an array.
Bob
I might be imagining this, but I thought I remembered
Hello everyone,
I have a bunch of folders that I would like to search through for a
particular string. Any hints on how to do this? I do not know the names of
all the files, but would like to be able to return the name.
Basically this is so I can search a bunch of files for a word, and be
on most *nix, you can use grep -rni
example: grep -rni '*.dat'
-Original Message-
From: Chris Zampese [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 21, 2002 4:08 PM
To: [EMAIL PROTECTED]
Subject: searching files
Hello everyone,
I have a bunch of folders that I would
Well on unix you could do this with a bit of find and grep, but if you are not on unix
or still want to do it the perlish way, you should check out the File::Find module,
then perldoc -f open and perldoc -f grep. Aka find the files, open each, store the
file to an array, run a grep on the
Any idea if we can use perl /perlldap with SSL.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
David Buddrige wrote:
Hi all,
I am writing a program which will re-arrange a doc++ comment.
A doc++ comment is a C/C++ comment that starts with an extra *. An
example of a doc++ comment is this:
/**
@doc Some general info about a function.
@precondition Any precondition that
Chris Zampese wrote:
Hello everyone,
I have a bunch of folders that I would like to search through for a
particular string. Any hints on how to do this? I do not know the names
of all the files, but would like to be able to return the name.
Basically this is so I can search a bunch
Stephan Viljoen wrote:
Hi , I need to write an email that will port incomming emails directly
to a Mysql DB. I'm running Linux with sendmail. Here's what I did so far
, I'm forwarding all incoming emails to an alias that's piped to the perl
script. Everything works fine , my only problem is
MIME-Version: 1.0
Message-ID: [EMAIL PROTECTED]
Date: Thu, 21 Nov 2002 11:39:22 +0200 (FLE Standard Time)
Content-Type: Multipart/Mixed;
boundary=Boundary-00=_MT6X12S0
X-Mailer: IncrediMail 2001 (1800838)
References: 2E4528861499D41199D200A0C9B15BC031B895@FRISTX
Hello I am looking for ideas to traverse a directory
structure and print all jpg files in the directory
along with their parent directory. For example if I have
Folder1 with 1.jpg 2.jpg 3.jpg
Folder2 with A.jpg B.jpg C.htm
By running test.pl in Folder1 and Folder2s parent
directory
Depends on what you are really doing. If only one level, then opendir
and readdir would be one way. If there are other folders and you need to go
down them, then File::Find would probably be a good way to go.
Wags ;)
-Original Message-
From: Tim Booher [mailto:[EMAIL PROTECTED]]
How do I do the following without getting the message
Can't use string as hash ref while strict refs in use
use warnings;
#use strict;
my($a, @b, $c);
$a = '20020603';
$b[1] = 'name1';
$b[2] = 'name2';
$b[3] = 'name3';
my %h;
$h{$a} = $a;
$h{$a}-{$b[1]}= 1;
$h{$a}-{$b[2]}= 2;
$h{$a}-{$b[3]}= 3;
-- Forwarded Message --
Subject: Re: Declare $main::scalar in begin with 'use strict'
Date: Thu, 21 Nov 2002 16:51:43 -0600
From: Dr. Poo [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Dude, you rule. That's all i have to say besides, yah, you rule.
This worked perfectly. Why the
chris wrote:
How do I do the following without getting the message
Can't use string as hash ref while strict refs in use
use warnings;
#use strict;
my($a, @b, $c);
$a = '20020603';
$b[1] = 'name1';
$b[2] = 'name2';
$b[3] = 'name3';
my %h;
$h{$a} = $a;
$h{$a} = {};
Or leave this line out all
Well, you can stop trying to use a string as a hash reference?
For starters, you should never name variables $a or $b because these are
special variables if you ever do a sort.
Besides that, though, you are assigning $a the value '20020603'. Then you
assign the value of $a to the hash key $a,
On Thu, 21 Nov 2002 07:42:55 -0500, [EMAIL PROTECTED] (Wiggins
D'Anconia) wrote:
chris wrote:
How do I do the following without getting the message
Can't use string as hash ref while strict refs in use
use warnings;
#use strict;
my($a, @b, $c);
$a = '20020603';
$b[1] = 'name1';
$b[2]
How do I export a Constant from a module?
Test.pm:
package Test;
@EXPORT_OK = qw(__what__);
use constant FOO = 123;
--
In the land of the dark the Ship of the
Sun is driven by the Grateful Dead.
-- Egyptian Book of the Dead
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
I dont know why I am having such a tough time
creating a directory.
I have the following code, but for some reason I cant
create a directory:
#!/usr/bin/perl
-w
#
Microsoft Windows Win32
use
strict;
use File::Find;
my $i;
my $cs;
my @myArray; #
array to hold matches
my
I'm getting confused - I have the following script
open(DESK,gtkdoclist) or die cant open;
@desk1=DESK;
foreach $desk1 (@desk1){
chomp $desk1;
print $desk1\n;
$gtkdoc1=system(grep -h gtk_doc_min_version= $desk1);
chomp $desk1;
print $gtkdoc1;
however the output is this
(notice the zeros at the
On Win running 5.6.0 build 623- How do I upgrade my version of PPM 2.12 to
3.01
Help appreciated
Regards
Clinton
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Gidday all,
Can I use Perl to open a word document ?
Our press releases come to us as word docs, we cut and paste the text into our
cms(Interwoven Teamsite), and then publish on the web.
Im wondering if I can write some perl code so we can just upload the document and perl
will do the rest.
On Thu, 21 Nov 2002, Tim Booher wrote:
I don't know why I am having such a tough time creating a directory.
I have the following code, but for some reason I can't create a
directory:
#!/usr/bin/perl -w
# Microsoft Windows Win32
use strict;
use File::Find;
The find function of
Mike wrote:
I'm getting confused - I have the following script
open(DESK,gtkdoclist) or die cant open;
@desk1=DESK;
foreach $desk1 (@desk1){
chomp $desk1;
print $desk1\n;
$gtkdoc1=system(grep -h gtk_doc_min_version= $desk1);
chomp $desk1;
print $gtkdoc1;
however the output is this
Hi,
One part of my script ads several strings into one:
$text = $part1.$part2.$part3.(...etc)
However, if the part3 through part10 were empty I get that many white spaces
at the end of $text. I thought the best thing would be just to remove the
spaces at the end, but how? (maybe search and
On Fri, 22 Nov 2002, Mariusz K wrote:
Hi,
One part of my script ads several strings into one:
$text = $part1.$part2.$part3.(...etc)
However, if the part3 through part10 were empty I get that many white spaces
at the end of $text. I thought the best thing would be just to remove the
Why not just upgrade to ActivePerl 5.6.1 build 633?
-Original Message-
From: Clinton
To: [EMAIL PROTECTED]
Sent: 11/21/02 7:52 PM
Subject: upgrading PPM
On Win running 5.6.0 build 623- How do I upgrade my version of PPM 2.12
to
3.01
Help appreciated
Regards
Clinton
--
To
Does this look correct below. I know that I should test but due to the
environment that this program lives it is difficult track down problems.
It is a trigger off of a db. Can anyone take a few seconds to provide
feedback. Is there a betterway? The problem that I am trying to solve
here is a slow
63 matches
Mail list logo