Comparison of Perl samples, where we print all the relevant parts, but only the relevant parts (and not the rest)

Question

I am looking for a solution for this in Perl.

Example: If my line is:

my $content = 'toto /app/blah titi\nhuh/app/ttt wew';

and my pattern: /app/somethingI want to get as output in an array: /app/blahand /app/ttt.

(which basically means grep -E -o '\/app\/[a-z]*')

I can not make it work! I tried:

my $content = 'toto /app/blah titi\nhuh/app/ttt wew';
$content =~ m/(\/app\/[a-z]*)/;
print "Group: $1 $2\n";

but it only prints: /app/blah(not /app/ttt)

and anyway, I don't know how to put the results in a table:

my (@table) = @_;

the table does not contain anything!

THX

+3

user1383162 May 08 '12 at 21:49

2 answers

bash, Perl , :

$ echo foo000bar000baz | perl -ne 'for(m/(foo)|(baz)/g){ if ($_ ne "") { print "$_\n"}}'            
foo
baz

$ echo 'foo
> 123
> bar
> 456
> baz ' | perl -ne 'for(m/(foo)|(baz)/g){ if ($_ ne "") { print "$_\n"}}'
foo
baz

( , Perl):

STDIN perl: , cat $file

0

sdkks 05 . '17 11:42

mob · Accepted Answer · 2012-05-08T22:03:29+0000

You want to use a modifier /gso that the regular expression returns all matches in a list:

@table = $content =~ m/(\/app\/[a-z]*)/g;
print "Group: @table\n";

, @_ . , , .