Eric Amick wrote:
On Thu, 21 Jul 2005 12:05:08 -0700, you wrote:
loris reply:
yes I did try stat ("$dir/$file") it would not work , and I tried many
variation
here is what I finally got to work:
print "Opening $dir \n";
opendir DH, $dir or die "Can't open the current dir $!\n";
while(
Chris Wagner wrote:
You want to check if it's null, not if it's defined. Defined means that the
variable exists. You want something like if ($photo_year) {...}.
At 01:48 PM 7/21/05 -0700, lorid wrote:
my $ARGV[0] will sometimes be passed a string like this:nvIGRA with no
date
Im want to set the $photo_year and $photo_month to another value if it
is not already set.
my $ARGV[0] will sometimes be passed a string like this:nvIGRA with no
date at end and sometimes with date nvIGRA200511
if it does not have date I need to set it another way but cant get
syntax of !d
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
lorid
Sent: Wednesday, July 20, 2005 3:34 PM
To: perl-win32-users
Subject: help with getting file stats
snip of loris code:
( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
$mtime, $ctime
$file_ctr = 0;
my $dir = "/home/lorid/wrccpics";
print "Opening $dir \n";
opendir DH, $dir or die "Can't open the current dir $!\n";
while($file = readdir(DH)){
if(-d "$dir/$file"){
print "\n Dir: $file \n";
$dir_ctr+
Can anyone tell me if I should be able to do both a onclick and a
mouseover imagemap?
I am only able to do one or the other.
thanks
Lori
my attempt:
onclick="alert('north1'); onmouseover="doButtons1('north1');">
onmouseover="doButtons1('east1');" >
onmouseover="doButtons1('south1');" >
o
Just curious
I found thisline in a sample perl program (which created a simple web page)
line:
delete @ENV{'BASH_ENV', 'CDPATH', 'ENV', 'IFS', 'PATH', 'SHELL'}; # For
security.
could someone tell me if I should include this on all web pages I create
and if so why?
thanks
Lori
__
Does anyone have a very short sample program that
presents a html form and gets the input and updates a database ?
I usually do this in C, but would like to start doing in perl.
thanks
Lori
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.Ac
Chris Cappelletti wrote:
There's no way that I'm going to take the name of every function I
ever write and search the Perl docs to see if it's a reserved name.
But don't you just get that feeling that maybe reset might be a fxn of
note? You could always preface your functi
I would like to get some opinions on what is safter,
hidden fields or cookies ?
For my particular program Im thinking that hidden fields might be safer
because its a in house web based program (postgressql dbase) and
* all files live in a protected folder that outside users should not be
able to
sorry , I sent question too soon, long day.
forgot about the conditional reg ex
(test_value ? if_true : if_false)
lori
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysu
I know this is perl not javascript, I thought I was good at deciphering reg ex
but the 2nd line in this function has got me puzzled.
Can anyone decipher:
X = (!X ? 2 : X);
function round(number,X) {
> // rounds number to X decimal places, defaults to 2
> X = (!X ? 2 : X);
> return Math.round(numb
Hi Bill
I just checked out you site and wonder what the cmd.exe is used for ?
Lori
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Here is the string Im trying to split (its a cookie str)
MadHatter Data:
a:7:{i:0;s:19:\"MadhatterSize=Adult\";i:1;s:20:\"MadHatterColors=blue\";i:2;s:15:\"MadHatter_Qty=1\";i:3;s:26:\"product_name=Madhatter_Hat\";i:4;s:8:\"cd_num=2\";i:5;s:4:\"x=39\";i:6;s:4:\"y=12\";}
the data I want is
Madhatt
}
print OUT "$bytes_received bytes received\n";
# XXX Should really do something with the chunk itself
print OUT2 $chunk;
});
print $res->status_line, "\n";
print OUT $res->status_l
.
Ive got the rest working fine but was stuck on the proxy part... thanks again
Lori
"$Bill Luebkert" wrote:
> lorid wrote:
>
> > I am still having trouble using the proxy, I thought I'd send my new code in which
> > I hopefully used your code suggestions correc
->request($req);
print OUT2 $res->as_string;
$response = $ua->get($url);
die "Error while getting ", $response->request->uri,
" -- ", $response->status_line, "\nAborting"
unless $response->is_success;
open (OUT, "< $src") or die
];print
> "value=$$value\n";}'
> value=abc
> SUN1-BATCH>
>
> Hope this helps ...
>
> jwm
>
> -Original Message-
> From: lorid [mailto:[EMAIL PROTECTED]
> Sent: October 29, 2003 14:31
> To: perl users
> Subject: passing parms to subrouti
18 matches
Mail list logo
