How can I extract just the elements I want from a Perl array?
Posted
by Flamewires
on Stack Overflow
See other posts from Stack Overflow
or by Flamewires
Published on 2010-05-19T19:31:25Z
Indexed on
2010/05/20
2:30 UTC
Read the original article
Hit count: 255
Hey I'm wondering how I can get this code to work. Basically I want to keep the lines of $filename
as long as they contain the $user
in the path:
open STDERR, ">/dev/null";
$filename=`find -H /home | grep $file`;
@filenames = split(/\n/, $filename);
for $i (@filenames) {
if ($i =~ m/$user/) {
#keep results
} else {
delete $i; # does not work.
}
}
$filename = join ("\n", @filenames);
close STDERR;
I know you can delete like delete $array[index]
but I don't have an index with this kind of loop that I know of.
© Stack Overflow or respective owner