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

Re: Regular Expressions question

by roboticus (Chancellor)
on Oct 29, 2012 at 19:05 UTC ( #1001405=note: print w/replies, xml ) Need Help??

in reply to Regular Expressions question


It looks like you're using join incorrectly in your data collection loop. The join function uses the first item in its argument list as a separator which is placed between all the other items in the list. It looks like you're using it as a concatenator, which it will fail miserably at (at least the way you use it).

For example: print join('a','b') will print the letter b on your console, and print join('a','b','c') will print "bac". Normally, you'd use it like print join(", ", 'a', 'b','c') to get a nicely formatted list: "a, b, c".

So you can change:

$T1List = join ($T1List,$interface,"\n");


$T1List = $T1List . $interface . "\n";

or you can build an array to hold your interfaces, and join them at the end.

Update: Fixed example (to "bac") ... thanks for the catch johngg!


When your only tool is a hammer, all problems look like your thumb.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2018-05-20 14:34 GMT
Find Nodes?
    Voting Booth?