Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Useless use of string in void context at

by LanX (Bishop)
on Oct 05, 2017 at 20:07 UTC ( #1200768=note: print w/replies, xml ) Need Help??

in reply to Useless use of string in void context at

> What is wrong with my crappy script? ;-)

You don't print and Perl is warning you that it's a Useless use of string in void context giving you even the line number.

     "no matches for $cust\n";  # <--- Wot ?


FWIW I would have collected all results in an array (and other changes improving readability)

use strict; use warnings; use autodie; my @test_svc = ( "test\@customer1.service", "test\@customer2.service", "test\@custome3.service", "test\@customer4.service", "test\@customer5.service", "test\@customer6.service", ); my @customers = qw/ customer1 customer2 customer33 customer4 customer5 + /; for my $cust (@customers) { if ( my @matches = grep { /$cust/ } @test_svc ) { print "$cust matches:\t", (join "\t", @matches) ,"\n"; } else { print "no matches for $cust\n"; } }

Cheers Rolf
(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1200768]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2018-07-22 07:01 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (452 votes). Check out past polls.