Help for this page

Select Code to Download


  1. or download this
    open IN,'<',$csvfile;
@data=<IN>;
...
foreach my $line (@data) {$uniq{$line}=1;}
foreach my $line (keys %uniq) {print OUT $line;}
close OUT;
  2. or download this
      DB<2> x \%data
0  HASH(0x555e18bb11b8)
...
      'X' => ARRAY(0x555e18bb1278)
         0  5
  DB<3>