Shell Programming and Scripting

a/b/c/d
a/b/c
b/f/g/v/m

b/f/g/v/m
a/b/c/d
a/b/c

$ cat infile
a/b/c/d
a/b/c
b/f/g/v/m
$ cat script.pl
use warnings;
use strict;

@ARGV == 1 or die qq[Usage: perl $0 input-file\n];

my %line;

while ( <> ) {
        chomp;
        $line{ tr#/#/# } = $_;
}

for ( sort { $b <=> $a } keys %line ) {
        printf qq[%s\n], $line{ $_ };
}
$ perl script.pl infile
b/f/g/v/m
a/b/c/d
a/b/c

perl -F"\n" -ln0ae '$,="\n";print sort {$x=$a;$y=$b;$y=~s/\///g<=>$x=~s/\///g} @F' file

 awk -F/ '{print NF,$0}' myFile | sort -k1rn,1 | cut -d' ' -f2-

while read l; do echo `echo $l | grep -o "/" | wc -l` $l; done <file | sort -rnk1 | cut -d" " -f2-

#!/bin/ksh
cat filename.txt | while read line
do
        count=`echo "${line}"|tr -cd '/'|wc -c`
        echo "${count} ${line}"
done | sort -nr | cut -d' ' -f2-