perl--logical help needed

[bhumikas]

I need a help with my code...
What I want to do is:
if there exists a directory_no, and found in the directories array , want to copy the contents of that array to a new array from where the directory_no is found to till the end of that array.
In the end copy the new_directory array to the directories array;

Ex:directories array: 1 2 3 4 5
directory_no is 3.
Output :new_directory 3 4 5
in the end directories array: 3 4 5

if($directory_no)
  {
foreach $directory (@directories)
	  {
	    $count++;
	    print "$count";
	    if($directory = $directory_no)
	    {
              for($count;$count<=@directories;$count++)
              {              
              $new_directory[i]=$directories[$count-1];
              $i++;              
              }              
	      exit; 
	    }
	  }
}

@directories=@n ew_directory;

[eWish]

if($directory = $directory_no)

If you are comparing numerically then you would use ==. If you are comparing a a string then use eq.

[CODE=perl]if($directory eq $directory_no)[/CODE]

perlop

[KevinADC]

A very common error to use the assignment operator "=" instead of a comparison operator "==":

if ($directory = $directory_no)

[KevinADC]

[CODE=perl]@array = (1 .. 5);
$n = 3;
@new = grep {$_ >= $n} @array;
print "@new";[/CODE]

[bhumikas]

[CODE=perl]@array = (1 .. 5);
$n = 3;
@new = grep {$_ >= $n} @array;
print "@new";[/CODE]

can u xplain the third line....

[Xmassey]

@new = grep {$_ >= $n} @array;

Only values that are more than or equal to $n (which is 3) are taken from @array and placed into the new array @new

[KevinADC]

perldoc: grep Function

[bhumikas]

Hi,
a small clarification,e ven if i put && <=$p its gonna evaluate rite as its an expression.

@new = grep {$_ >= $n && <= $p} @array;

then it gonna put the values in between certain range into the new array...

[KevinADC]

Hi,
a small clarification,e ven if i put && <=$p its gonna evaluate rite as its an expression.

@new = grep {$_ >= $n && <= $p} @array;

then it gonna put the values in between certain range into the new array...

Yes, you can put any valid code into the expression thats evaluatued. Your code looks better writeen as:

@new = grep {$_ >= $n && $_ <= $p} @array;

of course $p needs to be defined.

[bhumikas]

Yes, you can put any valid code into the expression thats evaluatued. Your code looks better writeen as:

@new = grep {$_ >= $n && $_ <= $p} @array;

of course $p needs to be defined.

thnks for the suggestion.....