Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Counting the Extensions of the Directory

by EdwardG (Vicar)
on Dec 14, 2005 at 10:39 UTC ( #516574=note: print w/replies, xml ) Need Help??

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 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>

(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...]


      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



        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
        SHELL: IBIZA >ls | cut -sf2 -d. | sort | uniq -c 6 ksh 1 awk 1 log


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://516574]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2017-02-19 15:29 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (292 votes). Check out past polls.