Shell Programming and Scripting

inb-1|kuuhsdkjfhsd|djshfjksd|ndsbs896
inb-2|kuuhsdkjfhsd|djshfjksd|ndsbs896
inb-3|kuuhsdkjfhsd|djshfjksd|ndsbs896

abv-1|kjsdgfjksd|sdkjbfhokjsd|skjdbfhjkosd
abv-2|kjsdgfjksd|sdkjbfhokjsd|skjdbfhjkosd
abv-3|kjsdgfjksd|sdkjbfhokjsd|skjdbfhjkosd

nhg-1|kgsdjhfgsd|kdgojhgdfog|jhfgojhgdfljg
nhg-2|kgsdjhfgsd|kdgojhgdfog|jhfgojhgdfljg
nhg-3|kgsdjhfgsd|kdgojhgdfog|jhfgojhgdfljg

inb-1
abv-1
nhg-1

$ cat filter.pl
#!/usr/bin/perl
 
use strict;
use warnings;
 
open (F, "<create2.txt" ) || die "unable to open file: $!";
while ( my $file=<F> ) {
        chomp($file);
        open (FF, "<$file" ) || die "unable to open file: $!";
        while ( my $line=<FF> ) {
                last if $. == 2;
                my @fields=split('\|',$line);
                print "$fields[0]\n";
        }
        close FF;
}
close F;
$ 
$ 
$ 
$ 
$ ./filter.pl 
inb-1
abv-1
nhg-1
$

$ cat filter.pl
#!/usr/bin/perl
 
use strict;
use warnings;
 
open (F, "<create2.txt" ) || die "unable to open file: $!";
while ( my $file=<F> ) {
        chomp($file);
        open (FF, "<$file" ) || die "unable to open file: $!";
        while ( my $line=<FF> ) {
                last if $. == 2;
                my @fields=split('\|',$line);
                print "$fields[0]\n";
        }
        close FF;
}
close F;
$ 
$ 
$ 
$ 
$ ./filter.pl 
inb-1
abv-1
nhg-1

#!/usr/bin/perl
 
use strict;
use warnings;
 
open (F, "<create2.txt" ) || die "unable to open file: $!";
while ( my $file=<F> ) {
        chomp($file);
        open (FF, "<$file" ) || die "unable to open file: $!";
        while ( my $line=<FF> ) {
                last if $. == 2;
                my @fields=split('\|',$line);
                print "$fields[0]\n";
        }
        close FF;
}
close F;

#!/bin/bash
head -q -n1 $(<create2.txt) | cut -d'|' -f1

#!/bin/sh
head -q -n1 `cat create2.txt` | cut -d'|' -f1