Sponsored Content
Homework and Emergencies Emergency UNIX and Linux Support Sorting file content by file extensions Post 302639685 by drl on Saturday 12th of May 2012 05:48:18 PM
Old 05-12-2012
Hi.

For the previous solution, we'd need to think of a way to remove added trailing dots, but preserve any that might be on the originals:
Code:
#!/usr/bin/env bash

# @(#) user3	Demonstrate collect by extension.

pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
re() { perl -wn -e 'chomp;print scalar reverse,"\n";' $1 ; }
C=$HOME/bin/context && [ -f $C ] && $C msort perl sort

FILE=${1-data1}
pl " Input file $FILE:"
head $FILE

pl " Results for awk / sort / cut:"
awk -F. 'NF==1{NF++}{print $NF,$0}' OFS=. $FILE | sort -t. -k1,1 | cut -d. -f2-

exit 0

producing:
Code:
% ./user3 data3

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0.8 (lenny) 
bash GNU bash 3.2.39
msort 8.44
perl 5.10.0
sort (GNU coreutils) 6.10

-----
 Input file data3:
bar
foo
bar.zip
foo.zip
foo.bar.jpg
foo.bar.zip
bar.foo.zip
baz.

-----
 Results for awk / sort / cut:
bar.
baz.
foo.
foo.bar.jpg
bar.foo.zip
bar.zip
foo.bar.zip
foo.zip

cheers, drl
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

File name extensions

Hello people, I was wondering if anyone could help me? I want to produce a shell script that changes the filename extension on all matching file. E.G. change all files called ‘something.rtf' to ‘something.doc' by giving the command: Changex rtf doc *where ‘Changex' is the name of... (2 Replies)
Discussion started by: thurrock
2 Replies

2. UNIX for Dummies Questions & Answers

sorting file content on columns

guys i have a question: i'd like to sort files (as many I want) in columns so to visualize them one near the other...so let's say i have just 2 files: FILE1 John Mary Bridget FILE2 Anne Robert Mark i would like to obtain: John Anne Mary Robert Bridget ... (2 Replies)
Discussion started by: marshmallow
2 Replies

3. Shell Programming and Scripting

Sorting Files according to their Extensions...

I am trying to write a Korne Shell Script wherein we have to sort files according to their extensions(for eg. 1.sh, 5.sh, 9.sh together; 4.csh, 120.csh, 6.csh together and 7.ksh, 2.ksh, 59.ksh together) and move them to their respective directories viz. sh, csh and ksh... I think,... (1 Reply)
Discussion started by: marconi
1 Replies

4. Shell Programming and Scripting

Checking file extensions

I am trying to store file with certain file extensions to list but having some problems. Here is a part of the code set fryLst = "" set fxtLst = "" foreach f ($AfullNameLst) set fname = $f:r set fext = $f:e if ("$fext" == ".ry") set fryLst = "$fryLst $f" if ("$fext" == ".xt")... (2 Replies)
Discussion started by: kristinu
2 Replies

5. Shell Programming and Scripting

Sorting content of file

hi ladies and gents: can you give me a command to sort content of file and save it to the file itself: file1 roy@emerson.com joy@emerson.com irish@emerson.com output would be file1 on same directory: file1: irish@emerson.com joy@emerson.com roy@emerson.com (6 Replies)
Discussion started by: linuxgeek
6 Replies

6. Shell Programming and Scripting

Remove comments from file with specific file name extensions

Hello Unix board community, I have to program a shell script, but I am a complete noob so I hope I get some help here. The assignment is as follows: The program removes all comments regardless of formatting or language from files with specific file name extensions (php, css, js, ...).... (3 Replies)
Discussion started by: TheZeusMan
3 Replies

7. Shell Programming and Scripting

Sed: replace content from file with the content from file

Hi, I am having trouble while using 'sed' with reading files. Please help. I have 3 files. File A, file B and file C. I want to find content of file B in file A and replace it by content in file C. Thanks a lot!! Here is a sample of my question. e.g. (file A: a.txt; file B: b.txt; file... (3 Replies)
Discussion started by: dirkaulo
3 Replies

8. UNIX for Dummies Questions & Answers

Need to exclude certain file extensions while listing the file using ls

Hi friends, I need to check for the latest file say i have list of files like this test_files test_files.1 test_files.2 test_files.3.bin.Z I do it this way ls -lrt test_files*|tail -1 Now i need to exclude test_files.3.bin.Z even if it is the latest file,how do i do... (3 Replies)
Discussion started by: 100bees
3 Replies

9. Shell Programming and Scripting

How to remove exisiting file content from a file and have to append new file content?

hi all, i had the below script x=`cat input.txt |wc -1` awk 'NR>1 && NR<'$x' ' input.txt > output.txt by using above script i am able to remove the head and tail part from the input file and able to append the output to the output.txt but if i run it for second time the output is... (2 Replies)
Discussion started by: hemanthsaikumar
2 Replies

10. Shell Programming and Scripting

List the files after sorting based on file content

Hi, I have two pipe separated files as below: head -3 file1.txt "HD"|"Nov 11 2016 4:08AM"|"0000000018" "DT"|"240350264"|"56432" "DT"|"240350264"|"56432" head -3 file2.txt "HD"|"Nov 15 2016 2:18AM"|"0000000019" "DT"|"240350264"|"56432" "DT"|"240350264"|"56432" I want to list the... (6 Replies)
Discussion started by: Prasannag87
6 Replies
Mojo::Parameters(3pm)					User Contributed Perl Documentation				     Mojo::Parameters(3pm)

NAME
Mojo::Parameters - Parameter container SYNOPSIS
use Mojo::Parameters; my $p = Mojo::Parameters->new(foo => 'bar', baz => 23); DESCRIPTION
Mojo::Parameters is a container for form parameters. ATTRIBUTES
Mojo::Parameters implements the following attributes. "charset" my $charset = $p->charset; $p = $p->charset('UTF-8'); Charset used for decoding parameters, defaults to "UTF-8". "pair_separator" my $separator = $p->pair_separator; $p = $p->pair_separator(';'); Separator for parameter pairs, defaults to "&". METHODS
Mojo::Parameters inherits all methods from Mojo::Base and implements the following new ones. "new" my $p = Mojo::Parameters->new; my $p = Mojo::Parameters->new('foo=b%3Bar&baz=23'); my $p = Mojo::Parameters->new(foo => 'b;ar'); my $p = Mojo::Parameters->new(foo => ['ba;r', 'b;az']); my $p = Mojo::Parameters->new(foo => ['ba;r', 'b;az'], bar => 23); Construct a new Mojo::Parameters object. "append" $p = $p->append(foo => 'ba;r'); $p = $p->append(foo => ['ba;r', 'b;az']); $p = $p->append(foo => ['ba;r', 'b;az'], bar => 23); Append parameters. # "foo=bar&foo=baz" Mojo::Parameters->new('foo=bar')->append(foo => 'baz'); # "foo=bar&foo=baz&foo=yada" Mojo::Parameters->new('foo=bar')->append(foo => ['baz', 'yada']); # "foo=bar&foo=baz&foo=yada&bar=23" Mojo::Parameters->new('foo=bar')->append(foo => ['baz', 'yada'], bar => 23); "clone" my $p2 = $p->clone; Clone parameters. "merge" $p = $p->merge(Mojo::Parameters->new(foo => 'b;ar', baz => 23)); Merge parameters. "param" my @names = $p->param; my $foo = $p->param('foo'); my @foo = $p->param('foo'); my $foo = $p->param(foo => 'ba;r'); my @foo = $p->param(foo => qw(ba;r ba;z)); Check and replace parameter values. "params" my $params = $p->params; $p = $p->params([foo => 'b;ar', baz => 23]); Parsed parameters. "parse" $p = $p->parse('foo=b%3Bar&baz=23'); Parse parameters. "remove" $p = $p->remove('foo'); Remove parameters. # "bar=yada" Mojo::Parameters->new('foo=bar&foo=baz&bar=yada')->remove('foo'); "to_hash" my $hash = $p->to_hash; Turn parameters into a hash reference. # "baz" Mojo::Parameters->new('foo=bar&foo=baz')->to_hash->{foo}[1]; "to_string" my $string = $p->to_string; Turn parameters into a string. SEE ALSO
Mojolicious, Mojolicious::Guides, <http://mojolicio.us>. perl v5.14.2 2012-09-05 Mojo::Parameters(3pm)
All times are GMT -4. The time now is 01:07 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy