How to filter out lines from a variable that has multi-lines?

[mike]

suppose a variable $a has multi-lines, e.g.

happy
new
new password
year
get password of micky
LOL

What is best way to filter out lines that have "password" involved?
Thanks in advance

 

[Narthring]

suppose a variable $a has multi-lines, e.g.

happy
new
new password
year
get password of micky
LOL

What is best way to filter out lines that have "password" involved?
Thanks in advance

One way would be to split on newlines and use a regular expression to
filter out 'password':


use strict;
use warnings;

my $text = '
happy
new
new password
year
get password of micky
LOL';


my (@array) = split(/\n/, $text);

my ($result);
foreach my $line (@array){
$result .= "$line\n" unless ($line =~ m/password/);
}

print "$result";

 

[Tad McClellan]

suppose a variable $a has multi-lines, e.g.

happy
new
new password
year
get password of micky
LOL

What is best way to filter out lines that have "password" involved?

$a =~ s/.*password.*\n//g;

 

[mike]

both good advices.
Thanks for all you guys replies.