Search Results

Hi,
you can use this way:
$ cat in.txt
Linux Unix Linux Windows SUN
MACOS SUN SUN HP-AUX
$ perl -sane 'foreach $i (@F) { $X{$i}+=1 } ; foreach $i (@F) {printf "%s ",$i if $X{$i}==1...

my $start;
my $last;
while (<>) {
if ( /^U-\d+ UNIX (\d+)$/) {
if (!defined $start) {
$start = $1;
$last = $1;
next;
}
elsif (!defined $last || $1 > $last +...

% echo 'Data-123 Linux MacOSData-124 windows FreeBSDData-125 OpenBSD NetBSD' |
perl -ne 's/Data/\nData/g && s/\n// && print'