http://www.perlmonks.org?node_id=516574


in reply to Counting the Extensions of the Directory

E:\tmp>ls
1gfJaJTeoh
CFG1584.tmp
CFG1587.tmp
EScan
ExchangePerflog_8484fa31f2d96a21cfcccd43.dat
Perflib_Perfdata_784.dat
SCP1D28.tmp
SCPA62.tmp
VBE
WINWORD.log
add_service_authentication_columns.sql
add_service_authentication_columns.sql.bak
ch01.pdf
create_export_tables-2.sql
create_export_tables-2.sql.bak
en-only.rws.swp
jusched.log
msohtml
msohtml1
perldoc_BDeparse_T439ed4fb_d50b1.txt
perldoc_perlfunc_T439eb5b6_bc83c.txt
plugtmp
svn000.tmp.pl
tmp158D.exe
tmp158D.tmp
tmp158E.tmp
tmp1592.tmp
tmp180E.tmp
tmp1811.tmp
~DF67F.tmp
~DF68C.tmp
~DF723C.tmp
~DF850E.tmp
~DFDDFC.tmp
~WRD0828.doc
~WRF2409.tmp
~WRS0003.tmp
~WRS0004.tmp

E:\tmp>ls | grep -oE "\.\w+$" | sort -u
.bak
.dat
.doc
.exe
.log
.pdf
.pl
.sql
.swp
.tmp
.txt
.xls

E:\tmp>

[download]

(GNU grep 2.5.1)

 

Replies are listed 'Best First'.
Re^2: Counting the Extensions of the Directory
by Mago (Parson) on Dec 14, 2005 at 12:48 UTC
    You are not counting the extensions ?

    IBIZA desentol /tarifa1/users/desentol/mlima/dados/input > ls | grep -
+oE "\.\w+$" | sort -u
grep: illegal option -- o
usage: grep [-E | -F] [-c|-l|-q] [-insvxbhwy] [-p parasep] -e pattern_
+list...
        [-f pattern_file...] [file...]
usage: grep [-E | -F] [-c|-l|-q] [-insvxbhwy] [-p parasep] [-e pattern
+_list...]
        -f pattern_file... [file...]
usage: grep [-E | -F] [-c|-l|-q] [-insvxbhwy] [-p parasep] pattern [fi
+le...]

    [download]


    Mago
    mago@rio.pm.org


[reply]
[d/l]

      GNU grep 2.5.1 has the -o option to output only the matched text. Your grep doesn't.

      As for counting...

      E:\tmp>ls | grep -oE "\.\w+$" | sort -u | wc -l
     12

      [download]

       

[reply]
[d/l]
[select]
        Ok!

        You are counting to everything and not each extension !?

        
IBIZA >ls

SN10738.ksh            
calculo_SN10738.ksh                        
separa_tabllama.awk
SN10738.log          
calculo_SN10738B.ksh
transferSN10738A.ksh
filtroSN10738A.ksh
separaVielinSN10406.ksh

IBIZA >perl -e 'while(<*>){if(-f && /\.(\w+)$/){$e{$1}++}}print "$_ ->
+ $e{$_}\n" for keys %e'

ksh -> 6
awk -> 1
log -> 1

        [download]
        
SHELL:

IBIZA >ls | cut -sf2 -d. | sort | uniq -c

   6 ksh
   1 awk
   1 log

        [download]


        Mago
        mago@rio.pm.org


[reply]
[d/l]
[select]

In Section Code Catacombs