Re: Finding unique vals from a inout file

~~Your code slurps the whole file into the first element of @Deploy. Probably not what you wanted.~~

EDIT: As jethro= points out the original code works. So the following code is no more correct than the OP.

Here, this works:

Troll [113] as maint ~/ %cat foobar + [DING!] #!/usr/bin/perl @Deploy = split "\n",<DATA>; chomp(@Deploy); my @tmp = @Deploy; my %saw = (); foreach my $view_name (@Deploy) { print "view name is $view_name \n"; push (@Deploy1, $view_name) unless $saw{$view_name}++; } print join("\n",@Deploy1); __DATA__ t\test1\WEB\TEST/Admin*V:/test_viewINT/test_CVOB/test_src/Admin/AdminM +enu.asp" \\test\test1\WEB\TEST/Admin*V:/test_viewINT/test_CVOB/test_src/Admin/a +dminUser.asp" \\test\test1\WEB\TEST/Admin*V:/test_viewINT/test_CVOB/test_src/Admin/A +dminMenu.asp" \\test\test1\WEB\TEST/Admin*V:/test_viewINT/test_CVOB/test_src/Admin/a +dminUser.asp"
[download]
Outputs two elements as I think you wanted.

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}
Comment on Re: Finding unique vals from a inout file
Download Code

Replies are listed 'Best First'.
Re^2: Finding unique vals from a inout file by jethro (Monsignor) on Jun 30, 2008 at 18:45 UTC
No, it doesn't: `#!/usr/bin/perl -w @Deploy = <>; print scalar(@Deploy);` [download] shows `> ./t7.pl < t7.pl 4` [download]	[reply] [d/l] [select]
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]