Hello,
I would like to know how to use win32 functions which
take structures as their parameter.
For example, the API 'SHBrowseForFolder' take the
following structure:
typedef struct _browseinfo {
HWND hwndOwner;
LPCITEMIDLIST pidlRoot;
LPTSTR pszDisplayName;
LPCTSTR lpszTit
Richard KHOO Guan Chen wrote ..
>Just wondering if there is a site which have useful simple perl
>scripts for totally clueless people like me to look at? I am actually
>interested in trimming mail headers (save subject, from etc) for
>storage
http://www.cpan.org/
--
jason king
In Georgi
Sorry if this is a stupid question
Just wondering if there is a site which have useful simple perl scripts
for totally clueless people like me to look at? I am actually interested
in trimming mail headers (save subject, from etc) for storage
Thanks
--
Ah Khoo says
life will never give you gr
Casey West and I are starting up the learn.perl.org site. The first
"feature" was the FAQ for the beginners list; the second feature is
our new Daily Tips list. http://learn.perl.org/tips/
The list is moderated, so you won't get any discussion there. Just
Perl tips. :-)
We'll later have tutori
Thank you for the link, but if anyone out there finds any good links or have any
training center that might be albe to help me.
Thanks to everyone out there
Luis
Quoting Asim Memon <[EMAIL PROTECTED]>:
> http://www.unex.uci.edu/
>
> the list is [EMAIL PROTECTED]
>
> -asim
>
> --- [EMAI
Thanks a load everyone,
I did perl -cw scriptname that worked very nicely and I've got rig of most
of the typos. But I still think I've done some actual coding wrong, as I got
the forms to post an article and re-make one. But I still get Internal
Server error when submitting them.
One thing I ju
At 01:34 PM 5/21/01 -0700, Steven Wensel wrote:
>Hello.
>
>I'd like to use a perl script to do my nightly software builds. I have all
>the steps laid out, but don't know how to start an interactive session in
>perl. I'd like to check out all the latest code in the branch, compile it,
>install, and
> I am trying to send an email to users based on a list of emails that have
> been read into an array. The array contains about 600 records but it
abends
> at around 200.
May i ask what the purpose of that script is?
Maarten.
Hello.
I'd like to use a perl script to do my nightly software builds. I have all
the steps laid out, but don't know how to start an interactive session in
perl. I'd like to check out all the latest code in the branch, compile it,
install, and run unit tests. I figure if I could use a method like
>
> Gary Madden wrote:
> : In response to a user filling out and submitting a form, I want to send
> : the user an HTML page whose URL I've stored as a hidden value on the
> : forms page instead of creating the page within the cgi script. (The
> : other functions of my script work properly.) Thi
Gary Madden wrote:
: In response to a user filling out and submitting a form, I want to send
: the user an HTML page whose URL I've stored as a hidden value on the
: forms page instead of creating the page within the cgi script. (The
: other functions of my script work properly.) This way the pag
In response to a user filling out and submitting a form, I want to send
the user an HTML page whose URL I've stored as a hidden value on the
forms page instead of creating the page within the cgi script. (The
other functions of my script work properly.) This way the page name and
the page content
At 02:17 PM 5/21/01 -0500, Stussie, Mike wrote:
>I am trying to send an email to users based on a list of emails that have
>been read into an array. The array contains about 600 records but it abends
>at around 200.
Woo, I'll answer someone who knows what ABEND means :-)
Your script is producing
On 21 May 2001, at 11:58, [EMAIL PROTECTED] wrote:
> Hi I'm new to the list.
>
> I was wondering if anyone out there might be able to help me out with a little
> problem I'm having. The last couple of weeks I been trying to find a school or
> classes on learning perl , cgi , and so on. I live o
Hi all,
I am trying to send an email to users based on a list of emails that have
been read into an array. The array contains about 600 records but it abends
at around 200.
Here is the error message from the error log
[21/May/2001:14:47:40] failure ( 746): for host 10.416.87.26 trying to POST
>
>I seem to have found some resolution to my problem. I am using strict and
>had been using the module that resides in the standard libs as follows:
>
>use NYT::Cnxdb;
>
>my $cnxdb = NYT::Cnxdb->new
>
>when I say my $cnxdb = Cnxdb->new
>instead, it works. I was assuming that strict would want
I wrote:
: If you did, then did you use the same perl executable to install the
: module that you're using to run it? i.e., does 'which perl' eq the
: shebang line of your script? If you have two perls on your system
: (seems a lot of people do), then it may be that the other module isn't
: inst
At 02:23 PM 5/21/01 -0400, Peter Cline wrote:
>Hello, I am attempting to develop my first module. Because of
>permissions/security, etc.. I cannot store the module in the standard
>perl lib directories. So it is currently living in a subdir called lib in
>my home directory. I use a "use li
Peter Cline wrote:
: Hello, I am attempting to develop my first module. Because of
: permissions/security, etc.. I cannot store the module in the standard perl
: lib directories. So it is currently living in a subdir called lib in my
: home directory. I use a "use lib" directive to add thi
Damien wrote:
: open ARTICLE, "$bkup_dir/$artid.data" or die "Could not open article data file
:$bkup_dir/$artid.data: $!\n";
By the way, if the die() message doesn't end in a newline, then die()
will tell you what line of what script it died on. This is invaluable
for debugging.
-- tdk
Hi I'm new to the list.
I was wondering if anyone out there might be able to help me out with a little
problem I'm having. The last couple of weeks I been trying to find a school or
classes on learning perl , cgi , and so on. I live out in Los Angeles area so if
anyone knows of a good school or
Not being familiar with Sun: Have you tried using the REQUIRE keyword in
your script? (require "write_complete_path_here/Modulename.pm") In Win,
which I'm forced to use: it's analogous to having your module resided on a
shared folder, s, and would be
require "s:/folder1/folder2/Modulen
just a quick thought:
declare your globals at the *start* of the file, not the end
and maybe you might want to use:
use vars qw($foo $bar @baz);
and run the thing under strict and warnings...
you can always mod it so it takes input from teh command line and run it
from there to catch errors
ju
Yes, there is. Here is the high level syntax...
if (-M FILENAME > 2.0)
-M tests file modification age in days
> -Original Message-
> From: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]]
> Sent: Monday, May 21, 2001 2:38 PM
> To: [EMAIL PROTECTED]
> Subject: Time stamp ?
>
>
>
>
Here is a snippet of code which reads a directory and tests for file older
than x:
#!perl -w
my $WorkLoc = 'Directory name here';
opendir(DIR,"$WorkLoc") || die "Unable to open directory $WorkLoc for
read:$!";
while ( 1 ) {
my $filename = readdir(DIR);
last if ( ! defined $filename ); #
Damien wrote:
: ...
: So here are the files, and I home someone can help :)
: ...
It would be a lot more useful if you could get the error message in
your server's error log. Find out where this is and tattoo that
location on the inside of your eyelids. The error log is a CGI
programmer's best f
Jeff wrote:
: open(DOM, GET 'http://URL') || "unable to open website\n";
:
: The GET here doesn't actually get the results it just dumps the
: main URL not the results.
If you're using the GET method from HTTP::Request::Common, then that's
all it will return, the URL. It's encapsulates the requ
hi,
I'm just tryin gtoo wite a CGi script that will make html pages of articles, via an
admin interface. I know there are millions of things like that around. I'm just doing
it for programming practice.
It's quite a long script.The main probem is I get an Internal Server Error when I
run
: if ($oldLot[1] == 0)
: {
: $arpCount = $arp{$lot}; ==> Part 1
: }
: else
: {
: $arpCount = "-"; ==> Part 2
: }
:
: printf "%3s %3d ", $arpCount, $count;
:
: My problem occurs in the "printf" at the "%3s". Here
: is the situation: When $oldLot[1] == 0, $arpCount is
: equal to
Thanks,
Luckinly I just got Linux installed (and working) :). But I'm still having a
problem with my CGI script.
Next email
- Original Message -
From: "SunDog" <[EMAIL PROTECTED]>
To: "Damien Tanner" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, May 21, 2001 9:58 PM
Subje
All,
I want to remove files which are older than 2 days. Is there any easy way
to do that perl (high level syntax, please) ? or do I 've to get the date from
the time stamp of the file and compare with current date to remove them. In UNIX
I use mtime with find command.
I would appreciate
Hello, I am attempting to develop my first module. Because of
permissions/security, etc.. I cannot store the module in the standard perl
lib directories. So it is currently living in a subdir called lib in my
home directory. I use a "use lib" directive to add this directory to
@INC. this
Hi,
I'm using RedHat and it comes with LWP module called
GET, POST written in PERL.
What i'm trying to do is
Write a loop that would take a list of names and send a GET to a URL
then the retuned results i want to search for a Keyword.
I do something like this:
Read a list of names
open(DOM,
if ($oldLot[1] == 0)
{
$arpCount = $arp{$lot}; ==> Part 1
}
else
{
$arpCount = "-"; ==> Part 2
}
printf "%3s %3d ", $arpCount, $count;
My problem occurs in the "printf" at the "%3s". Here
is the situation: When $oldLot[1] == 0, $arpCount is
equal to an integer, but when $oldLot
Hi Damien,
This is a common problem these days ...
Originally most ISP's offered CGI to basic surf accounts now
their mostly restricted to business accounts ...
You have a couple of options ...
1.] pay for a business account ... with CGI etc ...
2.] piggy back o
Yes, we are currently processing it from a file
I would like to move away from that and actually just
use the array, I do not see the need to populate the
array just to toss it to a file for use.
I really would like to capture the output from the nsrclone much like Jeff
showed me how
in his fixer-
--- "Yacketta,Ronald J" <[EMAIL PROTECTED]> wrote:
>
> I need to be able to run a system command and pass it the entire
> @ssids array at once as stdin, not individually.
> the command line looks like this
> nsrclone -b Clone -S -f - < clone_file
> I see how I can do all of that, except how
At 11:49 AM 5/21/01 -0400, Yacketta,Ronald J wrote:
>I need to be able to run a system command and pass it the entire @ssids
>array at once as stdin, not individually.
>the command line looks like this
>nsrclone -b Clone -S -f - < clone_file
>I see how I can do all of that, except how to pass the
Hello folks!
Yes, its me again... ;)
first I would like to thank _everyone_ who has helped me with my little
clone script
and shown me the path from the darkside (no -w no use strict) to the light
side!
I now have one more newb question for the crew here at beginners...
I need to run anoth
: How I get the version from apache??
Try $ENV{SERVER_SOFTWARE}. If you're using mod_perl,
there's a SERVER_VERSION in Apache::Constants.
-- tdk
I have been on AS perl for a number of years and FTP is part of the install.
I am running on win2k, AS 5.6.0. I typeed perldoc Net::FTP and it displaged
out. So what version are you running. I have a scond machine which is
running nt 4.0 service pak 6 and it also has AS 5.6.0 and when I typed in
On May 21, Laurent Marzullo said:
>Insecure dependency in mkdir while running setuid at
>.../File/Path.pm line 137
>sub create_rcsdir
>{
> local( $cctrl , $group ) = @_;
> local( $rcsdir ) = $ENV{ RCSDIR };
>
> mkpath( $rcsdir , 1 , 0750 );
>}
I bet the problem is due to
A rather scantily clad review is at
http://www.pobox.com/~japhy/perl/judfr.txt
There's not much to see, because I'm not really sure I understand the data
structure (or rather, its makeup and purpose), but I do have a couple of
comments about things I would do differently.
--
Jeff "japhy" Pin
I thought it was great to send your stuff to the list to get reviewed?
Sorry I tried.
On 05/18, Shawn rearranged the electrons to read:
> 1st of all, thanks VERY much to Jeff P for the excellent review of
> version 0.4 of my script. I am nearing 0.8, and would like a critique of
> this code.
--
First of all, this is a linux question, not a perl question, so i suggest for
further help you try the appropriate lists, rather then this one.
Now for my 2 bits about linux profiles:
I know redhat's setup, which means that your profile is a .profile file in the
/home/$who dir..
ie, if your logi
Can anyone help me???
I did a which ls 'ell ess' which someone suggested I try to locate my user
profile and this is what came up:
no ell in /home/users/schatzj /home/users/schatzj/bin /opt/sfw/bin /usr/dt/bin
/opt/BackEx/bin /usr/bin /opt/sfw/bin /usr/local/bin /usr/ucb /opt/BackEx/bin .
/usr/
Hello,
I would like to know how to use win32 functions which
take structures as their parameter.
For example, the API 'SHBrowseForFolder' take the
following structure:
typedef struct _browseinfo {
HWND hwndOwner;
LPCITEMIDLIST pidlRoot;
LPTSTR pszDisplayName;
LPCTSTR lpszTit
On Mon, 21 May 2001, kosta gruzdnev wrote:
> > ActivePerl includes Net::FTP. You don't need to install it.
>
> As far as I can see, there is no such file like perl/lib/Net/FTP.pm on
> my WindowsNT system. Moreover, the command "perldoc Net::FTP" results
> in "No documentation found"; but this i
> > Thank all the perl gurus answering our naive novices' questions.
> >
> > ok, now the problem is:
> >
> > I try to install Net::FTP in WinNT. ppm says there is no such PPD
> > file. That's ok, I don't object. As far as I can see, I cannot
> > influence it. Or can I? Anyway, what are the ways
Hello all,
For my first Perl program I tried to do the following:
I've got a user, cctrl (with group cctrl, dev).
I've got a user, project (with group dev, obj).
The name of the cctrl user is in the Environment Variable
$CCTRL and its home directory in $CCTRL_HOME.
Project user launch a perl p
You do have the appropriate modules in your perl\lib directory?
At 09:55 21.05.2001 +0530, you wrote:
>hi
>i am very new to perl. now iam in the process of learning modules.
>I am not able to use the following in my program:
>use strict;
>use warnings;
>use dumper; etc
>these r the only things i
At 12:49 20.05.2001 -0400, you wrote:
>Before I answer your question, I have to ask you to not use subroutine
>prototypes. 9 out of 10 Perl programmers use them incorrectly or don't
>know what they do.
>
>That being said, there are TWO really useful uses:
>
> sub my_map (&@) {
> my $code =
Hello
How I get the version from apache??
Thanks a lot
--
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net
53 matches
Mail list logo
