Re^2: Finding unique vals from a inout file

No, it doesn't:

#!/usr/bin/perl -w

@Deploy = <>;
print scalar(@Deploy);
[download]

shows

> ./t7.pl < t7.pl
4
[download]

Comment on Re^2: Finding unique vals from a inout file Select or Download Code

Replies are listed 'Best First'.
Re^3: Finding unique vals from a inout file by starbolin (Hermit) on Jun 30, 2008 at 22:28 UTC
Sometimes, in spite of careful testing, one screws up. As I did. You are correct jethro. s//----->\t/;$~="JAPH";s//\r<$~~/;{s\|~$~-\|-~$~\|\|\|s \|-$~~\|$~~-\|\|\|s,<$~~,<~$~,,s,~$~>,$~~>,, $\|=1,select$,,$,,$,,1e-1;print;redo}	[reply] [d/l]