Shell Programming and Scripting

#!/usr/bin/perl

$dupes = $singletons = "";		# This goes at the head of the file

do {
    $dupefound = 0;			# These go at the head of the loop
    $text = $line = $prevline = $name = $prevname = "";
    do {
	$line = <>;
	$line =~ /^(.+)\=.+$/ and $name = $1;
	$prevline =~ /^(.+)\=.+$/ and $prevname = $1;
	if ($name eq $prevname) { $dupefound += 1 }
	$text .= $line;
	$prevline = $line;
    } until ($dupefound > 0 and $text !~ /^(.+?)\=.*?\n(?:\1=.*?\n)+\z/m) or eof;
    if ($text =~ s/(^(.+?)\=.*?\n(?:\2=.*?\n)+)//m) { $dupes .= $1 }
    $singletons .= $text;
} until eof;
print "SINGLETONS\n$singletons\n\DUPES\n$dupes";

[user@cygwin ~]$ cat input.txt
Albert=albt
Albert=albut
Albert=albat
Mary=mari
Mary=meri
Mary=merry
Mary=marey
[user@cygwin ~]$
[user@cygwin ~]$ perl -F= -ane 'BEGIN {open O, "> output.txt"}
chomp $F[1]; $x{$F[0]} .= "$F[1],"; $y{$F[0]}++;
END {
    for (sort keys %x) {
        $x{$_} =~ s/,$//;
        print O "$_,$y{$_},$x{$_}\n";
    }
    close O;
}' input.txt
[user@cygwin ~]$
[user@cygwin ~]$ cat output.txt
Albert,3,albt,albut,albat
Mary,4,mari,meri,merry,marey
[user@cygwin ~]$

#! C:\Perl\bin\perl.exe
use strict;
use warnings;

my (@F, %x, %y);

open I, "< input.txt";
for (<I>) {
    chomp;
    @F = split /=/;
    $x{$F[0]} .= "$F[1],";
    $y{$F[0]}++;
}
close I;

open O, "> output.txt";
for (sort keys %x) {
    $x{$_} =~ s/,$//;
    print O "$_,$y{$_},$x{$_}\n";
}
close O;

#!/usr/bin/perl

while (<DATA>) {
        chomp;
        ($word,$meaning)=split(/\=/);
        push  @{$word} , $meaning ;
        $hashWord{$word}=\@{$word};
}

foreach (keys %hashWord ) {
        $KeyWord=$_;
        printf "%s,%d",$KeyWord,scalar @{$hashWord{$_}};
        foreach (@{$hashWord{$_}}) {
        printf ",%s",$_;
        }
        print "\n";
}



__DATA__
Albert=albt
Albert=albut
Albert=albat
Mary=mari
Mary=meri
Mary=merry
Mary=marey