Help for this page

Select Code to Download


  1. or download this
    gunzip -c $file|cut -f3,4 -d'|' |sort|uniq -c
    
  2. or download this
     2
    11 CHECK|KCEHC
    
  3. or download this
    ABC|123|CHECK|KCEHC|
    DEF|456|CHECK|KCEHC|
    ...
    ABC|123|CHECK|KCEHC|
    DEF|456|CHECK|KCEHC|
    GHI|789|CHECK|KCEHC|
    
  4. or download this
    $fh = IO::Zlib->new( "$file", 'rb' ) or die "Zlib failed: $!";
    $count{$_}++ for map { ( split /\|/ )[3,4] } <$fh>;
    print Dumper(%count);
    
  5. or download this
    $VAR1 = '';
    $VAR2 = 1;
    ...
    $VAR5 = 'KCEHC';
    $VAR6 = 11;
    $VAR7 = '';
    
  6. or download this
    CHECK|KCEHC 11