[EMAIL PROTECTED] wrote:
>
> I'm trying to validate if a string contains \w and required atleas one
> period (.)
By \w do you mean just whitespace or '\\w'?
> This one check but does not require a period. Can someone change
> it please?
>
> sub isValidDomain { return shift =~ /^[\w\.]{3,}$/ }
-
> "Bryan" == Bryan Harris <[EMAIL PROTECTED]> writes:
>> use File::Copy;
>> copy "header.incl", \*STDOUT;
Bryan> I like this, it's very clean.
Bryan> Unfortunately I'm having trouble using it in a cgi script...
Bryan> **
Bryan> #!/usr/bin/perl -w
Bryan>
On Thu, Oct 02, 2003 at 01:44:37AM -, PerlDiscuss - Perl Newsgroups and mailing
lists wrote:
> Hi,
>
> I have a CGI script that takes some time to finish searching the DB. In
> the meanwhile, how do I show that the job is being processed?
>
> I tried just simple printing the same, but it wou
Hi folks
I've got a query about variable initialisation. I want to initialise a list of
variables to an empty string, but I'm having troubles.
What's the best wat to do this?
If I use the following I get:
[EMAIL PROTECTED] gary]$ cat t
#!/usr/bin/perl -w
use strict;
my $fred=$ginger='';
pr
> but if I use:
>
> [EMAIL PROTECTED] gary]$ cat t
> #!/usr/bin/perl -w
>
> use strict;
>
> my ($fred,$ginger)='';
>
> print "fred=$fred\n";
> print "ginger=$ginger\n";
> [EMAIL PROTECTED] gary]$ ./t
> fred=
> Use of uninitialized value in concatenation (.) or string at
> ./t line 8.
> ginger=
On Friday, October 3, 2003, at 09:55 AM, Gary Stainburn wrote:
Hi folks
Howdy.
I've got a query about variable initialisation. I want to initialise a
list of
variables to an empty string, but I'm having troubles.
What's the best wat to do this?
How about:
my($fred, $ginger) = ('') x 2;
James
> my $fred=$ginger='';
Should be:
my $fred = my $ginger = '';
> my ($fred,$ginger)='';
Should be:
my ($fred,$ginger) = ('','');
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Friday 03 Oct 2003 4:05 pm, James Edward Gray II wrote:
> On Friday, October 3, 2003, at 09:55 AM, Gary Stainburn wrote:
> > Hi folks
>
> Howdy.
>
> > I've got a query about variable initialisation. I want to initialise a
> > list of
> > variables to an empty string, but I'm having troubles.
>
> Ahh. A buffering issue.
> Your content-type: is not appearing before the header.incl. You need
> to add "$| = 1;" before the print.
>
> That's the reason I start nearly all my CGI scripts with:
>
> #!/usr/bin/perl -Tw
> use strict;
> $|++;
>
> so that I don't ever have to
> It's open to user error quite easily
You can also use this...
my $x = my $y = '';
...Or...
my ($x, $y);
$x = $y = '';
...Or...
init(my ($x,$y));
sub init {
$_ = '' for (@_);
}
This last one uses the fact that $_ is an alias to the array item in @_, and
@_ contains aliases to the variabl
> And what is the "T" in -Tw? That doesn't appear to show up in the man
> page...
T means tainted. It's what you want to run on all code in your cgi-bin
directory so that a hacker can't r00t your box. Basically it prevents
your perl script from doing anything dumb.
Out of curiousity, is the fi
Hi All,
I am sure people must be doing that regularly.
How do i package my Application to give to the customer??.
Like creating packages for different platforms linux, debian, sun, windows etc.
Any pointers would be greatly appreciated.
Thanx,
-Sharad
--
To unsubscribe, e-mail: [EMAIL PROTE
Danny:
My question was that I have multiple lines in a graph, and I want the first line to be
thicker that the others. Setting line width set all lines to the same width, that is
not what I want to do.
Or I must have missed something. Is line width global to the graph or is it settable
per
Hello,
I'm rather new to PERL. How do I go about sorting
a simple text file using PERL? This is what I want
to accomplish.
# sort /etc/passwd > /etc/passwd-new
# mv /etc/passwd-new /etc/passwd
Thanks in advance for your help.
-Dean
---
Outgoing mail is certified Virus Free.
Checked by AVG ant
Is there a perl module or else to help read the url below from the url location bar in
the browser. This url is generated by the database vendor, so I have no control over
it. I know if it was a form it would be easy, but there is no form that I generated.
After a search is performed in the data
On Friday, October 3, 2003, at 01:45 PM, Dean Do wrote:
Hello,
Howdy.
I'm rather new to PERL. How do I go about sorting
a simple text file using PERL? This is what I want
to accomplish.
# sort /etc/passwd > /etc/passwd-new
# mv /etc/passwd-new /etc/passwd
Any good reason not to use the above?
If you keep your replies on the list, you'll get help from all the
people much smarter than me. ;)
On Friday, October 3, 2003, at 04:09 PM, Dean Do wrote:
> # sort /etc/passwd > /etc/passwd-new
> # mv /etc/passwd-new /etc/passwd
Any good reason not to use the above? :)
[dean] Thanks for yo
Dean Do wrote:
>
> Hello,
Hello,
> I'm rather new to PERL. How do I go about sorting
> a simple text file using PERL? This is what I want
> to accomplish.
>
> # sort /etc/passwd > /etc/passwd-new
> # mv /etc/passwd-new /etc/passwd
Are you sure you want to modify /etc/passwd? Which field do
Hi,
Something to be aware about when modifying the password file is that it
should be locked to prevent another process from modifying it at the
same time. There are different conventions on different systems for
doing this and they depend also on the tool for modifying the password
file.
For ex
[ paragraphs correctly renumbered and one link fixed - tn ]
Hi,
Something to be aware about when modifying the password file is that it
should be locked to prevent another process from modifying it at the
same time. There are different conventions on different systems for
doing this and they de
On occasion someone sends out a mail message with MIME attachment that we want
to delete from the recipient's spool file. This happens on a Solaris box, so I'm
talking about editing /var/mail/, and there are often dozens
of recipients.
What we've been doing is using "mutt -f" to open each individ
It's settable per line...
line_width => [1, 2, 3],
1 is the default weight.
HTH,
Danny
-Original Message-
From: Yi Chu [mailto:[EMAIL PROTECTED]
Sent: Friday, October 03, 2003 2:37 PM
To: Danny Miller; [EMAIL PROTECTED]
Subject: RE: How to draw lines with different line wi
Based on your delete criteria, it would be much easier to filter out
unwanted mail messages on an incoming relay mailer in your DMZ. You
could do other things there such as filtering out mail with MIME
attachments beyond a certain size limit, or just nuking the attachemnts.
You should not have to
[EMAIL PROTECTED] wrote:
> Is there a perl module or else to help read the url below from the
> url location bar in the browser. This url is generated by the
> database vendor, so I have no control over it. I know if it was a
> form it would be easy, but there is no form that I generated. After a
>
I can't seem to get this script working. I just want a simple code so I
can send mail that can change the reply address. I could get the command
line /bin/mail working with a system("/bin/mail..."); but I could not
change the From so it doesn't say [EMAIL PROTECTED] I don't want to open
socket and
/bin/mail and other Unix/Linux user mail agents preserve the From
address based on your login UID. There is no way to make them lie about
the From address without modifying their sources. It's possible to
setup domain masquerading with sendmail or qmail. That way you could
fake the @some.com par
I need to send a mail from the cgi. It must be able to have a reply or
sender as someone different from the local web owner (apache). My
configuration:
redhat 9/qmail/vpopmail
The example below will be typically what I want:
To: [EMAIL PROTECTED]
From: [EMAIL PROTECTED]
Subject: "hello support
[EMAIL PROTECTED] wrote:
I need to send a mail from the cgi. It must be able to have a reply or
sender as someone different from the local web owner (apache).
See http://search.cpan.org/modlist/Mail_and_Usenet_News/Mail
--
ZSDC
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
Perhaps you can use sqwebmail. It supports vpopmail authentication but
requires Maildir format mailboxes. Maildirs were introduced with qmail
and have reliability advantages over the usual Mailbox files. If you
need to convert Mailboxes to Maildirs, see the qmail docs. Sqwebmail is
available fr
I'm just trying to send mail from a programming script NOT a real client.
For example, a monitor script calculating the disk storage and sending a
report/alert via the perl program.
I really don't want to add more library or module than necessary. So if
you guys can detect something wrong with thi
On Thu, 2 Oct 2003 00:10:57 -0700 (PDT), <[EMAIL PROTECTED]> wrote:
both of these works:
return (getVUser($dbh,$u,$d))->rows();
and
return getVUser($dbh,$u,$d)->rows();
The first version works, but I'd recommend avoiding it as it suggests that
the following should work similarly - but it do
Steve Piner [EMAIL PROTECTED] wrote:
> On Thu, 2 Oct 2003 00:10:57 -0700 (PDT), <[EMAIL PROTECTED]> wrote:
>
> >both of these works:
> >
> >>> return (getVUser($dbh,$u,$d))->rows();
> >and
> >return getVUser($dbh,$u,$d)->rows();
>
> The first version works, but I'd recommend avoiding it as it
Thanks, you did good with this code for me. I did not want to load more
library as most suggested. This works just fine with only one exception. I
needed to use the -t option. Here is the revised version which worked for
me:
#/usr/bin/perl
use strict;
use warnings;
my $mailprog = '/usr/sbin/sendm
33 matches
Mail list logo
