Re: 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)

Comment on Re: Counting the Extensions of the Directory Download Code

Replies are listed 'Best First'.
Re^2: Counting the Extensions of the Directory by Mago (Parson) on Dec 14, 2005 at 07: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]
Re^3: Counting the Extensions of the Directory by EdwardG (Vicar) on Dec 14, 2005 at 07:59 UTC
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]
Re^4: Counting the Extensions of the Directory by Mago (Parson) on Dec 14, 2005 at 08:08 UTC
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]


Don't ask to ask, just ask
	PerlMonks

Re: Counting the Extensions of the Directory

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.