Hi Kenneth,
On Thursday 01 Apr 2010 05:49:06 CHAN, KENNETH 1 [AG/7721] wrote:
> Thanks Shlomi, it's clear to me about the umask() now.
Nice.
> Regarding the perl version, I am using the perl come with the Suse Linux
> in my company. Will it be a big job to update the Perl a
Thanks Shlomi, it's clear to me about the umask() now.
Regarding the perl version, I am using the perl come with the Suse Linux
in my company. Will it be a big job to update the Perl and making sure
other installed modules (dependencies) working fine? Can you please
guide me to some good reso
CHAN, KENNETH 1 [AG/7721] wrote:
Hi all,
Hello,
I have 2 simple questions (maybe be very trial):
1. I saw some code put "umask 022;" in the near beginning of perl
script. I understand that umask is for changing the file permission in
unix/linux.
No, that is incorrect. umask()
Hi Kenneth,
On Wednesday 31 Mar 2010 11:34:37 CHAN, KENNETH 1 [AG/7721] wrote:
> Hi all,
> I have 2 simple questions (maybe be very trial):
> 1. I saw some code put "umask 022;" in the near beginning of perl
> script. I understand that umask is for changing the file perm
Hi all,
I have 2 simple questions (maybe be very trial):
1. I saw some code put "umask 022;" in the near beginning of perl
script. I understand that umask is for changing the file permission in
unix/linux. However, if I put "umask 002" in the beginning of a perl
script, after
ompatible; although such old code may not be
the best way to do something, it generally will get the job done.)
> umask 0022;
> The problem I'm having is that the permissions on the files being
> created are 644 and not 755. I know it has something to do with octals
> but I'
sam wrote:
umask 0022;
while ($exercises > 0)
{
open EXERCISE, ">exercise" .$lesson ."_" .$exercises .".pl";
The problem I'm having is that the permissions on the files being
created are 644 and not 755.
Then change them using the chmod() fun
"How many exercises are there? ";
> chop($exercises = );
>
> #print "What is the date today?(MM/DD/YY) ";
> #chop($date = );
>
> ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
> localtime(time);
> $year += 1900;
> $year = sprintf("%02d&qu
);
#print "What is the date today?(MM/DD/YY) ";
#chop($date = );
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
$year += 1900;
$year = sprintf("%02d", $year % 100);
$date = ++$mon ."/" .$mday ."/" .$year;
umask 0022;
while ($
