chmod(0777,$currentlog) or die "Can't change permissions: $!"
[download]

I put that line in mycode but it just goes past it and gives' me the same error:
Permission denied at temp.pl line 20
Does this mean i do have permission do change its permissions. I dont see how i have to contact the admin as this is MY computer nobody uses it except me :/ so i'm really confused why i dont just have permission to do everything with everything.

Permission denied at temp.pl line 20

You know, it would be very helpful if you provided a complete program (as short as possible!) that does only the chmod & open of one file and nothing else. Also provide the list of owners & permissions for the file in question and the directory it's in.

i'm really confused why i dont just have permission to do everything with everything.

Probably because the sysadmin doesn't have the time to fix all those installations that get completely scrambled when users are allowed to do anything and everything to it.
"What should it profit a man, if he should win a flame war, yet lose his cool?"

use warnings;
use strict;
opendir(LOGS, "/perl/ass/") or die "Couldn't open /perl/ass/, $!";
my @logfiles = readdir(LOGS);
print "File: $_\n" for @logfiles;
[download]

Update: Oh, Win32. Your initial code threw me off because you used '/' in your file and directory paths. I don't do enough Win32 work to help - sorry.

Yeah i've been useing the step through function to see whats in them, i start the $hour variable at 2 to avoid the leading ',' & '..' , $currentlog is the first subfolder in /ass/ "1-month-go"

You are not checking whether the chmod succeeds. It could fail, f ex if you have neither ownership of the file nor root access (administrator rights, I presume).

Which is likely your problem in the first place. In which case: Sorry, the owner or administrator will have to give you access.

use strict;
use warnings;
[download]

my $currentlog = "/perl/ass/@logfiles[$hour]";
[download]

my $currentlog = "/perl/ass/$logfiles[$hour]";
[download]

To solve your current problem, I suggest you download and install the sysinternals (now Microsoft) Handle utility which will allow you to see all processes on the system which have this file open.

Another way to get this error message that I've occasionally seen is when the file in question is open with a lock by another program.

--roboticus

chmod (0777, $currentlog); # << shouldnt this give me permission?!?!

I'm doing this on a windows platform by the way

To the best of my knowledge (awaits chorus of "what ARE you talking about, if I'm wrong), Windows doesn't know diddly from chmod.

FYI: http://perldoc.perl.org/functions/chmod.html,
for Perl, although you may well be right about MS, certainly if filesys is VFAT/FAT32 ?
NTFS may support something similar?
Chris

Chrism... I think you're missing the point: Windows does not support unix style permissions. It has its own scheme and quite different "system hooks.</" Hence, unless the docs for your W32 version of perl specifically say that chmod DWIMS on an IIS server, it's extremely UNLIKELY to do so.   See:
http://www.tnsites.com/support/s_CHMOD-tutorial.asp


How to convert CHMOD Commands (Permission Codes) to Windows Permissions
You cannot set CHMOD on a Windows 2003 server since that is a Unix/Linux server command function that does not work on Windows IIS5 servers....

Suggest you read the original (above), or, similarly,
http://www.1planhost.com/support/s_CHMOD-tutorial.asp
and many other ISP explanations (LIGHT APPEARS! ...perhaps even that provided by the relevant ISP?)

Other, perhaps useful discussions appear at:
• http://www.mkssoftware.com/docs/man1/chmod.1.asp
• http://lists.evolt.org/archive/Week-of-Mon-20020930/123647.html
  

  "With command line access you can use attrib, but this won't allow you to add/change account/group access.
  ...
  You probably need to add read/write/modify access the IIS web server account to the target directory."

• http://www.opentechsupport.net/forums/archive/topic/22905-1.html
  (assume garish background, hurts the eyes, but ain't entirely useless.
Hope this helps.

Hi. You are getting permission denied, because you are attempting to open a directory as a file

Your readdir is pulling in all the entries in your /perl/ass folder including subdirectories. You then attempt to open one of those subdirectories as a file.

You might want to use the -d operator to test if $currentlog is a directory or not before attempting to open it.

I agree with bingos. Don't get thrown off by the error message by Windows, you'll indeed get a "Permission denied" error message if you try to pull one of the stunts that bingos said: trying to open a file as a directory, or vice versa. But it could have some other, but similarly esotheric cause. Just don't stare yourself blind on the word "permission".

ah yeah makes sense now thanks :D , my mate said to say your the shiz!! lol
I looked up your -d and also found the -T which i am useing as i am only dealing with text files,
so i do this now to avoid directory's:

if ( -T $currentlog )              #checks wether the file is a text f
+ile
   {
      open(CURRENTLOG, $currentlog)|| die "file not found: $!";
   }
   else . . .
[download]

However i am now getting the error
"Permission denied at tempCHRONO.pl line 76, <CURRENTLOG> line 1"
on the code

$oldlocation = "/perl/ass/$logfiles[$hour]";           #Cut and Pastes
+ the log file into corresponding folder
            $newlocation = "/perl/ass/$folder[$N]/$logfiles[$hour]";
            print " old = $oldlocation \n new = $newlocation\n";
            move($oldlocation, $newlocation) or die "File cannot be mo
+ved: $!";
[download]

I didnt really wanna post all my code as that is not me solving the error myself at all but if it helps :

#!/usr/bin/perl
use Date::EzDate;                                #Requests to use the 
+date mod
use File::Copy;


my $currentdate = Date::EzDate->new();           #Loads the current Da
+te an Time

#
#Manageing Log Files Chronologically
#
my $hour = 2;
until ($hour > 26)                                                #Loo
+p to read all log files
  {
      my $dateloaded = Date::EzDate->new();                       #tak
+es todays date
      opendir(LOGS, "/perl/ass/")|| die "dir not found";          #Ope
+ns the folder containing the days log files
      my @logfiles = readdir(LOGS);                               #Put
+s the name of all files into an array
      closedir(LOGS);

      my $currentlog = "/perl/ass/$logfiles[$hour]";
      
   if ( -T $currentlog )              #checks wether the file is a tex
+t file
   {
      open(CURRENTLOG, $currentlog)|| die "file not found: $!";
   }
   else
   {
      $hour++;
   }
         $firstline = <CURRENTLOG>;
         $date  = substr($firstline,0,2);                          #Ta
+ke the day of month from the log
         $date2 = substr($firstline,3 ,2);                         #Ta
+kes the month from the log
         $today = $currentdate->{'{day of month}'};                #To
+days Date
         $month = $currentdate->{'month number'}  +1;              #To
+days Month
         $dateloaded -= 7;                                         #mi
+nus a week
         $history = substr($dateloaded,8 ,2);                      #1-
+week-ago
         $dateloaded -= 7;                                         #fo
+r the whole week
         $historyformer = substr($dateloaded,8 ,2);                #En
+d 1-week-ago

  $N = 0;
      until ( $N == 3)                                             #Un
+til all 3 weeks have been checked
      {
        @folder = qw( 1-week-ago 2-weeks-ago 3-week-ago );

          if ( $date >= $historyformer && $date <= $history )      #if
+ the log equals greater than a week ago but less than 2 weeks ago
          {
           $month--;
           if ( $date2 == $month || $date2 == $month )
           {
            $oldlocation = "/perl/ass/$logfiles[$hour]";           #Cu
+t and Pastes the log file into corresponding folder
            $newlocation = "/perl/ass/$folder[$N]/$logfiles[$hour]";
            print " old = $oldlocation \n new = $newlocation\n";
            move($oldlocation, $newlocation) or die "File cannot be mo
+ved: $!";    #DOESNT WORK
            $N = 3;
            $date = 999;                                           #Ma
+kes the date not equal to any other date
            $month++;
            }
          }
        $N++;

        $history = substr($dateloaded,8 ,2);
        $dateloaded -= 7;
        $historyformer = substr($dateloaded,8 ,2);                 #En
+d 1-week-ago
      }

    $date = substr($firstline,3 ,2);                               #Co
+llect the month from the log
    $N = 0;
      until ( $N == 6)                                             #Un
+til all 6 months have been checked
      {
          @folder = qw( 1-month-ago 2-months-ago 3-months-ago 4-months
+-ago 5-months-ago 6-months-ago);
          $month--;                                                 #C
+ounts down 6 months
          if ( $date  == $month )                                   #i
+f the first line of the log equals the date
          {
            $oldlocation = "/perl/ass/$logfiles[$hour]";            #C
+ut and Pastes the log file into corresponding folder
            $newlocation = "/perl/ass/$folder[$N]/$logfiles[$hour]";
            print " OLD - $oldlocation \n NEW - $newlocation";
            move($oldlocation, $newlocation) or die "File cannot be mo
+ved: $!";   #DOESNT WORK
            $N = 3;
            $date = 999;                                            #M
+akes the date not equal to any other date
          }
        $N++;

      }
    #if ($date  == $month -1)
    #  {
    #    DELETE;
    #  }
   $hour++;
  }
  
exit;
[download]

And no laughing because it isnt exactly finished :P