LinuxQuestions.org - perl Script acting strange.

- Linux - Newbie (https://www.linuxquestions.org/questions/linux-newbie-8/)

- - perl Script acting strange. (https://www.linuxquestions.org/questions/linux-newbie-8/perl-script-acting-strange-679575/)

perl Script acting strange.

Hi,

This script needs to show directories older than certain time (ARGV[1])

It works fine till the values 1 to 9, directory count decreases.
How ever if I do 10 as an arg. direcory no. increases. It more then with "9" 0r "4".

Here is the code:

Code:





chdir($ARGV[0]) or die "Unable to enter dir $workdir:$!\n";

 

 opendir(DIR, ".") or die "Unable to open $ARGV[0]\n";

    my @names = readdir(DIR);

    closedir(DIR);



    foreach my $name (@names){

        next if ($name eq ".");

        next if ($name eq "..");



  if (-d $name && -M $name ge $ARGV[1])

        {

          print"$name\n";

        }

  }

Any Ideas?

That's because you're comparing string values, not
numbers ... think ASCII values.

Quote:

Originally Posted by Tinkster (Post 3324204)

That's because you're comparing string values, not
numbers ... think ASCII values.

So like c language I need to get $ARGV[1] and declare it as int ?

Just change the comparison from ge to >= ...
perl isn't a typed language.