I want to make a registration form that separates in 2 pages. The first page asks for
user information and the second page which asks for their education
background. After fill out and summit both forms, I will show their information that
fill out in both forms(like preview page).
For now, i th
It's not all that hard, just follow the links...
but here's the page you can click to download:
http://aspn.activestate.com/ASPN/Downloads/ActivePerl
hth,
Jos Boumans
> Hi all
>
> This amy seem a little silly, but I've checked perl.com, perl.org, and
> activestate.com and cannot find instructi
Hi Everybody,
Is there a shortcut way to subtract dates say for instance I would like to
be subtracting the current date from the date that the service for a
particular user expires, say (expiry date -- current date). Or do I have to
write
a specific script for this. Forgive my newbie ignorance.
Have you installed and DATE::CALC. If so you would do something like this:
# use date calc and get the current time into a hash:
use Date::Calc qw(:all);
my %th;
@th{qw(sec min hour mday mon year wday yday isdst)} = localtime(time);
$th{mon}++;
$th{year} += 1900;
#define the expiatory date
On Jul 22, Steve Howard said:
>Have you installed and DATE::CALC. If so you would do something like
>this:
>
>my $dd = Delta_Days(@th{year, mon, mday}, @expiatory);
I far prefer the simpler (and standard-module) approach of the Time::Local
module. This module is a tool you should get to know we
HELP
Firstly , my greetings to the Pe(a)rl community.
Then,straight ahead to the subject of this e-mail:
I 'm student in the first grade of CEID (Computer Engineering and INformatics
Department) in the University of Patras in Greece.
(which i suppose explains the poor quality of my English :-
HELP
Firstly , my greetings to the Pe(a)rl community.
Then,straight ahead to the subject of this e-mail:
I 'm student in the first grade of CEID (Computer Engineering and INformatics
Department) in the University of Patras in Greece.
(which i suppose explains the poor quality of my English :-
Hello,
i wrote some beginners tutorial on http://japh.nu which deal with most of
the questions you're asking here
maybe you should take a look, see if that answers some of your questions.
regards,
Jos Boumans
HELP
More specifically : my essay demands me to find out about Perl data
types.Would
Sorry for the stupid question - I was just having problems because I
downloaded the wrong version of the windows installer program. Doh!
Tom
-Original Message-
From: Jos I. Boumans [mailto:[EMAIL PROTECTED]]
Sent: Sunday, July 22, 2001 8:02 AM
To: [EMAIL PROTECTED]; Perl List
Subject: Re
Hello again...
I am reading in a file. There is a header of a varying number of lines.
All the header lines start with non-digits. I want to write them right back
out, untouched. All the others get crunched. I haven't been able to get
past the header. I will include samples of both below.
Hello,
After getting all variables of the first form using CGI.pm I assume, you
place these values in hidden fields in the form on the second page. That
way, when the second page is submitted, you have all variables. But then
again, why do we have 2 pages?
Hope this helps,,,
Aziz,,,
In arti
If truly must have a digit to start with to do other processing,
then you could do:
#one form could be:
if ( ! /^\d/ ) {
# print the headers
}else {
# do other processing
}
# or another form:
if ( ! /^\d/ ) {
print
I have tried your example, but perhaps I have something else incorrect in my
script. I included the full script. (I'm fairly new so there may be some
other issues..)
If I exec this script below.. It passes all lines untouched. I have tried
a couple other methods and still no luck..
Thanks..
Use either
---
while (($line=))
{
chomp($line);
if (!($line =~ /^\d/))
{
print OUTDATA "$line **unchanged** \n";
next;
}
else
{
blah blah blah
---
or
---
while ()
{
chomp
Still using Date::Calc, here is a much easier way to do what I posted
earlier:
use Date::Calc qw(:all);
$dd = Delta_Days(Today(), 2002, 1, 23);
print "$dd\n";
In that case it is giving the difference between January 23, 2002 and today
in days. I had forgotten about the "Today" function when I
I nned a module to verify
dates entered in an html cgi form.
Any clues??
hal
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
my code:
#!/usr/bin/perl -w
use strict;
my $info;
my $file;
opendir(DIR, "/etc/") or die "Can't open directory : $!\n";
my @list = readdir(DIR);
for $file(@list) {
next if ( -d $file );
$info = (stat($file))[7];
print "Filename: $file : $info\n";
}
closedir(DIR);
I am getting:
On Sun, Jul 22, 2001 at 08:34:18PM -0500, [EMAIL PROTECTED] wrote:
> opendir(DIR, "/etc/") or die "Can't open directory : $!\n";
> my @list = readdir(DIR);
> for $file(@list) {
> next if ( -d $file );
> $info = (stat($file))[7];
> print "Filename: $file : $info\n";
> }
> closedir(D
Hi Jos,
> That's a good idea Joni,
>
> however, personally, i'd always add a constructor, no matter
> how basic...
>
> you could do something like this (add this to the file joni
> described):
>
> sub new { return bless {}, shift }
Lost me here :(
> this will indicate that this object belongs t
19 matches
Mail list logo
