Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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 ?

edit

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2018-01-23 18:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How did you see in the new year?










    Results (251 votes). Check out past polls.

    Notices?