Re^2: select only duplicate entries

while ( defined ( $_ = <DATA> )){
is equivalent to
while ( <DATA> ){

$c > 1 ? print $fh2 "$k\t$_\n" : print $fh1 "$k\t$_\n";
is equivalent to
print { $c == 1 ? $fh1 : $fh2 } "$k\t$_\n";
or do
my $fh = $c == 1 ? $fh1 : $fh2;
outside the loop and print to $fh.

Comment on Re^2: select only duplicate entries Select or Download Code

Replies are listed 'Best First'.
Re^3: select only duplicate entries by borisz (Canon) on Aug 24, 2006 at 16:17 UTC
Thanks, I know. I try to write it simple for the newbies. Boris	[reply]


Don't ask to ask, just ask
	PerlMonks