Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

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]
Tanktalus has to figure out why his cb talker isn't working :(
[choroba]: https?
[choroba]: That was at least why my cb talker wasn't working.
[Tanktalus]: curious, then, why the reader works :)
[Tanktalus]: or posting the last hour of cb... well, maybe I should double check that first :)
[Tanktalus]: yup, it's working. :)
[choroba]: https://github. com/choroba/pm-cb/ commit/7b57f513596 7bf8a29d74f1c307de 9a76894cdcf

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2018-07-15 21:25 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (326 votes). Check out past polls.